<%option explicit%> <% '************************************************************************** ' Version 6.50 Version add/delete userids ' adds or updates individual user privileges ' April 9, 2004 add language handling '************************************************************************** dim objrec, id, user, msg, admintype, item, d 'VP-ASP 6.00 - Allow tables from split databases to be selected dim affcon, custcon, ordercon, productcon, projectcon, searchcon Dim Menuaccess, menulist ShopCheckAdmin "shopa_shortcut_control.asp" sError="" ShopOpenDatabase con If Not Request("submit")="" Then UpdateFields End If AdminPageHeader Displayform sql = "select * from tbluser" if UCASE(getsess("admintype")) <> "SUPER" then sql = sql & " WHERE fldusername = '" & getsess("Shopadmin") & "'" end if Set objRec = con.Execute(SQL) While Not objRec.EOF id = objrec("fldauto") user = objrec("fldusername") admintype = objrec("admintype") FormatMenuRow objRec.MoveNext wend Closerecordset objRec %>     <% GenerateDisplayBodyFooter gethelp AdminPageTrailer Shopclosedatabase con Sub DisplayForm If Serror<>"" then shopwriteerror sError end if GenerateDisplayHeader getconfig("xemailname") & " Administrators" GenerateDisplayBodyHeader 'shopwriteheader getlang("LangAdminAdministrators") %>

<% Response.write "" Userheader getlang("LangAdminUserName") Userheader "" & getlang("LangCommonedit") & "" Response.write reportrowend end sub Sub UserHeader (title) Response.write reportheadcolumn Response.write title response.write ReportHeadColumnEnd end sub Sub FormatMenuRow response.write "" response.write ReportDetailColumn Response.write user response.write ReportDetailColumnend response.write ReportDetailColumn %> <% response.write ReportDetailColumnend response.write ReportRowEnd end sub %>