Recupera password

<% uname=request("uname") email=request("email") %> Inserisci il nickname che hai usato per la registrazione

inserisci l'indirizzo email con cui ti sei registrato




<% if email<>"" and uname<>"" then Set OBJdbConnection = Server.CreateObject("adodb.connection") OBJdbConnection.Open Application("DSN") sql="select * from nuke_users where uname= '"&uname&"' and email= '"&email&"' and escluso=0" set rs=OBJdbConnection.execute (sql) Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 'Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "smtp.clinicaveterinaria.org" Flds(cdoSMTPServerPort) = 25 'Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update if not rs.eof then do while not rs.eof Set objMail = Server.CreateObject("cdo.message") Set objMail.Configuration = iConf objMail.From="info@clinicaveterinaria.org" objMail.ReplyTo= "info@clinicaveterinaria.org" objMail.Subject="Richiesta nuova password - registrazione forum" piede= "Messaggio generato automaticamente : hai richiesto una nuova password per accedere al forum di ClinicaVeterinaria.org. "&VbCrLf&" Per eseguire il login clicca sul seguente link o copia e incolla l'indirizzo nella barra di navigazione :"&VbCrLf&" http://www.clinicaveterinaria.org/public/modules.php?name=Your_Account&op=login2&uname="&rs("uname")&"&pass="&rs("pass") objMail.textBody=piede objMail.sender="info@clinicaveterinaria.org" objMail.To= rs("email") objMail.Send rs.movenext cc=cc+1 loop %> Ti stata spedita una email con le indicazioni per eseguire il login :) <% else %> Non ci sono corrispondenze tra username e email forniti e i dati inseriti nel database... prova di nuovo <% end if Set objMail = nothing rs.close set rs= nothing OBJdbConnection.close set OBJdbConnection= nothing end if %>