<% '******************************************************************************** '* Filename: SURFNGO.ASP '* Purpose: ETO Surfngo Fare and City Display '* Local Variables: '* Session Variables: '* Query String: '* Application Variables: ConnectionString '* '* Coded by: Patrick Husting, 12/18/97 '******************************************************************************** Response.Expires=0 Response.AddHeader "pragma","no-cache" Session("RESAPP") = "SPECIALS" Session("Booked")="N" '* Check DSN lsDSN = CheckDSN(Application("ConnectionString")) Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open lsDSN '******** Error check to see if a cookie has been assigned. lsGUID = Session("szGUID") Set RS = dbConn.Execute("SELECT * FROM tblUserProfile WHERE Cookie = '" & lsGUID & "'") If Not RS.EOF Then Session("ProfileExists") = "Y" Else Session("ProfileExists") = "N" End If '* Set Surfngo liTypeID = 4 %> Surf 'n Go Online Specials <% '** Retrieve weekly special dates Set RS = dbConn.Execute("SELECT * FROM tblSurfnGoDates WHERE WeeklyID=1") %>


"Welcome to Surf 'n Go Online Specials!   Here are the eligible city pairs for this week's specials. Please select a city pair from the list below by clicking on the fare."

Departing on <%=RS("DepartDate")%> and Returning on <%=RS("ReturnDate1")%> or <%=RS("ReturnDate2")%>

<% 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.

** Fares shown are roundtrip and do not include a $1 federal excise tax which
will be imposed on each flight segment of your itinerary.  A flight segment is defined as a takeoff and landing.


Last minute, discounted packages
for travel this weekend.
Hilton Hotels
Special Internet Rates for Hotel Reservations


(NOTE: To use our site, your browser must support cookies and a version 3.0 and higher browser)
Copyright 1996/97 America West Airlines

Best Viewed With
Microsoft Internet Explorer
Microsoft Internet Software
<% dbConn.Close Session("ErrorCode") = "" Session("ErrorInformation") = "" Session("Booked") = "N" %>