<%@ Language=VBScript %>
<%
if NOT isempty(Request.Form("OK")) then
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "dinosaur"
set RSFindEmp = conn.Execute("select EmpID, Manager from LibEmps where " _
& "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _
& "Password = '" & Request.Form("Password") & "'")
if RSFindEmp.EOF then
TheMessage = "Invalid email address or password."
else
Session("EmpID") = RSFindEmp("EmpID")
Session("Manager") = RSFindEmp("Manager")
Response.Redirect "./html/library_menu.asp"
end if
else
TheMessage = "Please use this page to log in to the USS Torsk Crew Search Page."
end if
%>
Log InCrew Search