SQL1 = "SELECT * FROM 02DESTACADO WHERE ID=2"
Set rs = conexion.Execute(SQL1)
Bien en el * esta incluido un campo que se llama Texto2 que es de tipo memo.Ahora bien, tengo una funcion para que me muestre los retornos de carro bien en el html,es esta:
Código:
Bien pues hasta ahora siempre estaba utilizando este codigo:'*********************************************************************' ' Función FormateaSalida_de_datos( texto ) by : Mecenias '*********************************************************************' ' FormateaSalida_de_datos recibe un texto y los formatea para que ' se muestren los retornos de carro tal y como se guardaron '--------------------------------------------------------------------- Function FormateaSalida_de_datos ( texto ) FormateaSalida_de_datos=replace(texto, vbcrlf,"<BR>" & vbcrlf) End Function 'FormateaSalida_de_datos '---------------------------------------------------------------------
Código:
Y resulta que me da el siguiente error:<% ''Nota: rs siempre existe, por eso no compruebo si es rs.eof o rs.bof If (rs("texto2"<>"") then variable=FormateaSalida_de_datos(rs("texto2")) response.write(variable) else response.write("&nbsp;") end if %>
Error Type:
Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: 'replace'
/administrador2002/secciones/destacado2_confir.asp, line 26
La linea 26 es de la funcion: FormateaSalida_de_datos=replace(texto, vbcrlf,"<BR>" & vbcrlf)
tambien me da error si lo pongo asi:
if (rs("texto2")<>"") then
variable=rs.Fields.Item("texto2").Value
variable=FormateaSalida_de_datos(variable)
response.write(variable)
else
response.write("&nbsp;")
end if
(Continua --->)