home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / Default.asp4 < prev    next >
Text File  |  1997-11-01  |  5KB  |  163 lines
  1. <%
  2.     ' Are we using SSL for this page?
  3.     Dim m_fUsingSSL
  4.     m_fUsingSSL = False
  5.     If UCase(Request.ServerVariables("HTTPS")) = "ON" Then m_fUsingSSL = True
  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="Exploration Air Business Partners Home Page">
  13. <META NAME="KEYWORDS" CONTENT="">
  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>Exploration Air Business Partners Uploads Page</TITLE>
  19. </HEAD>
  20.  
  21. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  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. <!--#include file=..\libGlobalFuncs.inc-->
  29.  
  30. <!--COLOR BANNER_START-->
  31. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  32.     <TR>
  33.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  34.       </TD>
  35.     </TR>
  36. </TABLE>
  37. <!--COLOR BANNER_END-->
  38.  
  39. <!--BEGIN TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  40. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  41.     <TR>
  42.       <TD VALIGN=TOP WIDTH=415>
  43.         <A HREF="<%=HomePage("..")%>"><IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 ALT="Return to Exploration Air Home Page" BORDER=0></A>
  44.         <BR>
  45.       </TD>
  46.       <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>Business Partner Uploads</FONT>
  47.       </TD>
  48.     <TD ALIGN=RIGHT VALIGN=MIDDLE>
  49.     <A HREF="../HowItWorks/HIWUpload.asp"><IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" ALT="Click here to learn how this page works" BORDER=0></A>
  50.     </TD>
  51.     </TR>
  52. </TABLE>
  53. <!--END TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK -->
  54.  
  55. <BR>
  56. <BR>
  57.  
  58. <% If IsPostingAcceptorInstalled() Then %>
  59.  
  60. <!-- BEGIN TABLE CONTAINING  -->
  61. <TABLE WIDTH=100% BORDER=0>
  62.     <TR>
  63.         <TD VALIGN=TOP BGCOLOR="#FFFFFF">
  64.             <TABLE WIDTH=100% CELLPADDING=5 CELLSPACING=5 BORDER=0>
  65.                 <TR>
  66.                     <TD>
  67.                         <%     
  68.                             ' If this is an SSL connection then place some text 
  69.                             ' on the screen to make the users feel comfortable!
  70.                             If m_fUsingSSL Then 
  71.                         %>
  72.                         <TABLE>
  73.                             <TR>
  74.                                 <TD BGCOLOR=#FFFFCC VALIGN=TOP WIDTH=191>
  75.                                     <FONT SIZE=2>
  76.                                     <IMG SRC="..\images\secure.gif" ALIGN=RIGHT>
  77.                                     The site operates in a secure environment while in the Business Partner section. 
  78.                                     This ensures the integrity of your name, password and any details you provide.
  79.                                     </FONT>
  80.                                 </TD>
  81.                             </TR>
  82.                         </TABLE>
  83.                         <% End If %>
  84.                       </TD>
  85.                     <TD>
  86.                         <CENTER>
  87.                         <H2>Update Your Exploration Air Advertisements!</H2>
  88.                         </CENTER>
  89.  
  90.                         <%     If m_fUsingSSL Then  %>
  91.                             Your certificate indicates that you work for the 
  92.                             <I><%= Request.ClientCertificate("SUBJECTOU") %></I> 
  93.                             unit of <I><%= Request.ClientCertificate("SUBJECTCN") %></I>, 
  94.                             it was signed by <I><%= Request.ClientCertificate("ISSUERO") %></I> 
  95.                             and is valid until <I><%= Request.ClientCertificate("VALIDUNTIL") %></I>. 
  96.                             Finally, your email alias is <I><%= Request.ClientCertificate("SUBJECTEMAIL") %></I>.
  97.                         <% End If %>
  98.                         <P>
  99.                         As a valued business partner, we can accept your advertisement updates over the Web!
  100.                         We don't charge for this service! You can change your running advertisements anytime, day or night.
  101.                         <P>
  102.  
  103.                         <%
  104.                             Dim strPrefix, strPathToUpload
  105.                             If UseSSLOnBusinessPartners() Then
  106.                                 strPrefix = GetSecurePrefixValue()
  107.                                 strPathToUpload = strPrefix  & "/Upload/" & Request.ClientCertificate("SUBJECTCN")
  108.                             Else
  109.                                 strPrefix = GetPrefixValue()
  110.                                 strPathToUpload    = strPrefix & "/Upload/" & Request.ServerVariables("LOGON_USER")
  111.                             End If
  112.                         %>
  113.                                                                                             
  114.                         <!-- This is where the real work happens. Upload a file to a 'safe' area of the ExAir 
  115.                              Each business partner has there own area-->
  116.                         <%
  117.  
  118.                             strAction="http://" & Request.ServerVariables("SERVER_NAME") & _
  119.                                       "/scripts/cpshost.dll?PUBLISH?" & _
  120.                                       strPrefix & "/Verify.asp"
  121.                         %>
  122.                         <CENTER>
  123.                         <FORM ENCTYPE="multipart/form-data" 
  124.                               ACTION="<%=strAction%>"
  125.                               METHOD=post>
  126.                             Advertisement to upload: 
  127.                             <INPUT NAME="my_file" TYPE="file">   
  128.                             <INPUT TYPE=hidden NAME="TargetURL" VALUE="<%=strPathToUpload%>">
  129.                             <INPUT TYPE="submit" VALUE="Upload">
  130.                         </FORM>
  131.                         </CENTER>
  132.                     </TD>
  133.                 </TR>
  134.             </TABLE>
  135.         </TD>
  136.     </TR>
  137. </TABLE>
  138.  
  139. <% Else %>
  140. <CENTER><H2>Error: To use the file upload facility you must install the<BR>Microsoft Posting Acceptor on your server first.</H2></CENTER>
  141. <% End If ' IsPostingAcceptorInstalled %>
  142.  
  143. <P> 
  144. <HR WIDTH=400>
  145. <P>
  146.  
  147. <CENTER>
  148. <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1"><A HREF="..\legal.htm">©1997 Microsoft Corporation. All rights reserved. Terms of Use.</A></FONT>
  149. </CENTER>
  150.  
  151. <P>
  152.  
  153. <!--BEGIN COLOR BANNER-->
  154. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  155.     <TR>
  156.       <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  157.       </TD>
  158.     </TR>
  159. </TABLE>
  160. <!--END COLOR BANNER-->
  161.  
  162. </BODY>
  163. </HTML>