<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> First Class 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 database = "../../../private/oztalk-flights" Set Connect = Server.CreateObject("ADODB.Connection") connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(database) & ";" Query = "SELECT * FROM FirstClassOZ WHERE Date >= Date() AND (Site >=2) ORDER BY Import ASC, Price1 ASC" Set OnMenu = Connect.Execute(Query) DayNum = 1 do until OnMenu.EOF Or DayNum > 30 %> ">
" width="150" height="36">

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

<%=OnMenu("Notes")%>

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