<%Option explicit%>
<%
'*******************************************************
' Affilite Service Menu
' VP-ASP Version 6.50 Dec 26, 2002
' add more menus at the botom of this code
' '*******************************************************
shopCheckadmin ""
Dim menus(20), urls(20), menucount
Dim loginError, infomsg
Dim NumProc
dim LoginFlag
NumProc = 0
Infomsg=request("msg")
SetSess "CurrentUrl","shopa_affreports.asp"
adminPageHeader
SetupMenus
if sError<> "" then
shopwriteError Serror
Serror=""
end if
if Infomsg<> "" then
shopwriteError Infomsg
response.write "
"
Infomsg=""
end if
AddMenu
adminPageTrailer
'**********************************************************************
' Version 3.00
' Shopadmin.asp forces relogin
' shopadmin1.asp (this routine checks to see if you are already logdded in
'***********************************************************************
'******** Display table
Sub AddMenu
dim i
FormatHeader
For i = 0 to menucount
Formatrow Menus(i), urls(i)
next
FormatTrailer
end sub
'
Sub FormatHeader
Response.write "" & Custadmintable
Response.write CustAdminHeaderRow
Response.write CustAdminHeaderFont & getlang("LangAffHeader") & CustAdminHeaderEnd
end sub
'
Sub FormatRow (name, url)
NumProc=Numproc+1
response.write CustAdminRow
Response.write CustAdminNumColumn & NumProc & "." & CustAdminNumEnd
Response.write CustAdminColumn & "" & CustAdminFont & name & "" & CustAdminColumnEnd
end sub
'
Sub FormatTrailer
%>
<%
end sub
'
Sub AddMenuItem (caption, url, flag)
If flag<>"Yes" then exit sub
menus(menucount)=caption
urls(menucount)=url
menucount=menucount+1
end sub
'
Sub SetUpMenus
'***********************************************************************
' First field is the caption the customer sees
' Second is URL to go to
' Third is "Yes" (case sensitive) If Yes menu is displayed
'************************************************************************
menucount=0
AddMenuItem getlang("LangAffSelectAll"),"shopa_afflist.asp", "Yes"
AddMenuItem getlang("LangAffOrdersfor"),"shopa_affdates.asp?affid=&task=shopa_afforderreport.asp", "Yes"
AddMenuItem getlang("LangReportLinks"),"shopa_affdates.asp?affid=&task=shopa_afflogreport.asp", "Yes"
AddMenuItem getlang("LangCommonEdit") & " " & getlang("LangAff"),"shopa_editdisplay.asp?table=affiliates", "Yes"
AddMenuItem getlang("LangCommonEdit") & " " & getlang("LangReportLinks"),"shopa_editdisplay.asp?table=affiliatelog", "Yes"
AddMenuItem "Order Report","shopa_afforderreport2.asp", "Yes"
menucount=menucount-1
end sub
%>