empor
invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero
eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren,
no sea takimata sanctus est Lorem ipsum dolor sit amet.Lorem ipsum dolor sit
amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt
ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et
accusam etLorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam
nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed
diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet
clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.Lorem
ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod
tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua.
At vero eos et accusam etLorem ipsum dolor sit amet, consetetur sadipscing
elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam
erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea
rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum
dolor sit amet.Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed
diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat,
sed diam voluptua. At vero eos et accusam et Codigo 8
Remplazando comillas
Este script se encarga de reemplazar las comillas para dar mayor seguridad a la hora de insertar en una base de datos
Codigo
Codigo
<%
' 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)
%>
' 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)
%>