<% Dim pageName pageName="tours" %> <% dim queryTour, link 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.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.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.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.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.asp?chCode="&rsTour(2) %> {|||<%=rsTour(3)%>,<%=link%>,_top} <% rsTour.MoveNext wend rsTour.close() %> ">

 

 

    <% queryTour = "SELECT * FROM Tours WHERE intCategoryID = 2" rsTour.Open queryTour, connect while NOT rsTour.EOF link = "tours.asp?chCode="&rsTour(2) %>
  • > <%=rsTour(4)%> <%=rsTour(10)%>
    • <% rsTour.MoveNext wend rsTour.close() %>

BEWARE! Some excitement may be experienced on these tours!

 

<% call writeFooter(pagename) %>
<%call writeBottom()%>
<% dbClose() %>