home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / Password.asp < prev    next >
Text File  |  1997-11-01  |  7KB  |  258 lines
  1. <%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %>
  2. <% Option Explicit %>
  3. <!--#include file=libAuthenticate.asp-->
  4.  
  5. <%
  6.  
  7.   ' Dim page-level variables
  8.   Dim m_UpdateMessage, m_Password1
  9.   
  10.   m_UpdateMessage = ""
  11.   
  12.   ' If user entered new password, update database
  13.   If Request("SavePassword") = "Save" Then
  14.     GetValuesFromForm
  15.     ChangePassword
  16.     m_UpdateMessage = " Language=JavaScript " & _
  17.       "onLoad=" & Chr(34) & "{ alert ('Your Password was updated.');" & _
  18.       "location.href='default.asp';}" & Chr(34)
  19.   End If
  20.  
  21. %>
  22.  
  23. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  24. <HTML>
  25. <HEAD>
  26. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  27. <META NAME="DESCRIPTION" CONTENT="Exploration Air's Change Password Page for Members">
  28. <META NAME="KEYWORDS" CONTENT="Password, security, membership">
  29. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  30. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  31. <!--END META TAGS-->
  32. <TITLE>Change Your Password</TITLE>
  33. </HEAD>
  34.  
  35. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E
  36. <%= m_UpdateMessage%> >
  37.          
  38. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  39.  
  40. <!--Change link color on mouseover
  41.     Only if running Internet Explorer 4.0 or later -->
  42. <!--#include file=../libHighlight.inc-->
  43. <!--#include file=../libGlobalFuncs.inc-->
  44.  
  45. <!--COLOR BANNER_START-->
  46. <CENTER>
  47. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  48.   <TR>
  49.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  50.     </TD>
  51.   </TR>
  52. </TABLE>
  53. <!--COLOR BANNER_END-->
  54.  
  55. <!--BEGIN MAIN TABLE and SUB-TABLES WHICH CONTAIN NAVIGATIONAL SIDEBAR AND MAIN CONTENT-->
  56. <!--BEGIN NAVIGATIONAL SIDEBAR-->
  57. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% HEIGHT=100%>
  58.   <TR>
  59.     <TD WIDTH=100% COLSPAN=4 VALIGN=TOP HEIGHT=74>
  60.       <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  61.         <TR>
  62.           <TD WIDTH=415 HEIGHT=76>
  63.             <TABLE WIDTH=415 HEIGHT=76 CELLSPACING=0 CELLPADDING=0 BORDER=0>
  64.               <TR>
  65.                 <TD HEIGHT=179 COLSPAN=5>    
  66.                   <A HREF="<%=HomePage("..")%>">
  67.                     <IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 
  68.                       ALT="Return to Exploration Air Home Page" BORDER=0>
  69.                   </A>
  70.                 </TD>
  71.               </TR>
  72.               <TR>
  73.                 <TD  ALIGN=RIGHT VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=20 HEIGHT=31>
  74.                   <A HREF="default.asp">
  75.                     <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 
  76.                       ALT="Return to Frequent Flyer Home Page" VSPACE=6 BORDER=0>
  77.                   </A>
  78.                 </TD>
  79.                 <TD VALIGN="TOP" BGCOLOR="#FFFFFF" WIDTH=300 HEIGHT=31>
  80.                    <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG>
  81.                   <A HREF="default.asp">
  82.                     FREQUENT  FLYER  HOME PAGE
  83.                   </A>
  84.                   </STRONG></FONT>
  85.                 </TD>
  86.                 <TD WIDTH=2 BGCOLOR="#FFFFFF">
  87.                 </TD>
  88.                 <TD VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=200 HEIGHT=31>
  89.                 </TD>
  90.               </TR>
  91.             </TABLE>
  92.  
  93.           </TD>
  94.           <TD WIDTH=195 ALIGN="CENTER">
  95.             <FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  96.             Change Your Password
  97.             </FONT>
  98.           </TD>
  99.         </TR>
  100.       </TABLE>
  101.     </TD>
  102.   </TR>
  103.   <TR>
  104.     <TD ALIGN=CENTER BGCOLOR="#FFFFFF"  WIDTH=185>
  105.     </TD>
  106.     <TD>
  107.       <CENTER>
  108.       Enter your new password in both fields and then click <STRONG>Save</STRONG>
  109.       <!--BEGIN FORM-->
  110.       <FORM NAME="PasswordForm" METHOD=POST 
  111.         ACTION="Password.asp?AccountID=<%= Session("AccountID") %>" 
  112.         LANGUAGE="JavaScript"
  113.         onSubmit="if (!validateForm(document.PasswordForm))
  114.             {
  115.               alert ('Enter your new password in both fields, then click Save.');
  116.               return false;
  117.              }">
  118.  
  119.         <TABLE>
  120.           <TR>
  121.             <TH>
  122.               New Password:
  123.             </TH>
  124.             <TD>
  125.               <INPUT TYPE=PASSWORD SIZE=20 MAXLENGTH=20 NAME="Password1">
  126.             </TD>
  127.           </TR>
  128.           <TR>
  129.             <TH>
  130.               New Password:
  131.             </TH>
  132.             <TD>
  133.               <INPUT TYPE=PASSWORD SIZE=20 MAXLENGTH=20 NAME="Password2">
  134.             </TD>
  135.           </TR>
  136.         </TABLE>
  137.         <INPUT TYPE="Submit" NAME="SavePassword" VALUE="Save">
  138.       </FORM>
  139.       <!--END FORM-->
  140.       </CENTER>
  141.     </TD>
  142.   </TR>
  143. </TABLE>
  144.  
  145. <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  146.   <TR>
  147.     <TD>
  148.       <!--BEGIN NESTED TABLE WHICH HOLDS RIGHT-ALIGNED HORIZONTAL RULE DIVIDER-->
  149.       <CENTER>
  150.       <TABLE WIDTH=90% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  151.         <TR>
  152.           <TD HEIGHT=1 BGCOLOR="#808080">
  153.           </TD>
  154.         </TR>
  155.       </TABLE>
  156.       </CENTER>
  157.     <!--END NESTED TABLE WHICH HOLDS RIGHT-ALIGNED HORIZONTAL RULE DIVIDER-->
  158.     </TD>
  159.   </TR>
  160.   <TR>
  161.     <TD>
  162.       <BR>
  163.       <!--BEGIN LEGAL INFORMATION-->
  164.       <CENTER>
  165.       <P>
  166.       <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1">
  167.       <A HREF="../legal.htm">
  168.         ©1997 Microsoft Corporation. All rights reserved. Terms of Use.
  169.       </A>
  170.       </FONT>
  171.       </CENTER>
  172.       <!--END LEGAL INFORMATION-->
  173.     </TD>
  174.   </TR>
  175.  
  176.   <TR>
  177.     <TD HEIGHT=30>
  178.     </TD>
  179.   </TR>
  180. </TABLE>
  181.  
  182. <!--COLOR BANNER_START-->
  183. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  184.   <TR>
  185.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>    
  186.     </TD>
  187.   </TR>
  188. </TABLE>
  189. <!--COLOR BANNER_END-->
  190.  
  191. </BODY>
  192. </HTML>
  193.  
  194. <SCRIPT LANGUAGE="JavaScript">
  195. // Begin client side helper functions
  196.   function validateForm(form)
  197.   {
  198.     if (isEmpty(form.Password1)) return false;
  199.     if (form.Password1.value != form.Password2.value) return false;
  200.             
  201.     return true;
  202.   }
  203.  
  204.   function isEmpty(textcontrol)
  205.   {
  206.     str = textcontrol.value
  207.     for (i = 0; i < str.length; i++)
  208.     {
  209.       chr = str.substring(i, i + 1);
  210.       if (chr != ' ')
  211.       {
  212.         return false;
  213.       }
  214.     }
  215.     return true;
  216.   }
  217.  
  218. </SCRIPT>
  219.  
  220. <%
  221.  
  222.   'Get values from Form
  223.   Sub GetValuesFromForm
  224.     m_Password1 = Trim(Request.Form("Password1"))
  225.   End Sub
  226.  
  227.   ' 
  228.   ' Update the database. Return 0 if successful or 1 if an error is encountered.
  229.   '
  230.   Function ChangePassword
  231.  
  232.  
  233. '    On Error Resume Next
  234.  
  235.  
  236.     Dim Member
  237.     Set Member = Server.CreateObject("ExAir.Member")
  238.     Member.ChangePassword Application("DSN"), Session("AccountID"), m_Password1
  239.     
  240.     If Err.Number = 0 Then
  241.       
  242.     Else
  243.       ContextObject.SetAbort
  244.       UpdateDatabase = 1
  245.     End If
  246.     
  247.   End Function
  248.  
  249.   Sub OnTransactionCommit
  250.   
  251.   End Sub
  252.  
  253.   Sub OnTransactionAbort    
  254.         m_strMainPrompt = "We're sorry, a problem occurred while trying to update the database. Please try again later. "
  255.   End Sub
  256.  
  257. %>
  258.