"> 
">EXPLORATION AIR HOME PAGE
|
Book a Flight using Miles |
|
FREQUENT FLYER HOME PAGE
|
<% Dim Book Set Book = Server.CreateObject("Flight.Schedule") Dim m_strDSN, m_lngAccountID, m_strClass, m_strFrom, m_strTo, m_lngMilesLeft m_strDSN = Application("DSN") m_lngAccountID = Request.QueryString("AccountID") m_lngFlightNumber = Request.QueryString("FlightNumber") m_datFlightDate = Request.QueryString("FlightDate") m_lngFlightMiles = Request.QueryString("FlightMiles") m_strClass = Request.QueryString("Class") m_lngMilesLeft = Request.QueryString("MilesLeft") m_strFrom = Request.QueryString("From") m_strTo = Request.QueryString("To") Book.BookFlight m_strDSN, m_lngAccountID, m_lngFlightNumber, m_datFlightDate, _ m_lngFlightMiles, m_lngMilesLeft, m_strClass %> <% Sub OnTransactionCommit() Dim strReturn strReturn = "Thanks for booking the flight from " & m_strFrom & " to " & m_strTo & _ " on " & FormatDateTime(m_datFlightDate,1) & ". Your balance is now " & _ FormatNumber(m_lngMilesLeft,0) & " miles." Response.Write("" & vbCRLF) End Sub Response.Flush %> <% Sub OnTransactionAbort() Dim strReturn strReturn = "We are sorry to inform you your flight was not booked." Response.Write("" & vbCRLF) End Sub Response.Flush %>
Please be patient while we process your flight from <%= m_strFrom %> to <%= m_strTo %>.