<%
Function togliapici(Str)
togliapici=Replace (Str,"''","'")
End Function
richiedi = Request.QueryString("richiedi")
if richiedi="ok" then
'(nota: se il nick e la email corrispondono a quelli inseriti nella registrazione
' allora si manda la pwd altrimenti
' si risponde che nick e email non corrispondono
' e si prega di contattare mx5@pdir.it)
'nickname=trim(Apici(request.form("nickname")))
email= lcase(trim(Request.Form("email")))
'18/04/08 come da mail di Beltramolli cambiamo la richiesta pwd utilizzando solo la mail
sql="select pass,user from utenti,autorizzo where email='"&togliapici(email)&"' AND utenti.id_utente=autorizzo.id_utente"
set rs=conn.execute(sql)
if not rs.eof then
' ' controllare che il nick inserito esista.
' sql="select id_utente,pass from autorizzo where user='"&nickname&"'"
' set rs=conn.execute(sql)
' if not rs.eof then
' user = nickname
' id_utente = rs("id_utente")
'
' 'la pass la prendo in tutti i casi.
' 'se poi i controlli sono positivi uso a variabile
' pwd = rs("pass")
'
' sql="select email from utenti where id_utente="&id_utente&" and email='"&email&"'"
' set rsE=conn.execute(sql)
' if not rsE.eof then
' controlli positivi: mando la mail all'utente con i codici
testo="" & vbcrlf
testo=testo&"" & vbcrlf
testo=testo&"
| " & vbcrlf
testo=testo&"| CODICI PER LA ZONA RISERVATA: | " & vbcrlf
testo=testo&"| User: "& rs("user") &" | " & vbcrlf
testo=testo&"| Password: "& rs("pass") &" | " & vbcrlf
testo=testo&"
| " & vbcrlf
testo=testo&"
| " & vbcrlf
testo=testo&" " & vbcrlf
testo=testo&"" & vbcrlf
oggetto="Mazda mx-5 - Codici di accesso"
'call InviaMail2(email, email, "info@mx5.it", "MX5", oggetto, testo)
call invia_mail_smart_new(email, email, oggetto, "info@mx5.it", "MX5", testo)
'call invia_mail_smart_new("r.asunis@ne-ws.it", email, oggetto, "info@mx5.it", "MX5", testo)
'call invia_mail_smart_new("roberto.asunis@gmail.com", email, oggetto, "info@mx5.it", "MX5", testo)
' Set oMail = Server.CreateObject("Persits.MailSender")
' oMail.Host = "www.mx5.it"
' oMail.From = email
' oMail.Subject = "Mazda mx-5 - Codici di accesso"
' oMail.Body = testo
' oMail.IsHTML = true
' oMail.addAddress email
' oMail.Send
' set oMail= nothing
%>
 |
| La tua richiesta è
stata presa in consegna al più presto riceverà per posta una
mail con i dati richiesti. |
| |
|
| |
| |
| |
| indietro |
<%
else
'la mail non corrisponde
response.redirect("pwd_dimenticata.asp?mex=email")
end if
rs.close
set rs=nothing
' else
' 'mi posso fermare già qui nei controlli se il nick non esiste
' response.redirect("pwd_dimenticata.asp?mex=nick")
' end if
' rs.close
' set rs=nothing
Else
mex=request.querystring("mex")
if mex="nick" then
mex="Spiacenti nick inesistente si prega di contattare mx5@pdir.it"
end if
if mex="email" then
mex="Spiacenti email inesistente si prega di contattare mx5@pdir.it"
end if
%>
|