home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / DoBookFlight.asp < prev    next >
Text File  |  1997-11-01  |  5KB  |  140 lines
  1. <%@ TRANSACTION=REQUIRED %>
  2. <% Response.Buffer = True %>
  3.  
  4. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  5. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  6. <META NAME="DESCRIPTION" CONTENT="Exploration Air's Flight Booking page">
  7. <META NAME="KEYWORDS" CONTENT="Frequent Flyer, transactions, ASP technology">
  8. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  9. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  10. <!--END META TAGS-->
  11.  
  12. <TITLE>Flight Booking Services</TITLE>
  13. </HEAD>
  14.  
  15. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E OnLoad="JavaScript:PrintBookingResult()">
  16. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  17.  
  18. <!--Change link color on mouseover
  19.     Only if running Internet Explorer 4.0 or later -->
  20. <!--#include file=../libHighlight.inc-->
  21. <!--#include file=../libGlobalFuncs.inc-->
  22.  
  23. <!--COLOR BANNER_START-->
  24. <CENTER>
  25. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  26.     <TR>
  27.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  28.     </TD>
  29.     </TR>
  30.     </TABLE>
  31. <!--COLOR BANNER_END-->
  32.  
  33. <!--BEGIN TABLE CONTAINING LOGO, TITLE, AND NAVIGATIONAL LINK-->
  34. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  35.     <TR>
  36.       <TD VALIGN=TOP WIDTH=415 HEIGHT=76>
  37.             <IMG SRC="images/freqflyer.jpg" WIDTH=420 HEIGHT=240 ALT="Exploration Air Frequent Flyer logo">
  38.             <BR>
  39.             <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5 ALT="Return to Exploration Air Home Page" BORDER=0></A> 
  40.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2><STRONG><A HREF="<%=HomePage("..")%>">EXPLORATION AIR HOME PAGE</A></STRONG></FONT>
  41.       </TD>
  42.       <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>Book a Flight using Miles</FONT>
  43.       </TD>
  44.     </TR>
  45.     <TR>
  46.       <TD VALIGN=TOP WIDTH=415 HEIGHT=15>
  47.             <A HREF="default.asp"><IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5 ALT="Return to Frequent Flyer Home Page" BORDER=0></A> 
  48.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2> <STRONG><A HREF="default.asp">FREQUENT FLYER HOME PAGE</A></STRONG></FONT>
  49.       </TD>
  50.     </TR>
  51. </TABLE>
  52. <!--END TABLE CONTAINING LOGO, TITLE, AND NAVIGATIONAL LINK -->
  53.  
  54. <BR>
  55. <BR>
  56.  
  57. <%
  58.     Dim Book
  59.     Set Book = Server.CreateObject("Flight.Schedule")
  60.  
  61.     Dim m_strDSN, m_lngAccountID, m_strClass, m_strFrom, m_strTo, m_lngMilesLeft
  62.     m_strDSN = Application("DSN")
  63.     m_lngAccountID = Request.QueryString("AccountID")
  64.     m_lngFlightNumber = Request.QueryString("FlightNumber")
  65.     m_datFlightDate = Request.QueryString("FlightDate")
  66.     m_lngFlightMiles = Request.QueryString("FlightMiles")
  67.     m_strClass = Request.QueryString("Class")
  68.     m_lngMilesLeft = Request.QueryString("MilesLeft")
  69.     m_strFrom = Request.QueryString("From")
  70.     m_strTo = Request.QueryString("To")
  71.     
  72.     Book.BookFlight m_strDSN, m_lngAccountID, m_lngFlightNumber, m_datFlightDate, _
  73.         m_lngFlightMiles, m_lngMilesLeft, m_strClass
  74. %>
  75.  
  76. <%
  77.     Sub OnTransactionCommit()
  78.         Dim strReturn
  79.         strReturn = "Thanks for booking the flight from " & m_strFrom & " to " & m_strTo & _
  80.             " on " & FormatDateTime(m_datFlightDate,1) & ". Your balance is now " & _
  81.             FormatNumber(m_lngMilesLeft,0) & " miles."
  82.         Response.Write("<SCRIPT LANGUAGE=JavaScript>" & vbCRLF)
  83.         Response.Write("    function PrintBookingResult()" & vbCRLF)
  84.         Response.Write("    {" & vbCRLF)
  85.         Response.Write("        alert('" & strReturn & "');" & vbCRLF)
  86.         Response.Write("        location.href=" & Chr(34) & "default.asp" & Chr(34) & vbCRLF)
  87.         Response.Write("    }" & vbCRLF)
  88.         Response.Write("</SCRIPT>" & vbCRLF)
  89.     End Sub
  90.  
  91.     Response.Flush
  92. %>
  93.  
  94. <%
  95.     Sub OnTransactionAbort()
  96.         Dim strReturn
  97.         strReturn = "We are sorry to inform you your flight was not booked."
  98.         Response.Write("<SCRIPT LANGUAGE=JavaScript>" & vbCRLF)
  99.         Response.Write("    function PrintBookingResult()" & vbCRLF)
  100.         Response.Write("    {" & vbCRLF)
  101.         Response.Write("        alert('" & strReturn & "');" & vbCRLF)
  102.         Response.Write("    }" & vbCRLF)
  103.         Response.Write("</SCRIPT>" & vbCRLF)
  104.     End Sub
  105.  
  106.     Response.Flush
  107. %>
  108.  
  109. <CENTER>
  110. <P>
  111. <H3>Please be patient while we process your flight from <%= m_strFrom %> to <%= m_strTo %>.</H3>
  112. </CENTER>
  113. <P> 
  114. <P>
  115. <P>
  116. <HR=400>
  117. <P>
  118. <P>
  119.  
  120. <CENTER>
  121. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="../legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  122. </CENTER>
  123.  
  124. <P>
  125.  
  126. <!--BEGIN COLOR BANNER-->
  127. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  128.     <TR>
  129.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  130.       </TD>
  131.     </TR>
  132. </TABLE>
  133. <!--END COLOR BANNER-->
  134. </BODY>
  135. </HTML>
  136.  
  137.  
  138.  
  139.  
  140.