<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Confirm Password | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- objAccessControl.objOraSession = OraSession ' Create database link for orasession objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------------------- Sub Logon () 'On Error Resume Next objEH.Try() Call objAccessControl.LogonUser ( Request("user_name"), Session(enumUSER_TEMP_VARIABLE) ) objEH.Catch() End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- Sub UpdatePassword () On Error Resume Next objEH.Try() Call objAccessControl.SetPassword ( Request("user_name"), Session(enumUSER_TEMP_VARIABLE), Request("cpassword") ) objEH.Catch() End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( aPersistList ) ' --- RUN onPostBack --- If CBool(Request("action")) Then Call UpdatePassword () Call Logon () If objEH.Finally Then ' Clean Temp Session Variable Session.Contents.Remove(enumUSER_TEMP_VARIABLE) If Request("rfile") <> "" Then Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") ) Else Call OpenInWindow ( "index.asp" ) End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%> ">

Update Password Please confirm your password. Confirm Password     <%=ProgressBar()%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing '---------------------------------------------- %>