<%Option Explicit%>

<%
Session("MenuName") = "Change Password"
Session("MenuLink") = "chgpass.asp"
%>

<!--#include virtual="bam1/dbfunctions.asp"-->
<!--#include virtual="bam1/commonutils.asp"-->
<!--#include file="heading.asp"-->

<!--#include file="authenticate.asp"-->
<%

If gbAuthenticated Then

  Dim mbPasswordChanged

  mbPasswordChanged = False

  If strCommand = "Enter" Then

    If ChangePassword(Request.Form("userid"), Request.Form("password"), Request.Form("newpassword")) Then
      mbPasswordChanged = True
      Response.Write("<br><br><Strong><font size=""3"">Password has been changed.<BR></font></Strong>")
    Else
      Response.Write("<br><br><Strong><font size=""3"">Password could not be changed.<BR></font></Strong>")
    End If

  End If

  If Not mbPasswordChanged Then
%>
<Strong><BR><BR><font size="4">Change Password</font></Strong>
<form name="login" action="chgpass.asp" method="post" onsubmit="return checkpasswords()">
<table border="0" cellpadding="0" cellspacing="0" class="title">

<tr>
<td nowrap>User ID:&nbsp;</td>
<td><input type="text" name="userid" size="15"></td>
<td>&nbsp;</td>
<td rowspan="5">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="logo.jpg"></td>
</tr>

<tr>
<td nowrap>Password:&nbsp;</td>
<td><input type="password" name="password" size="15"></td>
</tr>

<tr>
<td nowrap>New Password:&nbsp;</td>
<td><input type="password" name="newpassword" size="15"></td>
</tr>

<tr>
<td nowrap>Confirm New Password:&nbsp;</td>
<td><input type="password" name="cfgnewpassword" size="15"></td>
<td>&nbsp;<input type="submit" name="cmd" value="Enter"></td>
</tr>

</table>
</form>
<%
    gsFocusForm = "login"
    gsFocusField = "userid"

  End If

End If 'If gbAuthenticated Then
%>

<!--#include file="footing.asp"-->