<% VarCountryID=Trim(Request.Querystring("CountryID")) '---- Create connection Set ObjDbConn = Server.CreateObject("ADODB.Connection") ObjDbConn.Open "DBQ=d:\www\bulter.nl\database\universities.mdb; DRIVER={Microsoft Access Driver (*.mdb)}", "", "" SQLQuery = "Select * FROM Universities WHERE Country = " & VarCountryID & " ORDER BY UniversityName" Set RSUni = ObjDbConn.Execute(SQLQuery) SQLQuery = "Select country FROM Country WHERE CountryID = " & VarCountryID & " ORDER BY Country" Set RSCountry = ObjDbConn.Execute(SQLQuery) %> All College and University Home Pages directory - - 11 Year Celebration of the World Wide University Index!

Colleges and Universities from <%= RSCountry ("Country")%>

<% response.write("
    ") ' loop through records Do While Not RSUni.Eof %>
  1. "><%= RSUni ("UniversityName")%>
  2. <%RSUni.Movenext Loop response.write("

") %>