<%response.buffer = true%> Log-in


eagle.gif (4308 bytes)


Cowboy Heaven Consulting, LLC
6116 Walker Road
Bozeman, MT 59715


<%'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



Copyright 2003 Cowboy Heaven Consulting, LLC.  All Rights Reserved.