<% Call incFile(getTemplate(), "Header") IF Request("UserID") <> "" Then SQL = "SELECT * FROM JBS_Users WHERE UserID = " & Request("UserID") Set objRS = Conn.Execute(SQL) if Not objRS.EOF or objRS.BOF Then Dim strFormValueuFullName, strFormValueuEmail, strFormValueuPassword, strFormValueuPhone Dim strFormValueuSuperAdmin, strFormValueuAddress, strFormValueuAdditional If Session("JBSX_Update") = "False" Then strFormValueuSuperAdmin = Session("JBSX_mem_Form_Fld_uSuperAdmin") strFormValueuFullName = Session("JBSX_mem_Form_Fld_uFullName") strFormValueuEmail = Session("JBSX_mem_Form_Fld_uEmail") strFormValueuPassword = Session("JBSX_mem_Form_Fld_uPassword") strFormValueuPhone = Session("JBSX_mem_Form_Fld_uPhone") strFormValueuAddress = Session("JBSX_mem_Form_Fld_uAddress") strFormValueuAdditional = Session("JBSX_mem_Form_Fld_uAdditional") Else strFormValueuSuperAdmin = objRS("uSuperAdmin") strFormValueuFullName = objRS("uFullName") strFormValueuEmail = objRS("uEmail") strFormValueuPassword = objRS("uPassword") strFormValueuPhone = objRS("uPhone") strFormValueuAddress = objRS("uAddress") strFormValueuAdditional = objRS("uAdditional") End If Call writePageNavigation("" & Application(getLang() & "_strJBS_00070") & "", "" & Application(getLang() & "_strJBS_02120") & "", Application(getLang() & "_strJBS_00530") & ": " & strFormValueuFullName, "") If Session("JBSX_Update") = "False" Then Response.Write "" Session("JBSX_Update") = "" ElseIf Session("JBSX_Update") = "True" then %> <% Session("JBSX_Update") = "" End if Dim strFormFldStatus : strFormFldStatus = "" Dim strPermission : strPermission = "True" 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 strPermission = "False" strFormFldStatus = " style=""background-color: #F3F3F3;"" disabled" end if ElseIf ((Session("JBSX_uSuperAdmin") = "False") AND objRS("uSuperAdmin") = "True") Then strPermission = "False" strFormFldStatus = " style=""background-color: #F3F3F3;"" disabled" End If END IF %>

:: <% = Application(getLang() & "_strJBS_02200") %> :: " Size="5" name="UserID"> <% = Application(getLang() & "_strJBS_02150") %> <% IF Session("JBSX_uSuperAdmin") = "True" Then %>  <% = Application(getLang() & "_strJBS_02190") %> >  <% = Application(getLang() & "_strJBS_02180") %> > <% ELSE %>  <% If objRS("uSuperAdmin") = "True" Then Response.Write Application(getLang() & "_strJBS_02190") Else Response.Write Application(getLang() & "_strJBS_02180") End If %> <% END IF %>  <% = Application(getLang() & "_strJBS_02140") %>:  ><%=Session("JBSX_Form_Fld_uFullName")%>  <% = Application(getLang() & "_strJBS_00100") %>:  ><%=Session("JBSX_Form_Fld_uEmail")%>  <% = Application(getLang() & "_strJBS_00210") %>:  ><%=Session("JBSX_Form_Fld_uPassword")%>  <% = Application(getLang() & "_strJBS_02000") %>:   >  <% = Application(getLang() & "_strJBS_02020") %>:  ><%=strFormValueuAddress%>  <% = Application(getLang() & "_strJBS_01680") %>:  ><%=strFormValueuAdditional%>

<% = Application(getLang() & "_strJBS_00160") %>  > <%if Application("JBSX_sSettings_EmailIsEnable") = "False" then response.write " (" & Application(getLang() & "_strJBS_00170") & ")" end if%>
" OnClick="window.location='javascript:history.go(-1)';">	<% If strPermission = "True" Then %> ">  " OnClick="javascript:location.reload();"> <% Else %> (<% = Application(getLang() & "_strJBS_00980") %>) <% End If %>

<% Session("JBSX_Form_Fld_uFullName") = "" Session("JBSX_Form_Fld_uEmail") = "" Session("JBSX_Form_Fld_uPassword") = "" Session("JBSX_mem_Form_Fld_uSuperAdmin") = "" Session("JBSX_mem_Form_Fld_uFullName") = "" Session("JBSX_mem_Form_Fld_uEmail") = "" Session("JBSX_mem_Form_Fld_uPassword") = "" Session("JBSX_mem_Form_Fld_uPhone") = "" Session("JBSX_mem_Form_Fld_uSuperAdmin") = "" Session("JBSX_mem_Form_Fld_uAddress") = "" Session("JBSX_mem_Form_Fld_uAdditional") = "" objRS.Close : Set objRS = Nothing end if ELSE Dim RedirectURL : RedirectURL = "index.asp" Response.Redirect RedirectURL END IF Call incFile(getTemplate(), "Bottom") %>