<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Enhanced Economy flight deals to New Zealand and Australia
first class business class enhanced economy economy
Airline From £* Departing from Valid
<% Dim Connect, OnMenu, ThisDay, Query, database, DayNum, dategap, Display, QueryDisplay, count database = "../../../private/oztalk-flights" ThisDay = Date count = 0 Set Connect = Server.CreateObject("ADODB.Connection") connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(database) & ";" Query = "SELECT * FROM EnhancedEconOZ WHERE Date >= Date() AND (Site >=2) ORDER BY Import ASC, Price1 ASC" QueryDisplay = "SELECT * FROM EnhancedEconOZ WHERE Site >=2" Set OnMenu = Connect.Execute(Query) Set Display = Connect.Execute(QueryDisplay) DayNum = 1 %> <%do until OnMenu.EOF Or DayNum > 30 %> ">
">

<%=OnMenu("Price1")%>   <%=OnMenu("Price1Suffix")%>
<%=OnMenu("Price2")%>   <%=OnMenu("Price2Suffix")%>

<%=OnMenu("Notes")%>

<%=OnMenu("Depart")%> <%=OnMenu("Valid")%>
<% DayNum = DayNum + 1 OnMenu.MoveNext loop %>