<% If request("email") = "" then %> Please enter your email address below and we will send you your password. <% Else %> <% Const ConnectionString="Driver={SQL Server};Server=216.211.131.97;Database=MountainZone;uid=mtn;pwd=Z0n3;" Set conn = CreateObject("ADODB.Connection") conn.Open ConnectionString sql="SELECT Email, Password FROM MemberAccounts WHERE Email = '" & request("email") & "'" Set RS = Conn.Execute(sql) if RS.eof or RS.bof then response.redirect("/members/member_entry.asp?error=noaccount") Else strEmail = request("email") strPassword = RS("Password") Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.To = strEmail Mailer.From = "MountainZone.com " Mailer.Subject = "Your MountainZone.com Password" ' BodyFormat and MailFormat should be set to 0 for HTML emails. Mailer.MailFormat = 0 Mailer.BodyFormat = 0 mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & "" mailBody = mailBody & " " mailBody = mailBody & "We received word that you had forgotten your password. The password associated with " & strEmail & " is " & strPassword & ". Please keep this email for future reference. Thank you." mailBody = mailBody & "" Mailer.Body = mailBody Mailer.Send response.write "Your password has been sent to " & strEmail & ". Click here to return to the entry page. " End If %> <% End If %>