Error al insertar codigo en Bd

[sqa212]

Por fin lo he solucionado
Uso la funcion llevarabd(txt) para insertar en la base de datos y la funcion traerdebd(txt) para rescatarlos.
<% Function llevarabd(txt)
txt = Replace (txt, "<", "Chr(60)")
txt = Replace (txt, "&lt;", "Otro(60)")
txt = Replace (txt, ">", "Chr(62)")
txt = Replace (txt, "&gt;", "Otro(62)")
txt = Replace (txt, "'", "Chr(39)")
llevarabd = txt
End function %>
<% Function traerdebd(txt)
txt = Replace (txt, "Chr(60)", "<")
txt = Replace (txt, "Otro(60)", Server.HTMLEncode("&lt;"))
txt = Replace (txt, "Chr(62)", ">")
txt = Replace (txt, "Otro(62)", Server.HTMLEncode("&gt;"))
txt = Replace (txt, "Chr(39)", "'")
traerdebd = txt
End function %>

No se si a mediada que introduzca diferente codigo me daran problemas con otros caracteres, si encuentro mas los pondre aqui tambien.
Gracias a todos los que intentasteis resolverlo