Here's the latest version of the code. It's coming together well, thank you for your feedback:
_______________________________
<%@ Language=VBScript %>
<%
dim adoConn
dim rsTest
dim strSQL
dim sProctorID
dim sProctorPW
dim sLMSCourseCode
dim sStudentID
dim sSecurityCheck
sProctorID=Request.form("ProctorID")
sProctorPW=Request.form("ProctorPW")
sLMSCourseCode=Request.form("LMSCourseCode")
sStudentID=Request.form("StudentID")
sSecurityCheck=0
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open "DBQ=" & Server.Mappath("ProtcorDB.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
strSQL = "select Count* From RequestRecords
where ProctorID = sProctorID AND
ProctorPW = sProctorPW AND
LMSCourseCode = sLMSCourseCode AND
StudentID = sStudentID;
"
Set rsTest = Conn.Execute(strSQL)
if rsTest.eof then
sSecurityCheck=0
if else
rsTest(0)=0 then sSecurityCheck=0
else
rsTest(0).>0 then sSecurityCheck=1
adoConn.Close
Set adoConn = Nothing
%>