WebSVN – DevTools – Diff – /ManagerSuite/Access_Manager/trunk/Login.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
-'|				          INDEX						 |
+'|                    INDEX                   |
 '|                                                   |
 '=====================================================
 %>
 <%
 Option explicit
 '----------------------------------------------
 %>
 <%
 '----------------------------------------------------------------------------------------------------------------------------------------------
 Sub Logon ()
-	On Error Resume Next
+   On Error Resume Next
-	objEH.Try()
+   objEH.Try()
-	Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password"), OraDatabase )
+   Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password"), OraDatabase )
-	objEH.Catch()
+   objEH.Catch()
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------------------
 Sub AccessManagerMessage ( nMessage )
-	Dim sMessage
+   Dim sMessage
-	On Error Resume Next
+   On Error Resume Next
-	objEH.Try()
+   objEH.Try()
-		Select Case CInt( nMessage )
+      Select Case CInt( nMessage )
-			Case 1
+         Case 1
-				Err.Raise 8, _
+            Err.Raise 8, _
-					"Application Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this application."
+            	"Application Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this application."
-			Case 2
+         Case 2
-				Err.Raise 8, _
+            Err.Raise 8, _
-					"Page Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this page."
+            	"Page Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this page."
+         Case 3
+            Err.Raise 8, _
+            	"Application is Off-Line !", "This application is currently off-line for maintenance. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
+         Case 4
+            Err.Raise 8, _
+            	"You are Not Authorised !", "You are not authorised to perform this action. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
-		End Select
+      End Select
-	objEH.Catch()
+   objEH.Catch()
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 objPMod.PersistInQryString ( aPersistList )
 ' --- RUN onPostBack ---
 If CBool(Request("action")) Then
-	Call Logon ()
+   Call Logon ()
-	If objEH.Finally Then
+   If objEH.Finally Then
-		If Request("rfile") <> "" Then
+      If Request("rfile") <> "" Then
-			Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
+         Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
-		Else
+      Else
-			Call OpenInWindow ( "Default.asp" )
+         Call OpenInWindow ( "Default.asp" )
-		End If
+      End If
-	End If
+   End If
 End If
 Call AccessManagerMessage( Request("message") )
 '----------------------------------------------
 %>
   <tr>
     <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
   </tr>
   <tr>
     <td align="center" valign="middle" bgcolor="#FFFFFF">
-	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+   <!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
       <table width="570" border="0" cellspacing="0" cellpadding="1">
         <tr>
           <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
                 <tr>
                   <td class="body_txt"><span class="body_h1"><img src="images/i_user_lrg.gif" width="13" height="17" align="absmiddle">&nbsp;Log In</span> <br>
       Please enter your Username and Password. <br>
       <hr width="100%" size="1" noshade color="#ACA899">
-      Forgot your <a href="#" class="body_link">password</a> ? <br>
+      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link">password</a> ? <br>
-      New Members please <a href="#" class="body_link">Register</a></td>
+      New Members please <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Access Manager Account" class="body_link">Register</a></td>
                 </tr>
                 <tr>
                   <td align="center" valign="top">
-				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
+                    <table width="100"  border="0" cellspacing="2" cellpadding="0">
                       <tr>
                         <td width="10%" nowrap class="form_iname">Username</td>
                         <td width="1%"><input name="user_name" type="text" class="form_ivalue" size="20"></td>
                       </tr>
                       <tr>
                         <td nowrap class="form_iname">Password</td>
-                        <td><input name="user_password" type="password" class="form_ivalue" size="20"></td>
+                        <td><input name="user_password" type="password" class="form_ivalue" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>></td>
                       </tr>
                       <tr>
                         <td nowrap class="form_iname" valign="top">&nbsp;</td>
                         <td valign="top">&nbsp;</td>
                       </tr>
                   </table></td>
                 </tr>
                 <tr>
                   <td background="images/bg_drk_bage_pane.gif">
-				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
+                    <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                       <tr>
                         <td><%=ProgressBar()%></td>
                         <td align="right"><input name="btn" type="submit" class="form_btn" value="Login"></td>
                       </tr>
                   </table></td>
                 </tr>
-              </table>			  </td>
+              </table>          </td>
             </tr>
           </table></td>
         </tr>
       </table>
-	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+     <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-	  </td>
+     </td>
   </tr>
   <tr>
     <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
   </tr>
 <%=objPMod.ComposeHiddenTags()%>

Subversion Repositories DevTools

(root)/ManagerSuite/Access_Manager/trunk/Login.asp @ 5296 – Rev 2 → 3943