<%
Dim oConn,oRS,sSQL
SET oConn = Server.Createobject("ADODB.Connection")
SET oRS = Server.Createobject("ADODB.Recordset")
oConn.Open sConnectionString
'get quizes
DIM aQuiz
sSQL = "SELECT quiID,quiTitle FROM tblQuiz ORDER BY quiTitle"
oRS.Open sSQL,oConn,3,1,1
IF NOT oRS.EOF THEN aQuiz = oRS.Getrows()
oRS.Close
oConn.Close
SET oRS = nothing
SET oConn = nothing
%>
Teen PCAR
<%
IF ISARRAY(aQuiz) THEN
FOR i = 0 TO uBound(aQuiz,2)
Response.Write("" & aQuiz(1,i) & "")
IF i < uBound(aQuiz,2) THEN Response.Write("
