Porque al agregar???

[Berletzis]

Miren tengo este problem...

Tengo un Formulario el cual me manda a un asp que tiene el codigo para agregar datos a una tabla Ok..

El problema que tengo es que cuando mi texto llega a tener alguna comilla o comilla doble por ahi , me manda un error diciendo lo siguiente:

Error de sintaxis (falta operador) en la expresión de consulta

Como si le ubiese agregado alguna instruccion,

La pregunta es como puedo hacer para evitar este error y cuando se le agergue lo que sea con comilla s o no pues o pase esto Ok

Les pongo aqui el codigo haber si les sierve de algo..

byer y muchas gracias.. Cualuqer cosa estoy en lkinea [email protected]

<%
Dim BDD
Dim TABLA
Dim SQL
Dim RESP


*//Aqui es donde recibo los datos que vienen del form

Seccion = " '" &Request.Form("Seccion")& "' "
Autor = "'" & Request.Form ("Autor") & "'"
Fecha = "'" & Request.Form ("Fecha") & "'"
Titulo = "'" & Request.Form ("Titulo") & "'"
Texto_Corto = "'" & Request.Form ("Texto_Corto") & "'"
Texto_Completo = "'" & Request.Form ("Texto_Completo") & "'"
IMG = "'" & Request.Form ("IMG") & "'"

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"))

/////*******EL nombre de mi tabla viene del paso de paramentros de un form por eso vienen con requeste.querystring..

SQL = "INSERT INTO "&request.QueryString("Tabla")& "(Seccion, Autor, Fecha, Titulo, Texto_Corto, Texto_Completo, IMG)
values ("&Seccion&", "& Autor&", "&Fecha&", "&Titulo&", "&Texto_Corto&", "&Texto_Completo&", "&IMG&")"



BDD.Execute SQL,RESP

BDD.Close
Set BDD = Nothing
Set TABLA = Nothing


%>

[AlZuwaga]

a cada uno de los request.form hacele un replace de un apóstrofe por dos seguidos:


Seccion = " '" &Replace(Request.Form("Seccion"), "'", "''")& "' "

[RootK]

En caso de que el texto tenga comillas porque no las reemplazas para que no tengas ese problema.

Ejemplo

Replace ("tu_texto", "' ", "")

No se ven pero lo que haces es quitar las comillas simples y con ello evitar problemas al hacer algun insert, update, etc.

Seccion = " '" & Replace(Request.Form("Seccion"),"' ","") & "' "

Espero te funcione-..

Saludos

[RootK]

Que tal Daz, creo que me ganaste la respuesta por un par de minutos.. jeje

[Berletzis]

Seccion = " '" &Replace(Request.Form("Seccion"), "'", "''")& "' "

A la perfeccion si agrega las comillas ahora el problema que tengo esquemiconuslta no muestra el campo ....

[AlZuwaga]

Exactamente 3 minutos, RootK ;)

Berletzis, no entiendo el nuevo "posible error"