Chi mi aiuta è un grande !!! HELP errore asp

**caiolo** · 05-07-2005, 19:07

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

%>

**Roby_72** · 05-07-2005, 19:11

Su internet Explorer Menu strumenti --> Opzioni internet --> Avanzate e tolgi la spunta dalla voce "Mostra messaggi di errore HTTP brevi".

Vedrai l'errore.

Roby

**caiolo** · 05-07-2005, 19:22

Ora mi dice : Microsoft VBScript compilation error '800a03f2'

Expected identifier

/antivelox/funzioni.asp, line 21

Dim provincia, oConn, oRs, curDir, strSQL, Conn, RS, SQL,
---------------------------------------------------------^

**Roby_72** · 05-07-2005, 19:25

La virgola alla fine delle righe è una licenza poetica?

codice:

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

Roby

**caiolo** · 05-07-2005, 19:44

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

%>

**caiolo** · 05-07-2005, 19:59

oo! HElP... dai voi l'errore lo vedere a colpo doccio io non ci capisco nulla

**Roby_72** · 05-07-2005, 20:37

Se c'è un errore devi dircelo te.

Roby

**caiolo** · 05-07-2005, 21:50

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

%>

**Roby_72** · 05-07-2005, 21:57

Non esegui la query.

codice:

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

Prima dei redirect devi sempre chiudere le connessioni altrimenti rimangono appese.

Roby

**caiolo** · 05-07-2005, 22:16

Roby ho inserito la chiusura ma nulla, nel DB non salva nulla ma dice cmq che è andato tutto bene

Discussione: Chi mi aiuta è un grande !!! HELP errore asp

Strumenti discussione

Ricerca discussione

Visualizza

Chi mi aiuta è un grande !!! HELP errore asp

Permessi di invio