Ora ho sistemato tutto, mi dice ok e mi manda alla pagine di conferma ma.... NEL DB I DATI NON LI MEMORIZZA !!!!!
Xè???


<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<%



'Dim LCID
'LCID = 1040
'Session.LCID = LCID


Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Dim Sessione
Sessione = Session("ConnUSR")

Dim nome, cognome, email, via, citta, Regione, Errore
Dim provincia, oConn, oRs, curDir, strSQL, Conn, RS, SQL
Dim strBody, strSubject
Dim Mail, str





Nome = CStr(Replace(Request.QueryString("name"),"'",""))
Nome = CStr(Replace(nome,"<",""))
nome = CStr(Replace(nome,">",""))

cognome = CStr(Replace(Request.QueryString("cognome"),"'","" ))
cognome = CStr(Replace(cognome,"<",""))
cognome = CStr(Replace(cognome,">",""))

email = CStr(Replace(Request.QueryString("email"),"'",""))
email = CStr(Replace(email,"<",""))
email = CStr(Replace(email,">",""))



citta = CStr(Replace(Request.QueryString("citta"),"'",""))
citta = CStr(Replace(citta,"<",""))
citta = CStr(Replace(citta,">",""))

Regione = CStr(Replace(Request.QueryString("regione"),"'","" ))
Regione = CStr(Replace(regione,"<",""))
REgione = CStr(Replace(regione,">",""))

curDir = Server.MapPath("..\mdb-database\antivelox.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DBQ=" & Server.MapPath("..\mdb-database\antivelox.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20 ;", "username", "password"
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DBQ=" & Server.MapPath("..\mdb-database\antivelox.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20 ;", "username", "password"

'***************************************AGGIUNGI NUOVO UTENTE******************************************

if Request.QueryString("funzione") = "newuser" then

If nome = "" Then
Errore = "Nome Assente"
End If

if cognome = "" Then
Errore = "Cognome Assente"
End If

If email = "" Then
Errore = "E-mail Assente"
End If


If citta = "" Then
Errore = "Città Assente"
End If

If Regione = "" Then
Errore = "Regione Assente"
End If



If Errore <> "" Then
Response.Redirect("./nulla.asp?errore=" & errore &"")
Else


strSQL = "INSERT INTO tblUtenti (Nome, Cognome, Email, Citta, Regione, ) VALUES ('" &_
nome & "', '" & Cognome & "', '" & Email & "', '" & Citta & "', '" & regione & "', )"
End If
Response.Redirect("reply_no_back.asp")
End If












%>