<%
'-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
' script name :
' author : Misty Rae Myslinski
' copyright : Application X, 2000-2001
' created date :
' description :
' syntax
' function
' history
' date
'-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
OPTION EXPLICIT
%>
SoulMatesWorldWide.com
<%
Dim oMail
Dim sEmail : sEmail = Request.Form("email")
Dim thisPage : thisPage = Request.ServerVariables("SCRIPT_NAME")
Dim x : x = Request("x")
Dim sqlJunk
Dim sPassword
Function FormatMessage(str, pwd)
str = Replace(str, "##PASSWORD##", pwd)
FormatMessage = str
End Function
If Request.ServerVariables("HTTP_METHOD") = "POST" Then
'-- Send mail
sqlJunk = "SELECT Password FROM Member WHERE Email=""" & sEmail & """"
MakeConn defaultConn
MakeRs_view sqlJunk
If NOT Rs.EOF Then
sPassword = Rs("Password")
End If
DestroyRs
DestroyConn
If sPassword <> "" Then
Set oMail = New MailX
With oMail
.MailTo = sEmail
.MailFrom = Application("MemberSupportEmail")
.MailRE = "Password request from www.soulmatesworldwide.com"
.MailBody = FormatMessage(.GetMailBody("ForgotPass.txt"), sPassword)
.Send
End With
Set oMail = Nothing
Response.Redirect thisPage & "?x=_"
Else
Response.Redirect thisPage & "?x=-"
End If
Else
With Response
Select Case x
Case "_"
'-- Show the feedback
.Write "The information you requested has been sent. Please click here to return to login page.
" & vbCrLf
Case "-"
'-- Invalid email address
.Write "We didn't find any members with the email address you supplied. Try Again.
" & vbCrLf
Case Else %>
<%
End Select
End With
End If
%>