Allora tutto il sistemino deve inserire alcuni dati un in db... La pagina che invia i dati è ok e li invia in questo modo :

.../funzioni.asp?funzione=newuser&name=Prova&Cognome=P ROVaaa&email=francesantu@tin.it&Citta=CECINA&Regio ne=TOSCANA&Submit=Registrati

Ma la pagina funzioni.asp mi da HTTP errore 500... Qualcosa nn va questo è il codice di quella pagina... Dove sta l'errore ??
Per crearlo ho modificato un altro sistemino quindi sicuramente o ho dimenticato qualcosa o c'è qualcosa di troppo che incasina tutto... Vi prego datemi una mano, non riesco a tirarci fuori le gambe altrimenti !

<%@ 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
Dim provincia, oConn, oRs, curDir, strSQL, Conn, RS, SQL,
Dim strBody, strSubject
Dim Mail, str,


DataAttuale = Now


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,">",""))



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


'*************************INVIO EMAIL A UTENTE .*****************************



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
End Sub






%>