sto cercando di creare un'area riservata.. questo è il mio codice..
e questo è l'errore che mi dà.. perché?codice:<% dim nome dim password dim email nome=request.form("nome") password=request.form("password") email=request.form("email") 'verifico se l'utente è già iscritto Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("blog.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT nome,password FROM utenti WHERE nome=" & nome & " AND password=" & password & "", conn, 2, 1 rs.movenext if not(rs.eof) Then response.redirect("errore2.htm") rs.close conn.close set rs = nothing set conn = nothing if (rs.eof) Then 'aggiungo l'utente Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("blog.mdb") dim sql set sql = "SELECT * FROM utenti" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 rs.AddNew rs.Fields("nome")=nome rs.Fields("password")=password rs.Fields("email")=email rs.update rs.Close Set rs=Nothing conn.Close Set conn=Nothing response.redirect("reg_ok.htm") end if %>
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2.
/blog/registrami.asp, line 29![]()

Rispondi quotando