|
<%
if Request.Form("utente") <> "" then
new_utente = Request.Form("utente")
new_password = Request.Form("password")
new_email = Request.Form("email")
new_ragsoc = Request.Form("ragsoc")
new_indirizzo = Request.Form("indirizzo")
new_citta = Request.Form("citta")
new_provincia = Request.Form("provincia")
new_telefono = Request.Form("telefono")
new_fax = Request.Form("fax")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/clienti.mdb")
sql = "SELECT * FROM users"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
RS.AddNew
RS.Fields("utente") = new_utente
RS.Fields("password") = new_password
RS.Fields("email") = new_email
RS.Fields("ragsoc") = new_ragsoc
RS.Fields("indirizzo") = new_indirizzo
RS.Fields("citta") = new_citta
RS.Fields("provincia") = new_provincia
RS.Fields("telefono") = new_telefono
RS.Fields("fax") = new_fax
RS.Update
RS.Close
set RS = Nothing
conn.Close
Set conn=Nothing
response.Redirect("iscr_ok.htm")
end if
%>
|
