<% M_UAdd = fun_chkRight("Staff","A") M_LAdd = fun_chkRight("Login","A") if M_UAdd = 0 and M_LAdd = 0 then %> <% response.end end if%> <% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select rightId, linkNm, rights from rights where display = 'Y' order by linkNm" rs.Open strSQL, con, 3, 3 if not rs.EOF Then rightsArr = rs.GetRows() end if rs.close set rs = nothing con.close set con = nothing %> <% if Trim(Request("Msg")) <> "" Then %> <% end if %> <% if M_LAdd = 1 then %> <% if isEmpty(rightsArr) = False Then %> <% end if else %> <% end if %>

New User
* Indicates Mandatory Fields
<%=Trim(Request("Msg"))%>
First Name *		Last Name *
Notes
Login Detail
Login		Password
Active	Yes No	User Type	Webmaster System User
Rights	(If User Type = Webmaster then select ONLY Webmaster 'Y' ) <% for i=0 To UBound(rightsArr,2) tempArr = split(rightsArr(2,i),",") %> <% next %> <%=rightsArr(1,i)%> <% for m=0 To UBound(tempArr) %> <%=tempArr(m)%>   <% next %>