Grazie degli aiuti, ma ci sono ancora problemi
ù
Adesso ho sistemato il codice ma mi rimanda alla pagina nulla.asp dicendo email assente... MA COME ?? nella stringa che richiama la pagina c'è !! http://www.uffissima.it/antivelox/fu...mit=Registrati

Codice aggiornato

<%@ 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 & "', )"

oRs.open strSQL, oConn

strSQL="SELECT * FROM tblUtenti where pseudo = '" & Pseudo & "' and password = '" & Pwd & "'"
oRS.Open strSQL, oConn, adOpenKeyset, adLockReadOnly


'*************************INVIO EMAIL A UTENTE CON LINK ATTIVAZIONE.*****************************



strEmail=oRS("Email")
strSubject="Adesione manifestazione ANTIVELOX"
strBody="Adesione registrata." & VbCrLf & VbCrLf &_
"Sarai contattato in seguito." & VbCrLf &_
"http://www.uffissima.it/antivelox/ Fai conoscere questo link a tutti quelli che conosci !"

call InviaEmail(strEmail, strSubject, strBody)
oRs.Close
oConn.Close
Response.Redirect("./ok.asp")
End If
End If


Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = "staff@uffissima.it"
Mail.To = strEmail
Mail.Subject = strSubject
Mail.BodyFormat = 0
Mail.MailFormat = 1
Mail.Importance = 1
Mail.Body = strBody
Mail.Send
Set Mail = Nothing







%>