Salve...ho creato questa pagina di registrazione che mi inserisce i dati in un database, ma ho problemi se inserisco degli apici, so che bisogna fare dei replace ma non so dove e come.
..vi posto il mio codice:
<%
'-------CONNESSIONE E VERIFICA UTENTE ESISTENTE----------
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbcollezione.mdb")
Set rs=server.CreateObject("ADODB.Recordset")
sql="Select utente from tabdbcollezione where utente='"&request("utente")& "'"
rs.Open sql, conn, 3, 3
if not Rs.bof and not Rs.eof then
Response.redirect "utenteesistente.asp"
else
utente=request.form("utente")
password=request.form("password")
nome=request.form("nome")
cognome=request.form("cognome")
titolo=request.form("titolo")
descrizione=request.form("descrizione")
email=request.form("email")
'apro la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbcollezione.mdb")
Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "tabdbcollezione",conn,3,3
rs.AddNew
rs("utente")=utente
rs("password")=password
rs("nome")=nome
rs("cognome")=cognome
rs("titolo")=titolo
rs("descrizione")=descrizione
rs("email")=email
rs.update
rs.Close
sSQL = "SELECT ID "
sSQL = sSql &" FROM tabdbcollezione"
sSQL = sSql &" WHERE utente ='"& utente &"' "
sSQL = sSql &" AND password='"& password&"' "
sSQL = sSql &" AND nome='"& nome&"' "
sSQL = sSql &" AND cognome='"& cognome &"' "
sSQL = sSql &" AND titolo='"& titolo &"' "
sSQL = sSql &" AND descrizione='"& descrizione&"' "
sSQL = sSql &" AND email='"& email &"' "
set RS = server.createobject("adodb.recordset")
RS.open sSql, conn, 1, 1
Session("utente") = utente
ID = rs("ID")
conn.Close
end if
%>
<% Session("idutente") = ID %>
<% Response.Redirect("primapagina2.asp?ID="&ID&"") %>
