<%Option explicit%>
<%
'**********************************************************************
' Version 6.50 Affiliate Menus
' Mar 26, 2004
' October 26, 2005 add new order report
'********************************************************************
Dim menus(20), urls(20), menucount
dim customerid, loginError
Dim NumProc, loginflag
NumProc = 0
Shopinit
SetSess "CurrentUrl","shopaffadmin.asp"
'VP-ASP 6.50 - precautionary security fix
LoginError=cleanchars(Request("Login"))
ShopPageHeader
'VP-ASP 6.09 - added breadcrumb / VP-ASP 6.50 - added config option to turn breadcrumb on/off
if getconfig("xbreadcrumbs") = "Yes" then
response.write ""
end if
If LoginError<>"" then
Serror= getlang("LangCustAdminLoginRequired")
end if
Checklogin loginflag
if sError<> "" then
response.write errorfontstart & SError & errorfontend & "
"
Serror=""
end if
AddMenu
AddNewUser
ShopPageTrailer
Sub AddMenu
dim i
FormatHeader
SetUpMenus
FormatTrailer
end sub
'
Sub FormatHeader
Response.write "" & getlang("LangAffService") & "
"
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
Response.write "" & caption & "" & vbcrlf
end sub
'
Sub addnewUser
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
WriteMenuTable getlang("langaffregistration"),"images/icons/affiliates.gif"
' Check to see if user is logged in and will display correct caption and link accordingly
If LoginFlag="Yes" Then
AddMenuItem getlang("langCommonLogin"),"shopafflogin.asp", "Yes"
Else
AddMenuItem getlang("langCommonLogout"),"shopafflogin.asp?new=yes" & addwebsesslink, "Yes"
End If
AddMenuItem getlang("LangAffRegistration"),"shopaffregister.asp", "Yes"
AddMenuItem getlang("LangLoginForgot"),"shopaffmailpwd.asp", "Yes"
CloseMenuTable
WriteMenuTable getlang("LangAffReport01"),"images/icons/reporting.gif"
AddMenuItem getlang("LangAffReport01"),"shopaffstatus.asp", getconfig("AffAllowAffiliatesReviewOrders")
AddMenuItem getlang("LangAffLinkReport"),"shopafflogreport.asp", getconfig("AffAllowLinkReport")
AddMenuItem getlang("LangProductOrder") & getlang("LangPinReport"),"shopafforderreport.asp", getconfig("AffAllowAffiliatesReviewOrders")
CloseMenuTable
menucount=menucount-1
end sub
Sub Checklogin (loginflag)
LoginFlag="Yes"
If Getsess("AffRegister")<>"" then
Loginflag="No"
end if
end sub
' Displays menu table header
Sub WriteMenuTable(caption,img)
Response.Write ""
Response.Write "| " & caption & " |
|---|
"
Response.Write ""
End Sub
' Closes menu table
Sub CloseMenuTable
Response.Write " |
"
End Sub
%>