Problema con codice attivazione nuovo utente

[poison81]

Ciao a tutti...ho un problema con l'attivazione di un nuovo utente registrato.

Mi spiego meglio...invio il link via mail che si connette alla pagina confermautente.asp.
Il problema è che non mi setta il campo "registrato".
Vi posto il codice di seguito:

CODICE INVIO E-MAIL:

<%
mex="


"
mex=mex & "Gentile " & nome & ",
"
mex=mex & "ti sei appena registrato sul nostro sito ma abbiamo bisogno che venga confermata la tua iscrizione cliccando sul seguente link:

"
mex=mex & "CLICCA QUI PER CONFERMARE L'ISCRIZIONE
"
mex=mex & "

Ti ringraziamo per la gentile collaborazione...Saluti dallo staff di forzasatanelli.it
"


Set CDOmail = CreateObject("CDO.Message")
CDOmail.From = "forzasatanelli@gmail.com"
CDOmail.To = mail
CDOmail.Subject = "Conferma di registrazione sul sito www.forzasatanelli.it"
CDOmail.HTMLBody = mex
CDOmail.Send()
Set link = Nothing
<%

CODICE confermautente.asp

<%
Response.buffer=true
username=request.querystring("username")
mail=request.querystring("mail")
Dim conn
Set conn= Server.CreateObject("ADODB.Connection")
Set miorecord=Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/utcommunity.mdb")
sql = "select * from registrati where Username='" & username & "' and Email='" & mail & "'"
miorecord.open sql,Conn
if NOT miorecord.eof then
sql = "update registrati set registrato=1 WHERE id=" & miorecord("ID")
miorecord.open sql,conn
else
response.redirect("errore.asp")
end if
%>

Potreste darmi una mano per favore?
Grazie infinite.

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

*immediatamente prima* di eseguire la query metti

Response.Write "maGGica SQL...: " & sql
Response.Flush

poi posta quello che viene a video
----------------------------------------------------

[poison81]

è uscito questo
maGGica SQL...:

[poison81]

dici di inserirlo prima della select???

[poison81]

mi potreste dare una mano a correggere questo codice per favore?
sto impazzendo...

[optime]

Originariamente inviato da poison81
mi potreste dare una mano a correggere questo codice per favore?
sto impazzendo...

e che stiamo facendo? fa' vedere dove hai messo quello che ti ho detto

[poison81]

<%
Response.buffer=true
username=request.querystring("username")
mail=request.querystring("mail")




Dim conn
Set conn= Server.CreateObject("ADODB.Connection")
Set miorecord=Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/utcommunity.mdb")
Response.Write & sql
Response.Flush

sql = "select * from registrati where Username='" & username & "' and Email='" & mail & "'"
miorecord.open sql,Conn

if NOT miorecord.eof then


sql = "update registrati set registrato=1 WHERE id=" & miorecord("ID")
miorecord.open sql,conn
else
'response.redirect("errore.asp")
end if


%>

Grazie per la tua disponibilità :-)

[poison81]

<%
Response.buffer=true
username=request.querystring("username")
mail=request.querystring("mail")




Dim conn
Set conn= Server.CreateObject("ADODB.Connection")
Set miorecord=Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/utcommunity.mdb")
Response.Write "maGGica SQL...: " & sql
Response.Flush

sql = "select * from registrati where Username='" & username & "' and Email='" & mail & "'"
miorecord.open sql,Conn

if NOT miorecord.eof then


sql = "update registrati set registrato=1 WHERE id=" & miorecord("ID")
miorecord.open sql,conn
else
response.redirect("errore.asp")
end if


%>

Grazie per la tua disponibilità :-)

[poison81]

<%
Response.buffer=true
username=request.querystring("username")
mail=request.querystring("mail")




Dim conn
Set conn= Server.CreateObject("ADODB.Connection")
Set miorecord=Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/utcommunity.mdb")
Response.Write "maGGica SQL...: " & sql
Response.Flush

sql = "select * from registrati where Username='" & username & "' and Email='" & mail & "'"
miorecord.open sql,Conn

if NOT miorecord.eof then


sql = "update registrati set registrato=1 WHERE id=" & miorecord("ID")
miorecord.open sql,conn
else
'response.redirect("errore.asp")
end if


%>

Grazie per la tua disponibilità

[optime]

ma hai letto quello che ti ho scritto?

*immediatamente prima* di eseguire la query metti