problema con update

[deccweb]

Tengo este codigo para editar. Me funciona correctamente. El problema que tengo es q si en un formulario de la pagina anterior pongo una comilla simple ' no me funciona

Código HTML:

<%
nom = Trim(Request.Form("nom"))
nif = Trim(Request.Form("nif"))
id = Trim(Request.Form("id"))
cognom1 = Trim(Request.Form("cognom1"))
cognom2 = Trim(Request.Form("cognom2"))
curs1 = Trim(Request.Form("curs1"))
curs2 = Trim(Request.Form("curs2"))
curs3 = Trim(Request.Form("curs3"))
curs4 = Trim(Request.Form("curs4"))
curs5 = Trim(Request.Form("curs5"))


If nom = "" or cognom1 = "" or cognom2 = ""  or id = ""  or nif = ""  then
	Response.Write "<font size=1 face=verdana><BR><BR>Hay errores en el formulario o faltan datos."
	Response.Write "<font size=1 face=verdana><BR>Presionar Atras y completarlo correctamente"

Else

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("mem.mdb")




oConn.Execute "UPDATE mem SET nom = '"&nom&"' , cognom1 = '"&cognom1&"' , cognom2 = '"&cognom2&"', curs1 = '"&curs1&"', curs2 = '"&curs2&"', curs3 = '"&curs3&"', curs4 = '"&curs4&"', curs5 = '"&curs5&"', nif = '"&nif&"' WHERE id = "&id&"" 

%>


<%
oConn.Close
Set oConn = nothing
End If
%> 

[yomesmo]

¿Donde pones la comilla en el formulario? envia el código pa echarle un ojo...

[Myakire]

Valida con javascript que no ingresen apóstrofes como contenido de algún control que revisas. O con ASP podrías checar que no existierá:
For X=1 to len(msg)
Comilla=Asc(Mid(msg,X,1))
If Not Comilla=47 Then 'código ASCII de la comilla
...algo....
...

Saludos

[AlZuwaga]

A todo dato que vayas a meter en una instrucción SQL, le deberías reemplazar la comilla simple por dos de ellas seguidas:

Código:

nom = Replace(Trim(Request.Form("nom")), "'", "''")

Sino, te hacés una función que haga todo al mismo tiempo:

Código:

Function Pepe(esto)
a_limpiar = Request(esto)
a_limpiar = Trim(a_limpiar)
a_limpiar = Replace(a_limpiar, "'", "''")
Pepe = a_limpiar
End Function

nom = Pepe("nom")
nif = Pepe("nif")
id = Pepe("id")
cognom1 = Pepe("cognom1")
'... etc

[tuning_boy]

Yo cuando me he encontrado con este problema y no tengo mas remedio que permitir las comillas lo que hago antes de realizar el update es reemplazar la ' por un caracter que sepa que no se va a utilizar en ese campo, el cual si que controlo que no lo introduzcan.