<!--#include file="shop$db.asp"-->
<!--#include file="shopmail.asp"-->
<!--#include file="shopsecuritycheck.asp"-->
<%
'**********************************************************************
' Version 6.50
' Nov 11, 2005
'***********************************************************************   
Dim NumProc, userid, usertype
dim dbc, parentrs, subrs
Dim My_system
Dim prevgroup
dim columncount, admincolumns
NumProc = 0
admincolumns=2
setsess "currenturl","shopadmin_everyday.asp"
setsess "headermenu", "everyday"
ShopCheckadmin ""
AdminPageHeaderFull
shopopendatabase dbc
Userid=getsess("shopadmin")
usertype=getsess("Admintype")
if ucase(usertype)="SUPPLIER" then
   userid="supplier"
end if   
DisplayAdminPage
shopclosedatabase dbc
AdminPageTrailer
%>