O tema é que isto já havia feito em outras páginas e sempre havia tido bons resultados. A única diferença que tem este script é que utilizo dois campos MEMO, que trago de um banco de dados de access. Pode ser que se colem os dois campos memo, mas não tenho idéia se é este o problema.
O script que estou utilizando é este:
<%
Set conn1=Server.CreateObject("ADODB.CONNECTION")
Set RS1=Server.CreateObject("ADODB.RECORDSET")
conn1.open ("meuDSN")
%>
<%
ID=Request.QueryString("orden")
SQL="Select * From Noticias Where Id = "&ID&";"
RS1.Open SQL,conn1
%>
<%response.write RS1("Cabecalho")%><br>
<%Response.write RS1("Data")%><br>
<%if RS1("corpo") <> "" then%>
<%=RS1("corpo")%>
<%else%>
<%=RS1("resumo")%> <br>
<%end if%><%
RS1.Close
conn1.close
%>
O campo MEMO é o que estou avaliando na condição do IF: RS1("corpo").
campoMEMO = CSTR(RS1("Corpo"))
A função CSTR converte o que recebe por parâmetro em um string. Esse string não deveria te dar problemas para avaliá-lo em uma condição de um IF.
CSTR pega no string até 2.000.000.000 caracteres.
Este código está provado e funciona perfeitamente:
<%
ID=Request.QueryString("ordem")
SQL="Select * From Noticias Where Id = "&ID&";"
RS1.Open SQL,conn1
campoMEMO = CSTR(RS1("Corpo"))
if campoMEMO <> "" then
response.write campoMEMO
else
response.write RS1("resumo")
end if
RS1.Close
conn1.close
%>
Por Francisco Javier Sánchez
