<% Set RS = dbConn.Execute("SELECT * FROM tblSpecialTypes WHERE SpecialTypeID=4") 'liSpecialTypeID = RS("SpecialTypeID") If ucase(left(FormatDateTime(Date, vbLongDate),3)) = "WED" OR _ ucase(left(FormatDateTime(Date, vbLongDate),3)) = "THU" OR _ ucase(left(FormatDateTime(Date, vbLongDate),3)) = "FRI" Then 'lsSQL = "SELECT tblSpecials.DepartCity, tblSpecials.DestCity, tblCityCode.CityName, tblSpecials.RTPrice " 'lsSQL = lsSQL & "FROM tblCityCode INNER JOIN tblSpecials ON tblCityCode.CityCode = tblSpecials.DepartCity " 'lsSQL = lsSQL & "WHERE (((tblSpecials.SpecialTypeID)=4));" lsSQL = "SELECT DepartCity, DestCity, RTPrice, OWPrice, DepartCityName = tblCityCodeDepart.CityName, DestCityName = tblCityCodeDest.CityName " lsSQL = lsSQL & "FROM tblSpecials INNER JOIN tblCityCode tblCityCodeDepart ON tblSpecials.DepartCity = tblCityCodeDepart.CityCode " lsSQL = lsSQL & "INNER JOIN tblCityCode tblCityCodeDest ON tblSpecials.DestCity = tblCityCodeDest.CityCode " lsSQL = lsSQL & "INNER JOIN tblSpecialTypes ON tblSpecials.SpecialTypeID = tblSpecialTypes.SpecialTypeID " lsSQL = lsSQL & "WHERE tblSpecials.SpecialTypeID = " & liTypeID & " AND Active=-1 " lsSQL = lsSQL & " ORDER BY DepartCityName, RTPrice, DestCityName" Set RS = dbConn.Execute(lsSQL) If RS.EOF Then %> <% Else Do While Not RS.EOF %> <% RS.MoveNext Loop End If Else %> <%End If%>

[RESTRICTIONS]
Tickets must be purchased by <%=RS("PurchaseDateEnd")%> midnight (Central Time)
Roundtrip Fare **	Origination City	Destination City
Weekly Specials posted on Wednesday through Friday.
&dest=<%=Trim(RS("DestCity"))%>&Type=<%=liTypeID%>" onmouseover="mouseover();" onmouseout="mouseout();"><%=FormatCurrency(RS("RTPrice"),0)%>	<%=RS("DepartCityName")%>	<%=RS("DestCityName")%>
Weekly Specials are posted Wednesday through Friday.