<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% theMessage = "Enter Your Username" Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "no-cache, no-store,must-revalidate, max-age=-1" Response.AddHeader "pragma", "no-store,no-cache" Response.AddHeader "expires", "-1" If Request.Form("submit") = "SEND EMAIL" Then uname = Request.Form("uname") dbFolder = Server.MapPath("db") dbPath = Server.MapPath("db/liys.mdb") Set adoConn = Server.CreateObject("ADODB.Connection") adoConn.ConnectionString = "DBQ=" & dbPath & ";DefaultDir=" & dbFolder & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;;User Id=admin;" adoConn.Open Set adoRs = Server.CreateObject("ADODB.Recordset") adoRs.CursorType = 2 adoRs.LockType = 2 Set adoRs.ActiveConnection = adoConn adoRs.Open "SELECT * FROM users WHERE username LIKE '" & uname & "';" If adoRs.EOF = True Then theMessage = "
USERNAME NOT FOUND
" Else emailBody = VBcrlf & adoRs.Fields("first_name").Value & VBcrlf & VBcrlf & "Please find your login information below:" & VBcrlf & VBcrlf & "Username: " & adoRs.Fields("username").Value & VBcrlf & "Password: " & adoRs.Fields("passwrd").Value & VBcrlf emailSubject = "LIYS Password Recovery" emailFrom = "liysinfo@dowling.edu" emailTo = adoRs.Fields("email").Value 'emailBcc = "turnerj@dowling.edu" Set myMail = CreateObject("CDO.Message") myMail.Subject = emailSubject myMail.From = emailFrom myMail.To = emailTo 'myMail.Bcc = emailBcc myMail.TextBody = emailBody myMail.Send Set myMail = Nothing theMessage = "
An email containing your password has been sent to the email address you provided when you registered.
" End If adoRs.Close Set adoRs.ActiveConnection = Nothing Set adoRs = Nothing Set adoConn = Nothing End If %> Account Login | Long Island Youth Summit
http://www.dowling.edu/
DOWLING.EDU PHOTOS/ARCHIVES   CONTACT   HOLD MY SPOT
HS STUDENTS TEACHERS/PRINCIPALS STEERING COMMITTEE
 
<%=theMessage%>

" method="post" onsubmit="return check4Errors();"> Username