<%

' controlla l'e-mail
user = Trim(Request.Form("user"))

If Len(user) < 5 Then

  Response.write "<P>Hai dimenticato la password?"

  Response.write "<form method=post>" &_
                 "Inserisci lo user-id: "&_
                 "<input type=""text"" name=""user"">"&_

                 "<input type=""submit"" value=""Invia"">"&_

                 "</form> "

Else

  ' apri il database e cerca la password
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open strConn ' da sostiuire

  user = Replace(user, "'", "''")
  SQL = "SELECT Mail, Password FROM members WHERE " &_
        " user = '" & user & "'"
  Set Rs = Conn.Execute(SQL)

  ' non trovato!
  If Rs.EOF Then
    Response.write "<P>Non esiste questo utente!"

  Else
    ' invia la password
    mail = Rs("mail")
    password = Rs("password")

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = "webmaster@sito.boh"
    objMail.To = mail
    objMail.Subject = "Ecco la tua password"
    cdoMail.Body = password
    cdoMail.Send()
    Set cdoMail = Nothing

     Response.Write "<P>Password spedita!"

  End if

  ' un po' di pulizie...
  Rs.Close
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing

 End If

%>