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