<%
'**********************************************************************
' Version 6.50
'***********************************************************************
Dim NumProc, userid, usertype
Dim My_system
Dim prevgroup
dim columncount, admincolumns
NumProc = 0
admincolumns=2
setsess "currenturl","shopadmin1.asp"
ShopCheckadmin ""
AdminHeadersafe
'shopsecuritycheck
Userid=getsess("shopadmin")
usertype=getsess("Admintype")
if ucase(usertype)="SUPPLIER" then
userid="supplier"
end if
DisplayTable
AdminPageTrailer
'******** Display table
Sub DisplayTable
'Shopwriteheader getlang("langAdminUtility") & " "
Dim myconn
ShopOpenDatabase myconn
FormatHeader
list = GetAccess(userid, myconn)
if list<>"" then
sql = "select * from tblaccess where fldauto in (" & list & ")"
sql=sql & " Order by fldname"
Set objRec = myconn.Execute(SQL)
do while not objrec.eof
FormatRow objRec
objrec.movenext
loop
closerecordset objrec
else
shopwriteheader "No menus for this user"
end if
shopcheckinstall myconn
ShopCloseDatabase myconn
FormatTrailer
end sub
Sub FormatHeader
columncount=0
%>
<%
For I = 0 to admincolumns-1
Response.write "
" & getlang("langAdminFunction") & "
"
next
response.write "
"
end sub
Sub FormatRow (objRec)
dim name,url,comment, pos
name = objrec("fldname")
url = objrec("fldurl")
comment=objrec("fldcomment")
prevgroup=group
numproc=numproc+1
If columncount=0 then
AdminstartRow
end if
ConvertLangname name
AdminformatColumn name, url, comment
columncount=columncount+1
If columncount=admincolumns then
response.write ""
columncount=0
end if
pos=numproc mod 6
If pos=0 then
WriteNullLine
end if
end sub
Sub AdminstartRow
%>
<%
End sub
Sub AdminFormatColumn (name, url, comment)
%>
