<% Dim pageName pageName="tours" %> <% dim chcode, tour dbConnect() chCode = "'" & Request.queryString("chCode") &"'" set rsTour = Server.createobject("ADODB.Recordset") set rs = 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() %> ">

 

<% query = "SELECT * FROM Tours WHERE chCode="&chCode rs.Open query, connect if rs.EOF then %>      Sorry, this page does NOT exist!
     Click here to return to our Homepage <% else tour = UCase(rs(3)) %>
 

<%=tour%>
Where: <%=rs(4)%>
What:

<%=rs(5)%>
When: <%=rs(6)%>
Cost*: <%=rs(7)%>
Tour Code: <%=rs(2)%>
<% end if %>

 

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