Subversion Repositories DevTools

Rev

Rev 3943 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3943 Rev 5354
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddRole					 	 |
 5 
'|			          wAddRole					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
 23 
Dim objFormCollector
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
26 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 26 
Set objFormCollector = CreateObject("Scripting.Dictionary")
27 
'------------ CONDITIONS ----------------------
 27 
'------------ CONDITIONS ----------------------
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'--------------------------------------------------------------------------------------------------------------------------
 31 
'--------------------------------------------------------------------------------------------------------------------------
32 
Sub AddUserAccount ()
 32 
Sub AddUserAccount ()
33 
	On Error Resume Next
 33 
	On Error Resume Next
34
34
35 
	OraDatabase.Parameters.Add "FULL_NAME", 	Request("full_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 35 
	OraDatabase.Parameters.Add "FULL_NAME", 	Request("full_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
36 
	OraDatabase.Parameters.Add "USER_NAME", 	Request("user_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
36 
	OraDatabase.Parameters.Add "USER_NAME", 	Request("user_name"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
37 
	OraDatabase.Parameters.Add "USER_EMAIL", 	Request("user_email"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
37 
	OraDatabase.Parameters.Add "USER_EMAIL", 	Request("user_email"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
38 
	OraDatabase.Parameters.Add "DOMAIN", 		Request("domain"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
38 
	OraDatabase.Parameters.Add "DOMAIN", 		Request("domain"), 			ORAPARM_INPUT, ORATYPE_VARCHAR2
39
39
40
40
41 
	objEH.TryORA ( OraSession )
 41 
	objEH.TryORA ( OraSession )
42
42
43 
	OraDatabase.ExecuteSQL _
 43 
	OraDatabase.ExecuteSQL _
44 
	"BEGIN PK_USER.ADD_USER_ACCOUNT ( :FULL_NAME, :USER_NAME, :USER_EMAIL, :DOMAIN ); END;"
44 
	"BEGIN PK_USER.ADD_USER_ACCOUNT ( :FULL_NAME, :USER_NAME, :USER_EMAIL, :DOMAIN ); END;"
45
45
46 
	objEH.CatchORA ( OraSession )
 46 
	objEH.CatchORA ( OraSession )
47
47
48
48
49 
	OraDatabase.Parameters.Remove "FULL_NAME"
 49 
	OraDatabase.Parameters.Remove "FULL_NAME"
50 
	OraDatabase.Parameters.Remove "USER_NAME"
 50 
	OraDatabase.Parameters.Remove "USER_NAME"
51 
	OraDatabase.Parameters.Remove "USER_EMAIL"
 51 
	OraDatabase.Parameters.Remove "USER_EMAIL"
52 
	OraDatabase.Parameters.Remove "DOMAIN"
 52 
	OraDatabase.Parameters.Remove "DOMAIN"
53
53
54 
End Sub
 54 
End Sub
55 
'--------------------------------------------------------------------------------------------------------------------------
 55 
'--------------------------------------------------------------------------------------------------------------------------
56 
%>
 56 
%>
57 
<%
 57 
<%
58 
'------------ RUN BEFORE PAGE RENDER ----------
 58 
'------------ RUN BEFORE PAGE RENDER ----------
59 
' --- Get Form details from DB (for edit forms only) ---
 59 
' --- Get Form details from DB (for edit forms only) ---
60 
'-------------------------------------------------------
 60 
'-------------------------------------------------------
61 
 
 61 
 
62 
' --- Load Validation Rules ---
 62 
' --- Load Validation Rules ---
63 
Call objForm.LoadValidationRules ( Array("full_name", "user_name", "user_email", "domain"), OraDatabase )		' Load Validation Rules
 63 
Call objForm.LoadValidationRules ( Array("full_name", "user_name", "user_email", "domain"), OraDatabase )		' Load Validation Rules
64 
 
 64 
 
65 
 
 65 
 
66 
' --- Enter Form Validation Rule Changes here... ----
 66 
' --- Enter Form Validation Rule Changes here... ----
67 
'----------------------------------------------------
 67 
'----------------------------------------------------
68 
 
 68 
 
69 
If CBool(Request("action")) Then
 69 
If CBool(Request("action")) Then
70 
	If objForm.IsValidOnPostBack Then
 70 
	If objForm.IsValidOnPostBack Then
71 
		' --- Form is Valid ---
 71 
		' --- Form is Valid ---
72 
		Call AddUserAccount()
 72 
		Call AddUserAccount()
73
73
74 
		If objEH.Finally Then
 74 
		If objEH.Finally Then
75 
			Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURLWithout("rfile") )
 75 
			Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURLWithout("rfile") )
76 
			Call CloseWindow()
 76 
			Call CloseWindow()
77 
		End If
 77 
		End If
78
78
79 
	End If
 79 
	End If
80 
End If
 80 
End If
81 
'----------------------------------------------
 81 
'----------------------------------------------
82 
%>
 82 
%>
83 
<html>
 83 
<html>
84 
<head>
 84 
<head>
85 
<title>Access Manager</title>
 85 
<title>Access Manager</title>
86 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 86 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
87 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 87 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
88 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 88 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
89 
<script language="JavaScript" src="scripts/common.js"></script>
 89 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
90 
</head>
 90 
<script language="JavaScript" src="scripts/common.js"></script>
91 
 
 91 
</head>
92 
<body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 92 
 
93 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 93 
<body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
94 
  <tr>
 94 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
95 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_role_lrg.gif" width="13" height="18" hspace="0" align="absmiddle">&nbsp;New Account</span> <br>
 95 
  <tr>
96 
    Enter User Account details.
96 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_role_lrg.gif" width="13" height="18" hspace="0" align="absmiddle">&nbsp;New Account</span> <br>
97 
    </td>
 97 
    Enter User Account details.
98 
  </tr>
 98 
    </td>
99 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 99 
  </tr>
100 
  <tr>
 100 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
101 
    <td background="images/bg_drk_bage_pane.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 101 
  <tr>
102 
      <tr>
 102 
    <td background="images/bg_drk_bage_pane.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
103 
        <td>&nbsp;</td>
 103 
      <tr>
104 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Create">
 104 
        <td>&nbsp;</td>
105 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 105 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Create">
106 
      </tr>
 106 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
107 
    </table></td>
 107 
      </tr>
108 
  </tr>
 108 
    </table></td>
109 
  <tr>
 109 
  </tr>
110 
    <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 110 
  <tr>
111 
      <tr>
 111 
    <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
112 
        <td width="1%"><img src="images/spacer.gif" width="60" height="200"></td>
 112 
      <tr>
113 
        <td width="100%"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 113 
        <td width="1%"><img src="images/spacer.gif" width="60" height="200"></td>
114 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 114 
        <td width="100%"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
115 
          <%If NOT objEH.Finally Then%>
 115 
          <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
116 
          <tr>
 116 
          <%If NOT objEH.Finally Then%>
117 
            <td class="form_iname">&nbsp;</td>
 117 
          <tr>
118 
            <td>
 118 
            <td class="form_iname">&nbsp;</td>
119 
              <%objEH.DisplayMessage()%>
 119 
            <td>
120 
            </td>
 120 
              <%objEH.DisplayMessage()%>
121 
            <td class="val_err"></td>
 121 
            </td>
122 
          </tr>
 122 
            <td class="val_err"></td>
123 
          <%End If%>
 123 
          </tr>
124 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 124 
          <%End If%>
125 
          <tr>
 125 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
126 
            <td nowrap class="form_iname" valign="top">Full Name </td>
 126 
          <tr>
127 
            <td valign="top"><input name="full_name" type="text" class="form_ivalue" size="60" value="<%=Request("full_name")%>"></td>
 127 
            <td nowrap class="form_iname" valign="top">Full Name </td>
128 
            <td valign="top"> <%=objForm.Validate ("full_name")%> </td>
 128 
            <td valign="top"><input name="full_name" type="text" class="form_ivalue" size="60" value="<%=Request("full_name")%>"></td>
129 
          </tr>
 129 
            <td valign="top"> <%=objForm.Validate ("full_name")%> </td>
130 
          <tr>
 130 
          </tr>
131 
            <td nowrap class="form_iname" valign="top">User Name </td>
 131 
          <tr>
132 
            <td valign="top"><input name="user_name" type="text" class="form_ivalue" size="60" value="<%=Request("user_name")%>"></td>
 132 
            <td nowrap class="form_iname" valign="top">User Name </td>
133 
            <td valign="top"> <%=objForm.Validate ("user_name")%> </td>
 133 
            <td valign="top"><input name="user_name" type="text" class="form_ivalue" size="60" value="<%=Request("user_name")%>"></td>
134 
          </tr>
 134 
            <td valign="top"> <%=objForm.Validate ("user_name")%> </td>
135 
		  <tr>
 135 
          </tr>
136 
            <td nowrap class="form_iname" valign="top">Email </td>
 136 
		  <tr>
137 
            <td valign="top"><input name="user_email" type="text" class="form_ivalue" size="60" value="<%=Request("user_email")%>"></td>
 137 
            <td nowrap class="form_iname" valign="top">Email </td>
138 
            <td valign="top"> <%=objForm.Validate ("user_email")%> </td>
 138 
            <td valign="top"><input name="user_email" type="text" class="form_ivalue" size="60" value="<%=Request("user_email")%>"></td>
139 
          </tr>
 139 
            <td valign="top"> <%=objForm.Validate ("user_email")%> </td>
140 
		  <tr>
 140 
          </tr>
141 
            <td nowrap class="form_iname" valign="top">User Domain </td>
 141 
		  <tr>
142 
            <%  Dim domain
 142 
            <td nowrap class="form_iname" valign="top">User Domain </td>
143 
                domain = Request("domain")
 143 
            <%  Dim domain
144 
                If domain = "" Then domain = "VIX"
 144 
                domain = Request("domain")
145 
            %>
 145 
                If domain = "" Then domain = "VIX"
146 
            <td valign="top"><input name="domain" type="text" class="form_ivalue" size="60" value="<%=domain%>"></td>
 146 
            %>
147 
            <td valign="top"> <%=objForm.Validate ("domain")%> </td>
 147 
            <td valign="top"><input name="domain" type="text" class="form_ivalue" size="60" value="<%=domain%>"></td>
148 
          </tr>
 148 
            <td valign="top"> <%=objForm.Validate ("domain")%> </td>
149 
          <tr>
 149 
          </tr>
150 
            <td width="10%" class="form_iname">&nbsp;</td>
 150 
          <tr>
151 
            <td width="1%">&nbsp;</td>
 151 
            <td width="10%" class="form_iname">&nbsp;</td>
152 
            <td width="90%" class="val_err"></td>
 152 
            <td width="1%">&nbsp;</td>
153 
          </tr>
 153 
            <td width="90%" class="val_err"></td>
154 
        </table></td>
 154 
          </tr>
155 
      </tr>
 155 
        </table></td>
156 
    </table></td>
 156 
      </tr>
157 
  </tr>
 157 
    </table></td>
158 
  <%=objPMod.ComposeHiddenTags()%>
 158 
  </tr>
159 
  <input type="hidden" name="action" value="true">
 159 
  <%=objPMod.ComposeHiddenTags()%>
160 
  </form>
 160 
  <input type="hidden" name="action" value="true">
161 
</table>
 161 
  </form>
162 
</body>
 162 
</table>
163 
</html>
 163 
</body>
164 
<%
 164 
</html>
165 
'------------ RUN AFTER PAGE RENDER -----------
 165 
<%
166 
Set objFormCollector = Nothing
 166 
'------------ RUN AFTER PAGE RENDER -----------
167 
'----------------------------------------------
 167 
Set objFormCollector = Nothing
168 
%>
 168 
'----------------------------------------------
169 
<!--#include file="common/globals_destructor.asp"-->
 169 
%>
- 
 
 170 
<!--#include file="common/globals_destructor.asp"-->