Please enter the email that is on record

<%sAction = Request.Form("btnAction") If sAction = "" Then %> <%If session("errormsg")<> "" Then Response.write "

"&session("errormsg")&"

" session("errormsg")= "" End If %>

Please enter your email address to be able to add the returned bottles

Email Address:

<% Else sEmail= request.form("txtEmail") Set oDBConn = Server.CreateObject("ADODB.Connection") oDBConn.Open sDBCONNSTR if sEmail = "" then response.write "Email not found, please try again
" session("errormsg")="No email entered, please try again" session("PeopleID")="" response.Redirect("checkemail.asp") Else Set rsQuest = GetLoginInfo(sEmail) if rsQuest.eof then response.write "Email not found, please try again
" session("errormsg")="Email not found, please try again" session("PeopleID")="" response.Redirect("checkemail.asp") Else response.write rsQuest("PeopleName") & "
"'PeopleID, , PeopleEmail response.write "Please close the window and be patient as the list refreshes to allow you to update the quantity of bottles you are returning
" session("errormsg")="Your email was found.
Please enter the number of bottles you have returned in the textbox in the row next to your name below." session("PeopleID")=rsQuest("PeopleID") response.Redirect("index.asp") End If End If End If %>