buona sera dopo tanto tribolare riesco a compilare uno script per la registrazione utenti....

ma (ovviamente non puo' andare tutto bene) quando faccio la richesta di psw persa mi dice mail inviata correttamente invece non invia nulla
di segutio allego lo scipt
<html>

<head>
<title>SEZIONI RISERVATE</title>
</head>

<body link="#00FFFF" text="#FFFFFF" bgcolor="#000099">



</p>
<p align="center"><font face="Verdana" size="3">Password Persa</font></p>

<%
' PRELEVA L'USERNAME INSERITO

Username = Replace(Request.Form("username"), "'", "''")

' CONTROLLA INNANZITUTTO SE E' STATO PASSATO UN VALORE, CIOE' VERIFICA
' CHE IL CAMPO USERNAME NON SIA VUOTO

IF Username <> "" then

' TUTTO OK...

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' and attivo = 1"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' CONTROLLA SE L'UTENTE ESISTE REALMENTE

IF Not RecSet.Eof Then

' UTENTE ESISTENTE
' PRELEVA I SUOI DATI (USERNAME, EMAIL E PASSWORD)
' E IMPOSTA LA VARIAIBILE "Presente" SU TRUE

Password = RecSet("password")
Email = RecSet("email")

Presente = True

Else
' ALTRIMENTI ... UTENTE NON ESISTENTE
' IMPOSTA LA VARIAIBILE "Presente" SU FALSE

Presente = False
End IF

' Chiude la connessione al DB

RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing

' FA LA CONDIZIONE PER VERIFICARE SE L'UTENTE E' ESISTENTE O MENO

IF Presente = True then

' UTENTE PRESENTE:
' PROVVEDE ALL'INVIO DELL'EMAIL CON I DATI PERSI
' UTILIZZANDO L'OGGETTO CDONTS

mittente = "mia mail"

testo = "Caro utente," & chr(13)
testo = testo & "ecco i dati della tua registrazione a ............:" & chr(13) & chr(13)
testo = testo & "Username: " & username & "" & chr(13)
testo = testo & "Password: " & password & "" & chr(13) & chr(13)
testo = testo & "Lo staff di ......." & chr(13)
testo = testo & "http://www.sito.it"

Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = emaila
email.Subject = "[mio sito] RE-INVIO PASSWORD PERSA!"
email.Body = testo
email.Send

Set email = nothing
%>
<hr>
<p align="center"><font face="Verdana" size="2">Ti è stata inviata una email con la password persa!</font></p>
<hr>
<%
Else

' UTENTE NON ESISTENTE
%>
<hr>
<p align="center"><font face="Verdana" size="2">Utente non esistente!</font></p>
<hr>
<%
End IF

Else

' CAMPO "USERNAME" VUOTO (NON COMPILATO CORRETTAMENTE)
%>
<hr>
<p align="center"><font face="Verdana" size="2">Campo "username" vuoto!</font></p>
<hr>
<%
End IF
%>
</body>
</html>
che devo fare???