Colleges and Universities from <%= RSCountry ("Country")%>
<% response.write("") ' loop through records Do While Not RSUni.Eof %>
") %>- "><%= RSUni ("UniversityName")%>
<%RSUni.Movenext Loop response.write("
% 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) %>
<% response.write("") ' loop through records Do While Not RSUni.Eof %>
") %>- "><%= RSUni ("UniversityName")%>
<%RSUni.Movenext Loop response.write("