Que tal.
Mi pregunta es la siguiente. Tengo un formulario en el cual se agregan algunos datos a un base de datos.
El problema es cuando en los cuadros de texto el usuario escribe o una comilla doble o simple (",'). Marca el siguiente error :
Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta
Como puedo evitar este error. Aqui pongo el codigo el cual estoy utilizando:
<%
Response.Buffer = True
' load object
Dim load
Set load = new Loader
' calling initialize method
load.initialize
' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
Dim Id
Id = load.getValue("Id")
' Value of text input field "Seccion"
Dim SeccionInput
SeccionInput = load.getValue("Seccion")
Dim AutorInput
AutorInput = load.getValue("Autor")
Dim FechaInput
FechaInput = load.getValue("Fecha")
Dim TituloInput
TituloInput = load.getValue("Titulo")
Dim CortoInput
CortoInput = load.getValue("Texto_Corto")
Dim CompletoInput
CompletoInput = load.getValue("Texto_Completo")
' Path where file will be uploaded
Dim pathToFile
pathToFile = Server.mapPath("..\..\IA") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)
' destroying load object
Set load = Nothing
%>
<html>
<head>
<title>File Uploading with ASP</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
<meta name="Microsoft Theme" content="-a- 011">
</head>
<body background="../../../_themes/-a-/probkgnd.gif" bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000"><table width="700" border="1" align="center" bordercolordark="#666666" bordercolorlight="#999999">
<tr>
<td>Nombre del Archivo</td><td><%= fileName %> </td>
</tr><tr>
<td>Sección</td><td><%= SeccionInput %> </td>
</tr><tr>
<td>Autor</td><td><%= AutorInput %> </td>
</tr><tr>
<td>Fecha</td><td><%= FechaInput %> </td>
</tr><tr>
<td>Titulo</td><td><%= TituloInput %> </td>
</tr><tr>
<td>Texto Corto</td><td><%= CortoInput %> </td>
</tr><tr>
<td>Texto Completo</td><td><%= CompletoInput %> </td>
</tr>
</table><br><br>
<p style="padding-left:220;">
<%
Dim BDD
Dim TABLA
Dim SQL
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("../../home.mdb"))
SQL = "UPDATE "&request.QueryString("Tabla")& " SET Seccion='"&SeccionInput&"',Autor='"&AutorInput&"', Fecha='"&FechaInput&"', Titulo='"&TituloInput&"', Texto_Corto='"&CortoInput&"', Texto_Completo='"&CompletoInput&"', IMG='"&fileName&"' WHERE Id LIKE "&Id&" "
BDD.Execute SQL
%>
</p>
</body>
</html>
Por su ayuda mil Gracias.
Cuelzaltzin.