The Montessori School of Yakima

Password retrieval

<% If len(trim(Request.Form("username"))) <> 0 Then dim objConn, objRS, strSQL, strUsername Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/data/msy.mdb") & ";" objConn.Open strUsername = Request.Form("username") strSQL = "SELECT * FROM roster WHERE email = '" & strUsername & "'" set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, 3 If not objRS.EOF then ' This is where the message gets emailed <% ' Dim strBody ' Dim objCDOMail ' Set objCDOMail = CreateObject("CDO.Message") ' ' objCDOMail.To = objRS("email") ' objCDOMail.From = "Montessori School of Yakima Administrator " ' objCDOMail.Subject = "Password reminder" ' ' ' This is multi-lined for readability ' strBody = "This message was sent from the Montessori School of Yakima web site." & VBCrLf ' strBody = strBody & "Your password to the parents' section is " & VBCrLf & objRS("password") ' objCDOMail.HTMLBody = strBody ' ' ' Send the message! ' objCDOMail.Send ' ' ' Set the object to nothing because it immediately becomes ' ' invalid after calling the Send method. ' Set objCDOMail = Nothing ' Response.Write("
Your password has been emailed to " & objRS("email") & ".") Response.Write("
Oops, this hasn't been implemented yet. Call Toni at 966-0680 instead.") else Response.Write("
You entered an invalid or unrecognized email address.") end if objRS.Close set objRS = Nothing objConn.Close set objConn = Nothing %>

<% Else %>

 

Password Retrieval

Please enter your email address and press [Submit]; your password will be emailed to that email address

Email address

<% End If %>