home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / HIWBenefitsSchema.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  7.7 KB  |  186 lines
  1. <%
  2.  
  3.   ' Save URL of calling page as needed
  4.   SetURLCallHIW
  5.  
  6. %>
  7.  
  8. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  9. <HTML>
  10. <HEAD>
  11. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  12. <META NAME="DESCRIPTION" CONTENT="How It Works Page">
  13. <META NAME="KEYWORDS" CONTENT="help, schema, questions, database, explanation">
  14. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  15. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  16. <!--END META TAGS-->
  17.  
  18. <TITLE>Benefits Database Schema</TITLE>
  19. </HEAD>
  20.  
  21. <BODY  BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#808080 LINK=#FFCC00>
  22. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  23.  
  24. <!--Change link color on mouseover
  25.     Only if running Internet Explorer 4.0 or later -->
  26. <!--#include file=../libHighlight.inc-->
  27.  
  28. <!--BEGIN MAIN TABLE-->
  29. <TABLE WIDTH="100%" HEIGHT="100%" CELLPADDING=0 CELLSPACING=0  BGCOLOR="#000000" BORDER=0>
  30.   <TR>
  31.     <TD BGCOLOR="#000000" ALIGN=CENTER VALIGN=TOP WIDTH=170>
  32.       <BR>
  33.       <IMG SRC="../images/btslarge.jpg" HEIGHT=119 WIDTH=171  
  34.         ALT="Behind the Scenes at Exploration Air" BORDER=0 >
  35.       <BR>
  36.       <BR>
  37.       <BR>
  38.       <!--BACK BUTTON AND VARIABLE TO RETURN TO ORIGINATING PAGE-->
  39.       <A HREF="<%=Session("URLCallHIW")%>">
  40.         <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 ALT="Return to Exploration Air Benefits"  
  41.           HSPACE=2 BORDER=0>
  42.       </A>
  43.       <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA"><STRONG>
  44.         <A HREF="<%=Session("URLCallHIW")%>" TITLE="Return to Exploration Air Benefits">
  45.           B  A  C  K
  46.         </A>
  47.       </STRONG></FONT>
  48.       <BR> 
  49.       <BR>
  50.       <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA"><STRONG>
  51.         <A HREF="HIWBenefitsDatabase.asp" TITLE="Click to view Database Table Details">
  52.           T  A  B  L  E  S
  53.         </A>
  54.       </STRONG></FONT>
  55.       <BR>
  56.       <BR>
  57.     </TD>
  58. <!--Show image of database schema-->
  59.     <TD BGCOLOR="#000000" ALIGN=CENTER VALIGN=TOP WIDTH=170>
  60.       <IMG SRC="images/BenefitsSchema.gif" USEMAP="#SchemaMap">
  61.     </TD>
  62.   </TR>
  63. </TABLE>
  64. <!--END MAIN TABLE-->
  65.  
  66. <BR>
  67. <BR>
  68.  
  69. <CENTER>
  70. <!--BEGIN LEGAL INFORMATION-->
  71. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
  72.   <TR>
  73.     <TD>
  74.       <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1">
  75.         <A HREF="../legal.htm">
  76.           ©1997 Microsoft Corporation. All rights reserved. Terms of Use.
  77.         </A>
  78.       </FONT>
  79.       <P>
  80.     </TD>
  81.   </TR>
  82. </TABLE>
  83. </CENTER>
  84. <!--END LEGAL INFORMATION-->
  85.  
  86. <!-- Define Image Map -->
  87. <MAP NAME="SchemaMap">
  88. <AREA SHAPE=RECTANGLE COORDS="22, 18, 175, 94" HREF="HIWBenefitsDatabase.asp#Gender" 
  89.   TITLE="Click to view Gender table details"> 
  90. <AREA SHAPE=RECTANGLE COORDS="22, 116, 175, 257" HREF="HIWBenefitsDatabase.asp#Dependent" 
  91.   TITLE="Click to view Dependent table details"> 
  92. <AREA SHAPE=RECTANGLE COORDS="22, 270, 175, 346" HREF="HIWBenefitsDatabase.asp#Field" 
  93.   TITLE="Click to view Field table details"> 
  94. <AREA SHAPE=RECTANGLE COORDS="22, 372, 175, 464" HREF="HIWBenefitsDatabase.asp#PlanField" 
  95.   TITLE="Click to view PlanField table details"> 
  96. <AREA SHAPE=RECTANGLE COORDS="22, 492, 175, 646" HREF="HIWBenefitsDatabase.asp#Plans" 
  97.   TITLE="Click to view Plans table details"> 
  98. <AREA SHAPE=RECTANGLE COORDS="22, 672, 175, 731" HREF="HIWBenefitsDatabase.asp#PlanGeoArea" 
  99.   TITLE="Click to view PlanGeoArea table details"> 
  100. <AREA SHAPE=RECTANGLE COORDS="202, 54, 356, 145" HREF="HIWBenefitsDatabase.asp#EmployeeDependent" 
  101.   TITLE="Click to view EmployeeDependent table details"> 
  102. <AREA SHAPE=RECTANGLE COORDS="202, 168, 378, 276" HREF="HIWBenefitsDatabase.asp#EmployeeBenefitDependent" 
  103.   TITLE="Click to view EmployeeBenefitDependent table details"> 
  104. <AREA SHAPE=RECTANGLE COORDS="209, 298, 361, 374" HREF="HIWBenefitsDatabase.asp#Physician" 
  105.   TITLE="Click to view Physician table details">
  106. <AREA SHAPE=RECTANGLE COORDS="203, 383, 357, 458" HREF="HIWBenefitsDatabase.asp#BenefitPlan" 
  107.   TITLE="Click to view BenefitPlan table details">
  108. <AREA SHAPE=RECTANGLE COORDS="220, 467, 374, 545" HREF="HIWBenefitsDatabase.asp#BenefitStatus" 
  109.   TITLE="Click to view BenefitStatus table details">  
  110. <AREA SHAPE=RECTANGLE COORDS="226, 604, 379, 681" HREF="HIWBenefitsDatabase.asp#PlanStatus" 
  111.   TITLE="Click to view PlanStatus table details">
  112. <AREA SHAPE=RECTANGLE COORDS="380, 20, 534, 97" HREF="HIWBenefitsDatabase.asp#EDStatus" 
  113.   TITLE="Click to view EDStatus table details"> 
  114. <AREA SHAPE=RECTANGLE COORDS="420, 139, 573, 215" HREF="HIWBenefitsDatabase.asp#EBDStatus" 
  115.   TITLE="Click to view EBDStatus table details"> 
  116. <AREA SHAPE=RECTANGLE COORDS="407, 254, 561, 490" HREF="HIWBenefitsDatabase.asp#Benefit" 
  117.   TITLE="Click to view Benefit table details">
  118. <AREA SHAPE=RECTANGLE COORDS="414, 586, 556, 665" HREF="HIWBenefitsDatabase.asp#BenefitQualifier" 
  119.   TITLE="Click to view BenefitQualifier table details">
  120. <AREA SHAPE=RECTANGLE COORDS="544, 32, 697, 124" HREF="HIWBenefitsDatabase.asp#DependentType" 
  121.   TITLE="Click to view DependentType table details"> 
  122. <AREA SHAPE=RECTANGLE COORDS="594, 178, 748, 304" HREF="HIWBenefitsDatabase.asp#EmployeeBenefit" 
  123.   TITLE="Click to view EmployeeBenefit table details"> 
  124. <AREA SHAPE=RECTANGLE COORDS="628, 332, 782, 408" HREF="HIWBenefitsDatabase.asp#TaxStatus" 
  125.   TITLE="Click to view TaxStatus table details"> 
  126. <AREA SHAPE=RECTANGLE COORDS="628, 446, 783, 523" HREF="HIWBenefitsDatabase.asp#BenefitTaxStatus" 
  127.   TITLE="Click to view BenefitTaxStatus table details">
  128. <AREA SHAPE=RECTANGLE COORDS="624, 531, 776, 655" HREF="HIWBenefitsDatabase.asp#Qualifier" 
  129.   TITLE="Click to view Qualifier table details"> 
  130. <AREA SHAPE=RECTANGLE COORDS="702, 15, 856, 90" HREF="HIWBenefitsDatabase.asp#EmployeeStatus" 
  131.   TITLE="Click to view EmployeeStatus table details"> 
  132. <AREA SHAPE=RECTANGLE COORDS="866, 66, 1021, 369" HREF="HIWBenefitsDatabase.asp#Employee" 
  133.   TITLE="Click to view Employee table details">
  134. <AREA SHAPE=RECTANGLE COORDS="798, 406, 952, 500" HREF="HIWBenefitsDatabase.asp#EmployeeQualifier" 
  135.   TITLE="Click to view EmployeeQualifier table details"> 
  136. <AREA SHAPE=RECTANGLE COORDS="821, 514, 975, 591" HREF="HIWBenefitsDatabase.asp#QualifierClass" 
  137.   TITLE="Click to view QualifierClass table details">  
  138. <AREA SHAPE=RECTANGLE COORDS="810, 598, 964, 675" HREF="HIWBenefitsDatabase.asp#QualifierStatus" 
  139.   TITLE="Click to view QualifierStatus table details"> 
  140. <AREA SHAPE=RECTANGLE COORDS="867, 684, 1021, 761" HREF="HIWBenefitsDatabase.asp#GeoArea" 
  141.   TITLE="Click to view GeoArea table details"> 
  142. </MAP>
  143. <!-- End Image Map Definition -->
  144.  
  145. </BODY>
  146. </HTML>
  147. <!--END HTML-->
  148.  
  149. <%
  150.  
  151.   '
  152.   ' SetURLCallHIW saves the name of the page in the application that called HIW page
  153.   '
  154.   Sub SetURLCallHIW
  155.     ' Extract the last directory from path
  156.     Dim strPathInfo, strLastChar, intLocation, ShortString, strLastDir
  157.     strPathInfo = Request.ServerVariables("HTTP_REFERER")
  158.     ' now str has a value like: "http://servername/exair/benefits/Default.asp"
  159.     ' we need to extract "benefits"
  160.     strLastChar = ""
  161.     ShortString = strPathInfo
  162.     intLocation = 0
  163.     
  164.     ' Get position of beginning of file name
  165.     Do Until strLastChar = "/"
  166.       strLastChar = right(ShortString, 1)
  167.       ShortString = left(ShortString, len(ShortString)-1)
  168.       intLocation = intLocation + 1
  169.     Loop
  170.     
  171.     ' Now get position of beginning of last directory name
  172.     strLastChar = ""
  173.     Do Until strLastChar = "/"
  174.       strLastChar = right(ShortString, 1)
  175.       ShortString = left(ShortString, len(ShortString)-1)
  176.       intLocation = intLocation + 1
  177.     Loop
  178.     strLastDir = mid(strPathInfo, len(strPathInfo) - (intLocation - 2), 10)
  179.     
  180.     ' If last directory not 'HowItWorks', then save the calling URL
  181.     If strLastDir <> "HowItWorks" Then
  182.       Session("URLCallHIW") = strPathInfo
  183.     End If
  184.   End Sub
  185.  
  186. %>