<% Call incFile(getTemplate(), "Header") If Session("JBSX_Update") = "True" then if Session("JBSX_strUpdate") <> "" then %> <% else %> <% end if Session("JBSX_Update") = "" End if Call writePageNavigation("" & Application(getLang() & "_strJBS_00060") & "", Application(getLang() & "_strJBS_02120"), "", "") %>

" OnClick="window.location='../files/blockIP.asp';"> " OnClick="window.location='../files/addUser.asp';">

<% Dim C : C = 0 strSQL = "SELECT * FROM JBS_Users ORDER BY uFullName DESC" Set objRS = Conn.Execute(strSQL) Do Until objRS.EOF C = C + 1 %> <% objRS.MoveNext Loop objRS.Close : Set objRS = Nothing %>

<% = Application(getLang() & "_strJBS_02140") %>

<% = Application(getLang() & "_strJBS_02170") %>

<% = Application(getLang() & "_strJBS_00100") %>

<% = Application(getLang() & "_strJBS_02000") %>

<% = Application(getLang() & "_strJBS_00330") %>

<% = Application(getLang() & "_strJBS_01610") %>

- " border="0" src="../img/icon_eye_closed.gif">

<%=objRS("uFullName")%>

<%=strUserAccount(objRS("uSuperAdmin"))%>

"><%=objRS("uEmail")%>

<%=objRS("uPhone")%>

<%=objRS("uRegistrationDate")%>

<% IF Clng(objRS("UserID")) <> Clng(Session("JBSX_UserID")) THEN If ((Session("JBSX_uSuperAdmin") = "False") AND objRS("uSuperAdmin") = "False") Then if getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsEditUser")) = "False" then Response.Write "" end if if getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsDeleteUser")) = "False" then Response.Write "" end if ElseIf ((Session("JBSX_uSuperAdmin") = "False") AND objRS("uSuperAdmin") = "True") Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If ELSE Response.Write "" Response.Write "" END IF %>

<% If Session("JBSX_strMailMessage") <> "" Then %> <% Session("JBSX_strMailMessage") = "" End if Dim strFormFldStatus : strFormFldStatus = "" If Application("JBSX_sSettings_EmailIsEnable") = "False" then strFormFldStatus = " style=""background-color: #F3F3F3;"" disabled" ElseIf Application("JBSX_sSettings_EmailIsEnable") = "True" AND getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsSendMailToUser")) = "False" Then strFormFldStatus = " style=""background-color: #F3F3F3;"" disabled" Else strFormFldStatus = "" End If %>

:: <% = Application(getLang() & "_strJBS_00120") %> ::
<% = Application(getLang() & "_strJBS_00130") %>:
<% = Application(getLang() & "_strJBS_00190") %>:	"<%=strFormFldStatus%>><%=Session("JBSX_Form_Fld_strSubject")%>
<% = Application(getLang() & "_strJBS_00200") %>:	><%=Session("JBSX_mem_Form_Fld_strMessage")%><%=Session("JBSX_Form_Fld_strMessage")%>

<% Dim RecipientAddress If Application("JBSX_sSettings_CookiesIsEnable") = "True" Then RecipientAddress = Request.Cookies("JBSX")("uEmail") Else RecipientAddress = Session("JBSX_uEmail") End If %>

<% = Application(getLang() & "_strJBS_00150") %> <%=RecipientAddress%> >

<% If Application("JBSX_sSettings_EmailIsEnable") = "False" then %> (<% = Application(getLang() & "_strJBS_00170") %>) <% ElseIf Application("JBSX_sSettings_EmailIsEnable") = "True" AND getPermission(Session("JBSX_uSuperAdmin"), Application("JBSX_sUserSettingsSendMailToUser")) = "False" Then %> (<% = Application(getLang() & "_strJBS_00180") %>) <% Else %> "> " OnClick="javascript:location.reload();"> <% End If %>

<% Session("JBSX_Form_Fld_strSubject") = "" Session("JBSX_Form_Fld_strMessage") = "" Session("JBSX_mem_Form_Fld_SendTo") = "" Session("JBSX_mem_Form_Fld_strSubject") = "" Session("JBSX_mem_Form_Fld_strMessage") = "" %>

<% Call incFile(getTemplate(), "Bottom") %>