|
|
|
Cowboy Heaven Consulting, LLC
6116 Walker Road
Bozeman, MT 59715
406-587-9563
1-877-613-0404
info@cowboyhvn.com
|
<%'On error Resume Next
if request.form("forgot") = "Click Here" then
DSN = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/data/cowboyHeaven.mdb")
Set rs = Server.Createobject("ADODB.RecordSet")
name=trim(request.form("mother"))
sSQL="SELECT * From Subscriber Where MaidenName = '" & name & "' "
rs.Open sSQL,DSN, adOpenStatic
if rs.EOF then
rs.Close
Session("validUser")=False
Session("msg")="Sorry, there is no User by that name. please try again."
response.redirect "../login.asp"
end if
email=rs("EmailAddress")
password=rs("Password")
rs.Close
Set rs = nothing
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail3.registeredsite.com"
JMail.Sender = "Sales@cowboyhvn.com"
JMail.Subject = "Password for Cowboy Heaven.com"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient email
body = "Your password for Cowboy Heaven.com is: " & password
JMail.Body = body
JMail.Execute
Set JMail = nothing
Session("msg") = " Your password has been sent to the email address we have on file."
end if
%>
Hi, nice to see you back again. Enjoy...
<%if Session("msg") <> "" then %>
<%= Session("msg") %>
<%else %>
<%end if %>
User Name:
|
Forgot your password? Just enter your mother's maiden name and
Lost, confused, or just lookin' around? Here's how you get back to the home page
|