mira lo que hice es lo siguiente
Código:
<%
Public Function saltoLinea(strInput)
Dim str
str = Server.HTMLEncode(strInput)
str = Replace(str, vbCrLf, "<br />" & vbCrLf, 1, -1, 1)
saltoLinea = str
End Function
Set rsdocto = Conn.Execute("Update zona set zona_nombre = '"&Ucase(Request.QueryString("nombre_zona"))&"',zona_descripcion = '"&saltoLinea(Request.QueryString("descripcion_zona"))&"' where zona_id = "&Request.QueryString("id_zona"))
%>
y de todos modos no lo hace