%Option explicit%>
<%
'**********************************************************************
' Version 4.50 Affiliate Menus
' May 9, 2002
'********************************************************************
Dim menus(20), urls(20), menucount
dim customerid, loginError
Dim NumProc, loginflag
NumProc = 0
Shopinit
SetSess "CurrentUrl","shopaffadmin.asp"
LoginError=Request("Login")
ShopPageHeader
If LoginError<>"" then
Serror=LangCustAdminLoginRequired
end if
Checklogin loginflag
SetupMenus
if sError<> "" then
response.write getconfig("xfont") & "" & SError & "
"
Serror=""
end if
AddMenu
AddNewUser
ShopPageTrailer
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 & LangAffService & 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 addnewUser
response.write ("" & LangLogin02 & "
")
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 LangAdminLogin,"shopafflogin.asp", loginflag
AddMenuItem LangAffRegistration,"shopaffregister.asp", "Yes"
AddMenuItem LangAffReport01,"shopaffstatus.asp", getconfig("AffAllowAffiliatesReviewOrders")
menucount=menucount-1
end sub
Sub Checklogin (loginflag)
LoginFlag="Yes"
If Getsess("AffRegister")<>"" then
Loginflag="No"
end if
end sub
%>