Hola:
Esta sencilla función debería servirte. En lugar de Replace podríamos haber usado Server.HTMLEncode pero da problemas, ya que corta palabras cuando estas llevan acentos.
Código:
'____________________________________________
Function SinMarcas(cCad)
'Evita problemas con las comillas y deja las etiquetas HTML de lectura
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
cCad = Replace(cCad, "'", "''")
cCad = Replace(cCad, "<", "&lt;")
cCad = Replace(cCad, ">", "&gt;")
SinMarcas = cCad
End Function
Un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>