<% DbInitConnection SET country = oConnection.Execute("SELECT country_no,country_name FROM countries WHERE Country_id = 'ZA' ORDER BY country_name ASC") SET States = oConnection.Execute("SELECT id,state FROM states WHERE CountryID = 192 ORDER BY State ASC") SET Categorys = oConnection.Execute("SELECT id,CatName FROM Categorys WHERE SiteID = " & SiteID & " AND SubCat > 0 ORDER By vOrder, CatName ASC") ' response.write SiteID StateInfo = States.Getrows %>
~Very Specific! Must Have Search Facility ~
This Search Facility helps to ' fine-tune' your search further by including a few 'must-haves' as part of your 'criteria' in making a final decision to stay at a particular establishment. When using this facility please understand the following:
a) Choosing too many 'must-have-facilities' (activities) may result in your 'search-results' being greatly reduced, perhaps down to only 1 or 2 establishments. You may have to compromise and leave out the less important 'must-have-facilit1es' of your comprehensive list.
b) The Establishments may have inadvertently omitted to include 1 or 2 of the 'must-have-facilities' (activities) you have selected, ... yet they may have them. If you are attracted to a particular establishment, it would be wise to communicate with them via the Online Enquiry Form.
c) The 'Onsite Facilities' and the 'Onsite Activities' including the ... whatever is 'Available Nearby' icons are displayed on each establishment's listing in any event. These are displayed by default on the search-results pages when using any search method on this site.
d) Bottom line ... don't be too fussy, ... and don't hesitate to communicate with the venue owners via the Online Forms. If they have not got what you want - they may simply get it for you!
|<% Area = 0 + Request.QueryString("a") City = 0 + Request.QueryString("c") Suburb = 0 + Request.QueryString("s") Map = "" & Request.QueryString("Map") 'msg = "SEARCH Through entire database" IF Area > 0 THEN DBinitConnection oRecordSet.Open "Select cities.id,cities.city,countries.country_name,states.state FROM cities,countries,states WHERE cities.stateid = states.id AND countries.country_no = states.countryid AND cities.stateid = " & Area & " ORDER BY cities.city ASC ",oConnection AreaInfo = oRecordSet.GetRows msg = "SEARCHING in " & AreaInfo(2,0) & " ---> " & AreaInfo(3,0) 'IF City > 0 THEN msg = msg = "SEARCHING in " & AreaInfo(2,0) & " ---> '" & AreaInfo(3,0) & Filter(AreaInfo(1,), city) DbReleaseConnection END IF %>|
<% DbReleaseConnection %>