<% '*********************************************************** ' Version 6.50 ' Affiliate links on date basis or if no dates a summary of all links ' Report is in shopaffreportsubs ' Dec 28 2002 '************************************************************* Dim dbtable Dim fields(10) Dim CapFields(10) dim fieldcount Dim File Dim ScriptResponder Dim Dbc dim Action dim fromdate dim todate dim datedelim Dim rs Dim Limit Dim Month Dim Year dim affid shopcheckadmin "" GetInput adminpageheader WriteReportHeader GenerateDisplayBodyHeader 'VP-ASP 6.09 - for print friendly reports response.write "

Print Report

" If action<>"DETAILS" then affiliatereport fromdate, todate, affid else 'VP-ASP 6.09 - commented out the following IF statement - report wasn't showing unless it was only for one day! 'If fromdate=todate then affiliatereportdetail fromdate, todate, affid 'else affiliatereport fromdate, todate, affid 'end if end if GenerateDisplayBodyFooter adminpagetrailer '******************************** Sub GetInput fromdate=getsess("fromdate") todate=getsess("todate") affid=request("affid") action=ucase(request("action")) end sub Sub WriteReportHeader dim msg If affid<>"" then Msg= getlang("LangAff") & " " & affid else msg= getlang("langaff") & " " & getlang("langcommonall") end if generatedisplayheader msg 'shopwriteError msg end sub %>