<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
%>
<%
dim name, password, haveResults, responseString
haveResults = false
'set the sql statement
dim formEmail
formEmail = Request.Form("Email")
strSQL = "SELECT Name,Password FROM Results WHERE Email=""" & formEmail & """"
'run the query and save to rs
rs.Open strSQL, conn
'if we have a result, send the user their password
if not rs.EOF then
name = rs.Fields("Name")
password = rs.Fields("Password")
haveResults = true
'the email message
dim message
set message = CreateObject("CDO.Message")
message.Subject = "Your Legacy Cruise II Web site Password"
message.To = formEmail
message.From = "webmaster@daveberlin.com"
message.TextBody = "Your username is " & formEmail & " and your password is " & password
message.Send
set message = Nothing
'set the response string to the affirmative
Session("responseString") = "Your username and password have been sent to you. Log in."
'otherwise print a message saying we don't have that user
else
Session("responseString") = "That email address was not found in our records. Try registering."
end if
'close and reset variables
rs.Close
set rs = Nothing
set conn = Nothing
'Redirect to form_submit
'response.write(session("responseString"))
Response.Redirect "form_submit.asp"
end if
%>
Legacy Cruise II
