<% If Request.Servervariables("REQUEST_METHOD")="POST" Then Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DSN=DB3691A" SQLStmt= "Select [First Name], [Last Name], [E-Mail Address], [Password], [Username] From Members " SQLStmt=SQLStmt & " Where [E-Mail Address]='" & Request.Form("NameAddress") &"'" SQLStmt=SQLStmt & " Or [Username]='" & Request.Form("NameAddress") &"'" Set Rs=conn.Execute(SQLStmt) If Rs.Eof=True Then Response.Write("The user name or e-mail address you entered was not found. " & _ "Press the back button on your browser to try again.

") Else Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.weisscurry.com" JMail.Sender = "julia@weisscurry.com" JMail.SenderName = "WeissCurry.com" JMail.Subject = "Your WeissCurry.com user name and password" JMail.Body = "Your user name and password:" & vbcrlf & vbcrlf JMail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR") JMail.AddRecipient Rs.Fields("E-Mail Address") Response.Write("Your user name and password have been sent to "&Rs.Fields("E-Mail Address")) Do while not Rs.eof JMail.Body=JMail.Body + " User Name: "& Rs.Fields("Username") & _ ", Password: "& Rs.Fields("Password") & vbcrlf Rs.MoveNext Loop JMail.Execute JMail.ClearRecipients End If Else %>

Enter your user name or e-mail address to have your WeissCurry.com user name and password e-mailed to you.

Note: Your user name and password will be e-mailed to the address you entered when you registered.

<% End If %>