<%
'**********************************************************************
' Version 5.00
' June 16, 2003
' Shopadmin.asp forces relogin
' shopadmin1.asp (this routine checks to see if you are already logdded in
'***********************************************************************
Dim NumProc, userid, usertype
Dim My_system
NumProc = 0
setsess "currenturl","shopadmin1.asp"
ShopCheckadmin ""
AdminPageHeader
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)
ac = Split(list,",")
For each item in ac
sql = "select * from tblaccess where fldauto = " & cint(item)
Set objRec = myconn.Execute(SQL)
FormatRow objRec
closerecordset objrec
Next
ShopCloseDatabase myconn
FormatTrailer
end sub
Sub FormatHeader
%>
<%
end sub
Sub FormatRow (objRec)
dim name,url,comment
name = objrec("fldname")
url = objrec("fldurl")
comment=objrec("fldcomment")
numproc=numproc+1
%>
| <%=NumProc%>. |
<%=name%> |
<%=comment%> |
<%
End Sub
Sub FormatTrailer
%>
<%
end sub
%>