Africa
<%
'---- 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 Country WHERE Region = 1 ORDER BY Country"
Set RSCountry = ObjDbConn.Execute(SQLQuery)
' loop through records
Do While Not RSCountry.Eof %>
"><%= RSCountry("Country")%> |
<%RSCountry.Movenext
Loop
%>
Americas
<%
SQLQuery = "Select * FROM Country WHERE Region = 3 ORDER BY Country"
Set RSCountry = ObjDbConn.Execute(SQLQuery)
' loop through records
Do While Not RSCountry.Eof %>
"><%= RSCountry("Country")%> |
<%RSCountry.Movenext
Loop
%>
Asia and the Pacific
<%
SQLQuery = "Select * FROM Country WHERE Region = 4 ORDER BY Country"
Set RSCountry = ObjDbConn.Execute(SQLQuery)
' loop through records
Do While Not RSCountry.Eof %>
"><%= RSCountry("Country")%> |
<%RSCountry.Movenext
Loop
%>
Europe
<%
SQLQuery = "Select * FROM Country WHERE Region = 2 ORDER BY Country"
Set RSCountry = ObjDbConn.Execute(SQLQuery)
' loop through records
Do While Not RSCountry.Eof %>
"><%= RSCountry("Country")%> |
<%RSCountry.Movenext
Loop%>
Middle East
<%
SQLQuery = "Select * FROM Country WHERE Region = 5 ORDER BY Country"
Set RSCountry = ObjDbConn.Execute(SQLQuery)
' loop through records
Do While Not RSCountry.Eof %>
"><%= RSCountry("Country")%> |
<%RSCountry.Movenext
Loop
' Tidy up data connections
Set RSCountry = Nothing
ObjDbConn.Close
%>