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
%>