<% If Request.Form("PwdLogin") <> "" Then %> <% Set rsPassword = Server.CreateObject("ADODB.Recordset") rsPassword.ActiveConnection = MM_connIWGallery_STRING rsPassword.Source = "SELECT USE_NAME, USE_PASSWORD, USE_EMAIL FROM USERS WHERE USE_NAME = '" & Request.Form("PwdLogin") & "' AND USE_ACCESS = 'Utente'" rsPassword.CursorType = 0 rsPassword.CursorLocation = 2 rsPassword.LockType = 1 rsPassword.Open() If rsPassword.EOF Or rsPassword.BOF Then response.redirect "../home/password.asp?pwd=Il tuo Account non è stato trovato! Controlla i dati inseriti e riprova" Else MailPassword rsPassword.Fields.Item("USE_EMAIL").Value, rsPassword.Fields.Item("USE_NAME").Value, rsPassword.Fields.Item("USE_PASSWORD").Value response.redirect "../home/password.asp?pwd=I tuoi dati di accesso sono stati inviati all'indirizzo " & rsPassword.Fields.Item("USE_EMAIL").Value End If rsPassword.Close() %> <% End If %>

Recupera Password

<%= Request.QueryString("pwd") %> *Login: