Ciao a tutti,
sto cercando di far funzionare un recupero password attraverso mail...
la mail arriva, esce il messaggio, l'oggetto, ma niente password...come mai?
vi incollo il codice, magari sbaglio qcs e non mi rendo conto... grazie mille a tutti.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
tipouser=trim(request("tipouser"))
set conn = server.CreateObject("Adodb.connection")
conn.open strconn
email=trim(request("email"))
if email <> "" and tipouser <> "" then
recupero=true
set rsDati= server.CreateObject("Adodb.recordset")
if tipouser="utente" then
sql="select psw from TblUtenteAna where email ='"& email &"'"
else
sql="select psw from TblOfferente where email ='"& email &"'"
end if
rsdati.open sql,conn
if not rsdati.eof then
ctrl=true
psw=rsdati("psw")
Msg = Msg & "*******************" & "
"
Msg = Msg & "** xxxxxxxxxxx **" & "
"
Msg = Msg & "*******************" & "
" & "
"
Msg = Msg & "**Richiesta Recupero password a xxxxxxxxxxx**" & "
" & "
" & "
"
Msg = Msg & "La password per accedere a xxxxxxxxxxx e " & psw
Set objMail=Server.CreateObject("CDO.Message")
objMail.From="registrazioni@xxxxxxxxxxx.com"
objMail.To=Email
oggettomail="Recupero Password iscrizione a xxxxxxxxxxx"
objMail.Subject=oggettomail
objMail.HTMLBody =Msg
'objMail.BodyFormat=1
'objMail.MailFormat=0
objMail.Send
Set objMail=nothing
else
ctrl=false
end if
end if
%>

Rispondi quotando
