<%
Dim ojbDBConnection
Dim strSQLQuery
strSQLQuery = ""
Set objDBConnection = Server.CreateObject("ADODB.Connection")
objDBConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/rutc/!datasource/rutc.mdb")&";User Id=;Password=;"
Dim objPeople
Set objPeople = Server.CreateObject("ADODB.Recordset")
strSQLQuery = "SELECT firstname, lastname, ID, exrutc FROM people ORDER BY exrutc, firstname, lastname"
objPeople.Open strSQLQuery, objDBConnection
dim strHTMLOutput
strHTMLOutput = ""
dim bPrintedTitleEx,bPrintedTitleOthers
bPrintedTitleEx = False
bPrintedTitleOthers = False
Do While Not objPeople.EOF
if objPeople("exrutc") = true and bPrintedTitleEx = False then
response.write("ex-RUTC peeps")
bPrintedTitleEx = True
elseif objPeople("exrutc") = false and bPrintedTitleOthers = false then
response.write("Other Random People who didn't go to RuTC, but we still love 'em!")
bPrintedTitleOthers = True
end if
strHTMLOutput = strHTMLOutput & "