<%
if application("SelectSchool")="" then
dim oRs
dim sQuery
set oRs=server.CreateObject("adodb.recordset")
i=0
sRow = "<script language=""JavaScript"">"&vbcrlf
sRow = sRow & "var aSchool = new Array();"&vbcrlf
sRow = sRow & "var iSchoolCount;"&vbcrlf
sQuery = "select * from school"
oRs.open sQuery,conn,1,1
i=0
while not oRs.eof
sRow = sRow & "aSchool["&i&"] = new Array("""&oRs("school_name")&""","""&oRs("section_id")&""","""&oRs("school_id")&""");" &vbcrlf
i = i + 1
oRs.movenext
wend
oRs.close
sRow = sRow & "iSchoolCount="&i&";"&vbcrlf
set oRs = nothing