<%@LANGUAGE="VBSCRIPT"%> <% response.buffer = true ' Get category strCatId = Request("cat") strSuburbId = Request("town") If strCatId <> "" Then OpenDB set rs = DB.Execute("select CatName from Categories where CatId=" & strCatId) strCatName = rs("CatName") rs.Close Set rs = Nothing If strSuburbId = "" Then strSuburbName = "" Else set rs = DB.Execute("select SuburbName from Suburbs where SuburbId=" & strSuburbId) strSuburbName = rs("SuburbName") rs.Close Set rs = Nothing End If strSQL = "select * from Categories where CatParent=" & strCatId & " order by CatName" Set rs = DB.Execute(strSQL) dim catId() dim catOms() dim lngCountCat lngCountCat = -1 while not rs.EOF lngCountCat = lngCountCat + 1 redim preserve catId(lngCountCat) redim preserve catOms(lngCountCat) catId(lngCountCat) = rs("CatId") catOms(lngCountCat) = rs("CatName") rs.MoveNext wend rs.Close Set rs = Nothing strSQL = "select * from Suburbs order by SuburbName" Set rs = DB.Execute(strSQL) dim burbId() dim burbOms() dim burbState() dim burbPcode() dim lngCountBurb lngCountBurb = -1 while not rs.EOF lngCountBurb = lngCountBurb + 1 redim preserve burbId(lngCountBurb) redim preserve burbOms(lngCountBurb) redim preserve burbState(lngCountBurb) redim preserve burbPcode(lngCountBurb) burbId(lngCountBurb) = rs("SuburbId") burbOms(lngCountBurb) = rs("SuburbName") burbState(lngCountBurb) = rs("State") burbPcode(lngCountBurb) = rs("Postcode") rs.MoveNext wend rs.Close Set rs = Nothing strSQL = "select CategoryCriteria.CritId, Criteria.CritName" strSQL = strSQL & " from CategoryCriteria, Criteria" strSQL = strSQL & " where CategoryCriteria.CritId=Criteria.CritId" strSQL = strSQL & " and CatId=" & strCatId Set rs = DB.Execute(strSQL) dim critId() dim critOms() dim lngCountCrit lngCountCrit = -1 while not rs.EOF lngCountCrit = lngCountCrit + 1 redim preserve critId(lngCountCrit) redim preserve critOms(lngCountCrit) critId(lngCountCrit) = rs("CritId") critOms(lngCountCrit) = rs("CritName") rs.MoveNext wend rs.Close Set rs = Nothing DB.Close Set DB = Nothing End If %> Search tropicalnsw.com.au

 

 

 

SEARCH PAGE

The tourism database contains a complete listing of all tourism related businesses in the area. If your business is not listed and you think it should be, contact us.

Home
Search
Our towns
Things to do
Surfing
Photo album
Helpful information
Regional cuisine
Contact us

<% If strCatId= "" Then %> Choose a category to begin your search

Places to stay - Eating out - Clubs and pubs - Things to do - Services

<% Else %>

Places to stay - Eating out - Clubs and pubs - Things to do - Services

<% If strSuburbId<>"" Then %> <% End If%>
<% If strSuburbId <> "" Then %> <% End If %> <% If lngCountCat > -1 Then %> <% End If %> <% If strSuburbId = "" Then %> <% End If %> <% If lngCountCrit > -1 Then %> <% End If %>
<%=strCatName%> <% If strSuburbName <> "" Then %> (<%=strSuburbName%>) <% End If%>
Search surrounding area
Category
Town
Search surrounding area
Criteria
<% End If %> Key to Symbols
terms & conditions  credits