<%@ LANGUAGE = "VBScript" %>
Race Registration
<%
dim state
if request.form("Reset") = "Reset" then
state = "0"
else
state = request.form("state")
end if
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "BART"
SELECT CASE state
CASE state = ""
call loadarray
CASE state = "0"
call loadarray
END SELECT
objConnection.close
%>
<%
sub loadarray
SQLQuery = "SELECT DISTINCT team.id, school, password FROM team ORDER BY id"
Set rsTeam = objConnection.Execute(SQLQuery)
dim first, last
%>
EISA Race Registration
Please select your team and enter your password to gain access to the database...
<%
end sub %>
Copyright B.A.R.T. Sept. 2000
Last revised: December 21, 2000