<%
'**********************************************************************
' Version 4.50 - June 9, 2002
' Shopadmin.asp forces relogin
' shopadmin1.asp (this routine checks to see if you are already logdded in
'***********************************************************************
Dim NumProc, userid, usertype
NumProc = 0
ShopCheckadmin ""
AdminPageHeader
shopsecuritycheck
Userid=getsess("shopadmin")
usertype=getsess("Admintype")
if ucase(usertype)="SUPPLIER" then
userid="supplier"
end if
DisplayTable
AdminPageTrailer
'******** Display table
Sub DisplayTable
Response.write "
" & LangAdminUtility & "
"
Response.write "
"
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
%>
<%=LangAdminFunction%>
<%=LangAdminDescription%>
<%
end sub
Sub FormatRow (objRec)
dim name,url,comment
name = objrec("fldname")
url = objrec("fldurl")
comment=objrec("fldcomment")
numproc=numproc+1
%>