Uso no válido de Null: 'Replace'

[sqa212]

Tengo esta funcion:
Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

El problema es que si hago:
<%=AcomodarTXT(rs("campo1"))%> y el rs no traia nada me da el error
Uso no válido de Null: 'Replace'.
Como hacer para solo aplicarle la funcion a aquellos rs("campo1") que tengan algun contenido???.
He probado con:
<%If (rs("campo1"))="" or ("campo1") Null then
else
AcomodarTXT(rs("campo1"))
end if%>

Pero no consigo solucionar el problema

[Muzztein]

if isnull(campo) = true then
'no hago el replace
else
'hago el replace
end if

[sqa212]

Pues no lo consigo

A ver si pongo simplemente:
<%=acomodarTXT(rscatlist(Session("columnDES")))% >
y todos los registros que traigo en la consulta tienen contenido en ese campo, se ejecuta la funcion sin problema.

Sin embargo si pongo:
<%if isnull(rscatlist(Session("columnDES")))=true then%>
<%'=rscatlist(Session("columnDES"))%>
<%Else%>
<%=acomodarTXT(rscatlist(Session("columnDES")))% >
<%End iF%>

Incluso tomando los mismos registros que antes me dice:
Uso no válido de Null: 'Replace'

[Muzztein]

viejo..debuguea

has esto

response.write Session("columnDES")

response.write rscatlist(Session("columnDES"))

response.write isnull(rscatlist(Session("columnDES")))

y ve que demonios pasa, y saca tus propias conclusiones.

[sqa212]

Con response.write Session("columnDES") obtengo:
descripcionprod (Nombre de un campo de la bd)


Con response.write rscatlist(Session("columnDES")) obtengo:
1 Pieza por bolsa 1O Piezas en cada paquete (contenido del campo de la bd)

Con [COLOR=DarkRed]response.write isnull(rscatlist(Session("columnDES")))
COLOR] obtengo:
True (Aunque no tenga contenido en ese campo)


Es decir, aunque rscatlist(Session("columnDES")) contenga o no contenga nada el tercer response.writte responde true.

[sqa212]

ayer no pude entrar al foro, el servidor estaba out creo.
Sigo sin poder solucionar este problema.
Se os ocurre algo que pudiera hacer??

[sqa212]

Lo he solucionado asi por si a alguien le interesa:
Function AcomodarTXT(txt)
txt = "" & txt
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function