<% if Request.Form("email")="" then Response.Redirect("forgot.asp") %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:\Inetpub\database\users.mdb" sql = "SELECT pass_word FROM users WHERE email='" & Request.Form("email") & "'" set rs=conn.Execute(sql) if rs.EOF then rs.close conn.close Response.Redirect("doesnotexist.asp") end if dim objPasswordMail set objPasswordMail = Server.CreateObject("CDONTS.NewMail") with objPasswordMail .From = "sales@undergroundguides.com" .To = Request.Form("email") .Subject = "Underground Guides Password" .body = "Your Underground Guides password is " & rs.Fields("pass_word") .Send end with set objPasswordMail = Nothing rs.close Session("action")="Password Mailed" sql="INSERT INTO activity (date_time,email,ip_address,user_action)" sql=sql & " VALUES " sql=sql & "('" & Now() & "'," sql=sql & "'" & Session("email") & "'," sql=sql & "'" & Request.ServerVariables("REMOTE_ADDR") & "'," sql=sql & "'" & Session("action") & "')" conn.Execute sql conn.close %> Underground Guides

Forgotten Password

Your password has been sent to : <%=Request.Form("email")%>

Click here to go to the login screen.