Necesito una explicacion lógica

[Mecenias]

Bien me ocurre lo siguiente, las conexiones estan bien y tengo realizada la siguiente seleccion:

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:

'*********************************************************************'
	'	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
	'---------------------------------------------------------------------

Bien pues hasta ahora siempre estaba utilizando este codigo:

Código:

 
<%
''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(" ")
	  	end if	  
	  %>

Y resulta que me da el siguiente error:

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(" ")
end if

(Continua --->)