% id=Request("id") accessdb="http://www.a-motorhome-on-tour.co.uk/france.mdb" myDSN = "Driver={Microsoft Access Driver (*.mdb)};" myDSN = myDSN & "DBQ=" & Server.MapPath(accessdb) Query="SELECT * from locations WHERE departmentid LIKE '%" Query= Query & Request("id") & "%'" Query = Query & " ORDER BY location" Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.open(myDSN) Set RSloc = DataConn.execute(Query) Querydept="SELECT * from departments WHERE departmentid LIKE '%" Querydept= Querydept & Request("id") & "%'" Querydept = Querydept & " ORDER BY departmentname" Set RSdept = DataConn.execute(Querydept) thisregionid= RSdept("regionid") Queryreg="SELECT * from regions WHERE regionid LIKE '%"&thisregionid&"%'" Set RSreg = DataConn.execute(Queryreg) thiscountryid= RSreg("countryid") Querycty="SELECT * from countries WHERE countryid LIKE '%"&thiscountryid&"%'" Set RScty = DataConn.execute(Querycty) %>
| COUNTRIES |
| BELGIUM |
| Brabant Wallon Choose a Location: |
| Waterloo |
| Waterloo, Butte de Lion |
| Waterloo, Le Caillou |
|
|
|