Funcion para evitar codigo HTML

[3pies]

A ver si esta te gusta más (añade las dos líneas anteriores a esta función)...

Código:

<%
'Caracteres a reemplazar, puestos
'por nuestros usuarios
Function CambiarTexto(texto)
texto=lcase(texto)
texto=replace(texto,"á","&aacute;")
texto=replace(texto,"à","&agrave;")
texto=replace(texto,"Á","&Aacute;")
texto=replace(texto,"À","&Agrave;")
texto=replace(texto,"é","&eacute;")
texto=replace(texto,"è","&egrave;")
texto=replace(texto,"É","&Eacute;")
texto=replace(texto,"È","&Egrave;")
texto=replace(texto,"í","&iacute;")
texto=replace(texto,"ì","&igrave;")
texto=replace(texto,"Í","&Iacute;")
texto=replace(texto,"Ì","&Igrave;")
texto=replace(texto,"ó","&oacute;")
texto=replace(texto,"ò","&ograve;")
texto=replace(texto,"Ó","&Oacute;")
texto=replace(texto,"Ò","&Ograve;")
texto=replace(texto,"ú","&uacute;")
texto=replace(texto,"ù","&ugrave;")
texto=replace(texto,"Ú","&Uacute;")
texto=replace(texto,"Ù","&Ugrave;")
texto=replace(texto,"ñ","&ntilde;")
texto=replace(texto,"Ñ","&Ntilde;")
texto=replace(texto,vbCrLf,"<br>")
texto=replace(texto,Chr(34),""")
texto=replace(texto,"'",""")
texto=replace(texto,"“",""")
texto=replace(texto,"”",""")
texto=replace(texto,"«",""")
texto=replace(texto,"»",""")
texto=replace(texto,"--","")
texto=replace(texto,"select","")
texto=replace(texto,"insert","")
texto=replace(texto,"update","")
texto=replace(texto,"delete","")
texto=replace(texto,"drop","")
texto=replace(texto,"create","")
texto=replace(texto,"join","")
texto=replace(texto,"-shutdown","")
texto=replace(texto,"""""","")
texto=replace(texto," or ","")
texto=replace(texto," and ","")
CambiarTexto=texto
End function
%>

Con el tema de las sustituciones de letras centuadas, yo lo uso, pero solo a la hora de mostrarlos en pantalla. En la BD grabo el texto con acentos (como lo escribió el usuario).