<%
On Error resume next
email = request.form("email")
if email <> "" then
sql = "select NOME, USER_NAME, EMAIL_RICHIEDENTE EMAIL, PARTITA_IVA, PASSWORD from UTENTI where EMAIL_RICHIEDENTE = '"& email & "'"
'response.Write(sql)
Set rs = OBJdbConnection.Execute(sql)
if not rs.eof then
username = rs("USER_NAME")
email = rs("EMAIL")
password = rs("PASSWORD")
nome = rs("NOME")
if nome is null then
nome = ""
end if
testo = "Salve "& replace(nome,"'","''") &","_
& vbCrLf & "come da Lei richiesto Le rinviamo i suoi dati per l'accesso al portale:"_
& vbCrLf & vbCrLf &"username: "& username & vbCrLf &"password: "& password & vbCrLf & vbCrLf &""_
& vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf &"IMPORTANTE:"_
& vbCrLf &" non rispondere a questa email, l'indirizzo non e' abilitato alla ricezione della posta."
mittente = "FCP online"
emailMittente = "fcp@computime.it"
destinatario = email
emailDestinatario = email
titoloEmail = "FCP - Richiesta password smarrita"
messaggio = testo
inviaMail mittente, emailMittente, destinatario, emailDestinatario, titoloEmail, messaggio
response.Write(" Esito:Ok ")
response.write("")
response.write("")
else
response.write("")
end if
else
%>
Reinvio password
<%
end if
%>