<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("username") <> "") Then Recordset1__MMColParam = Request.QueryString("username") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_extreme2004_STRING Recordset1.Source = "SELECT * FROM tblRegistration WHERE fldUserName = '" + Replace(Recordset1__MMColParam, "'", "''") + "'" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 Dim var_done var_done = "0" If Not Recordset1.EOF Or Not Recordset1.BOF Then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.hogans.net:25" JMail.Sender = "rhogan@hogans.net" JMail.Subject = "Your Username and Password" JMail.AddRecipient (Recordset1.Fields.Item("fldTeacherEmail").Value) JMail.Body = "Your user information is below as requested:." & vbCrLf & vbCrLf JMail.Body = JMail.Body & "User Name : " &(Recordset1.Fields.Item("fldTeacherEmail").Value) & vbCrLf JMail.Body = JMail.Body & "Password : " &(Recordset1.Fields.Item("fldpassword").Value) & vbCrLf JMail.Body = JMail.Body & "You may now use these to log on." JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Execute var_done = "1" End If %> Password Recover Form....

Teacher's Corner
""

 

Fill in the infomation below and
your password word will be e-mailed to you.

<% If Recordset1.EOF And Recordset1.BOF Then %> <%if (Request.QueryString("username") <> "") then %> User name Not On File Please Re-enter. <% End If %> <% End If ' end Recordset1.EOF And Recordset1.BOF %>

User name/E-mail ">

<% If var_done <> "1" Then %>
<% End If %>

<% If var_done = "1" Then %>


Your user name and password have been sent to the e-mail on file.
Please check your e-mail. Click here to return to the login page.

<% End If %>

 

 

 

An educational program sponsored by:

National Science Foundation
University of Delaware
The University of Waikato
University of Southern California
University of Colorado
University of North Carolina
Universidad Nacional Autónoma de Mexico
J. Craig Venter Institute
Mo Bio Laboratories Inc.
Olympus

 

For best results, view this site with Explorer 7.0 or higher on the PC, Firefox 3 or higher on the Mac or PC, and Quicktime 6.0 or higher.
University of Delaware  •   Newark, DE 19716  •   USA  •   Phone: (302) 831-2792  •   © 2008


 

<% Recordset1.Close() Set Recordset1 = Nothing %>