<%@ CodePage = 65001 LCID = 1040 %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.addHeader "cache-control", "no-cache"
Response.addHeader "cache-control", "no-store"
Response.CacheControl = "no-cache"
%>
<%
If Request.Form("submit") <> "" Then
bValidEmail = False
' Setup variables
sEmail = Request.Form("email")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
sSql = "SELECT * FROM [utenti]"
sSql = sSql & " WHERE [email] = '" & AdjustSql(sEmail) & "'"
Set rs = conn.Execute(sSql)
If Not rs.Eof Then
sPassword = rs("password")
bValidEmail = True
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
If bValidEmail Then
' Load Email Content
sEmailSubject = ""
sEmailFrom = ""
sEmailTo = ""
sEmailCc = ""
sEmailBcc = ""
sEmailFormat = ""
sEmailContent = ""
Call LoadEmail("forgetpwd.txt")
sEmailFrom = Replace(sEmailFrom, "", "protty@protty.it") ' Replace Sender
sEmailTo = Replace(sEmailTo, "", sEmail) ' Replace Receiver
sEmailContent = Replace(sEmailContent, "", sPassword) ' Replace Password
' Send Email
Call Send_Email(sEmailFrom, sEmailTo, sEmailCc, sEmailBcc, sEmailSubject, sEmailContent, sEmailFormat)
Session("ewmsg") = "Password inviata alla tua email"
Response.Redirect "login.asp"
End If
Else
bValidEmail = True
End If
%>
Pagina Richiesta Password
Torna al login
<% If Not bValidEmail Then %>
Email errata
<% End If %>