<%
' Proporcionado por Tutores.org
Function fncReplaceSingleQuotes( _
ByVal strToReplace _
)
On Error Resume Next
Const Proc = "fncReplaceSingleQuotes"
strToReplace = Replace(strToReplace, "'", "''")
fncReplaceQuote = strToReplace
If err.Number <> 0 then
Call subWriteError(err.Number, Proc, err.Description)
End if
End Function
'
' ...
'
strVar = Request.Form("txtField1")
strVar = fncReplaceSingleQuotes(strVar)
%>