% 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 |
| FRANCE |
| Rhone Alpes |
| Haute Savoie Choose a Location: |
| Annecy |
| Regions | Departments | Countries | Advice | Site Search | Home | |||||||||||||||
| Map | Information | Bookshop | Links | Mail Us | Stop Press | |||||||||||||||
|
|||||||||||||||||||||||