Error al insertar codigo en Bd

[sqa212]

Estoy intentando introducir funciones en una base de datos,
con el objetivo de organizar mis conocimientos y encontrar facilmente lo que necesito,
por ejemplo introduciendo esta funcion:


<% Function AcomodarTEXTO(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
AcomodarTEXTO = txt
End function %>

Me aparece este error:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access]
Error de sintaxis en la cadena en la expresión de consulta
''<% Function AcomodarTEXTO(txt) txt = Replace (txt, "<", "&lt;") txt = Replace (txt, ">", "&gt;") txt = Replace (txt, vbCrLf, "<BR>") txt = Replace (txt, "''", "'") AcomodarTEXTO = txt End function %>')'.
Datos de POST:
AcomodarTEXTO%28txt%29%0D%0A%09txt+%3D+Replace+%28 txt%2C+%22%3C%22%2C+%22%26lt%3B%22%29%0D%0A%09txt+ %3D+Replace+%28txt% . . .

¿Como hago para que me deje insertar correctamnte en la base de datos,
y recuperarlos posteriormente con la forma original?

[trasgukabi]

haz un debug a la cadena sql que intenta insertar y pégala aquí

[sqa212]

Los problemas estan en esta linea:
txt = Replace (txt, "''", "'")
El error se produce en primer lugar, por la ' anterior.
si decido prescindir de ella y poner:
txt = Replace (txt, "''", "")
No se produce error al insertar en la base, sin embargo se inserta esto:
txt = Replace (txt, "'", "")
Perdiendose una ' en el camino.

[trasgukabi]

nada tío, tú tranquilo. No hagas lo que te dice alguien que intenta ayudarte. Pega aquí la consulta que se queda al final y después ya veremos qué es lo que pasa.

[sqa212]

Perdona, trasgukabi

si pongo:
<% Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function %>

me aparece esto:
insert into funciones (codigofuncion) values ('')

si quito <% y %> me aparece:

insert into funciones (codigofuncion) values ('Function AcomodarTXT(txt) txt = Replace (txt, "<", "<") txt = Replace (txt, ">", ">") txt = Replace (txt, vbCrLf, "
") txt = Replace (txt, "''", "'") acomodarTXT = txt End function ')

[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