<% Dim pageName, queryTour, link pageName="tours" dbConnect() set rsTour = Server.createobject("ADODB.Recordset") %>

<%call writeSide(pageName)%>	<%call writeHeader()%>
	{|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> {||4WD Tours} <% queryTour = "SELECT * FROM Tours WHERE chCategory='4WD Tour'" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours/tours.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> {||Trike Tours} <% queryTour = "SELECT * FROM Tours WHERE chCategory='Trike Tour'" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours/tours.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> {|Optional Day Tours} <% queryTour = "SELECT * FROM Tours WHERE intCategoryID = 3" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours/tours.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> {|Overnight Tours} <% queryTour = "SELECT * FROM Tours WHERE intCategoryID = 2" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours/tours.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> {|Long Haul Tours} <% queryTour = "SELECT * FROM Tours WHERE intCategoryID = 4" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours/tours.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> ">     <% call writeFooter(pagename) %>
	<%call writeBottom()%>

<% dbClose() %>