<%@ Language=VBScript %> <% Set db = Server.CreateObject("ADODB.connection") Set RsDATA = Server.CreateObject("ADODB.Recordset") db.Open ConStr RsDATA.Open "select * from users where email='" & request("email") & "'", db, adOpenStatic, adLockOptimistic ' The login procedure. If RsDATA.EOF <> true then memberpass = RsDATA("password") memberName = RsDATA("Name") sendPassword message = "Your password has been sent to your email account. Check your email." result = true Else message = "The email you provided is incorrect. Please try again." result = false End if Set db = nothing Set RsDATA = nothing Function sendPassword() body = memberName & "," & chr(13) & _ chr(13) & _ "Here is your login information !" & chr(13) & _ chr(13) & _ "LOGING EMAIL : " & request("email") & chr(13) & _ "PASSWORD : " & memberpass & chr(13) & _ chr(13) & _ "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" & chr(13) & _ siteurl & chr(13) & _ "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" & chr(13) & _ "IP: " & Request.ServerVariables("REMOTE_ADDR") subject = "Your password: " & sitename SendMail request("email"), subject, body, siteemail End function %> <%=sitename%> <%=meta%>
 
FORGOT PASSWORD ?

<%=message%> <% if result = true then else %>


Your Email ?


<% end if %>