|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobstest/ |
Upload File : |
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#include file="datastore.asp"-->
<%
Dim DATA_PATH, objDC, objRS, userid, user, pass, sendmail
'Maps to database. Change to your database path.
'DATA_PATH=Server.Mappath("jobs.mdb")
' Create and establish data connection
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
'objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
if objDC.State = 0 then 'only open if the connection is closed
objDC.Open sConnect
end if
Set objRS = Server.CreateObject("ADODB.Recordset")
userid=request.form("userid")
'you may need to adjust this to suit your database
objRS.Open "SELECT * FROM TEACHER WHERE email = '" & trim(userid) & "'", objDC, 0, 1
%>
<head>
<title>Forgotten Password</title>
</head>
<body>
<%
'checks if email address exists in the database before sending a message.
if objrs.EOF then
%>
<B><font color="red">
There is no account for <%=userid%>.
</font></B>
<p><a href="resume.asp">Create a new account</a> <a href="default.asp">Home</a>
<% Else %>
<%
'sets variables
userid = request.form("userid")
'chooses username and password from database that correspond to submitted userid.
user = objrs.Fields("email")
pass = objrs.Fields("password")
'Instantiate the SMTP Mailer address
Set sendmail = Server.CreateObject("SMTPsvg.Mailer")
'put the webmaster address here
sendmail.FromName = "WebMaster"
sendmail.FromAddress = "[email protected]"
'Set remote host (SMTP) Host
sendmail.RemoteHost = "smtp.rcn.com"
'The mail is sent to the address entered in the previous page.
sendmail.AddRecipient objRS("name"),objRS.Fields("email")
'Set the return receipt flag to false
sendmail.ReturnReceipt = false
'send the confirm read flag to false
sendmail.ConfirmRead = false
'Enter the subject of your mail here
sendmail.Subject = "The Login Information You Requested"
'This is the content of thr message.
sendmail.BodyText = "The login Information you requested." & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _
& "Password=" & pass & vbCrlf
'this sets mail priority.... 5=low 3=normal 1=high
sendmail.Priority = 2
'send mail
if sendmail.SendMail then
%>
Your login information has been mailed to <%=objRS.Fields("email")%>.<br>
You should receive it shortly.
<p><a href="login.asp?menu=teacher">Edit/Delete Resume</a> <a href="default.asp">Home</a>
<%
else
%>
Mail failure. Your account information was not sent. Please send an email to <a href="mailto:[email protected]">webmaster</a>.
<%end if%>
<%
' Close Data Access Objects and free DB variables
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>