Forgot your Password
or Login?
<%
Dim cnnSimple
Dim rstSimple
Dim strDBPath
Dim objDC
DIm objRS
Dim cnnDBEdit, rstDBEdit
Dim strSQL, strSQL2
Dim strLogin
Dim strPassword
Dim strEmail
Dim strUsername
Dim strPword
Dim iRecordId
strDBPath = Server.MapPath("/members/db/db.mdb")
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Dim CONN_STRING
CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Select Case LCase(Trim(Request.QueryString("action")))
Case "email"
strUsername = Request.Form("Email")
strSQL = "SELECT * FROM Members;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
Do While Not rstDBEdit.EOF
If strUsername = rstDBEdit.Fields("Email").Value Then
strEmail = rstDBEdit.Fields("Email").Value
End If
rstDBEdit.MoveNext
Loop
If (strEmail <> strUsername) Then
Response.Write("Sorry, that email address is not in our database.")
'Response.End
rstDBEdit.Close
Set rstDBEdit = Nothing
Else
strSQL = "SELECT * FROM Members WHERE Email = '"&strUsername&"';"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
strLogin = rstDBEdit.Fields("Login").Value
strEmail = rstDBEdit.Fields("Email").Value
strPassword = rstDBEdit.Fields("Password").Value
Response.Write("
Your login information has been sent to the email address: "&strEmail&"")
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "info@infoplays.com"
objNewMail.To = strEmail
objNewMail.Subject = "Login Information"
objNewMail.Body = "The login Information you requested." & _
vbCrlf & vbCrlf & "Username=" & strLogin & _
vbCrlf & "Password=" & strPassword & _
vbCrlf & "To login visit: http://www.infoplays.com/members/plays.asp" & vbCrlf
objNewMail.Importance = 2
objNewMail.Send
set objNewMail = Nothing
rstDBEdit.Close
Set rstDBEdit = Nothing
End If
'rstDBEdit.Close
'Set rstDBEdit = Nothing
Case Else
%>
