"' & reportdetailrow
response.write "| TOTALS | "
response.write " | " ' last name
response.write " | "
response.write " | " ' last name
response.write " | " ' first name
response.write " | " ' product code
response.write " | " ' product name
response.write "" & shopformatcurrency(totalproductprice, decimalpoint) & " | "
response.write "" & shopformatcurrency(totalshipprice,decimalpoint) & " | "
response.write "" & shopformatcurrency(totalamount,decimalpoint) & " | "
response.write "" & shopformatcurrency(totalcommissionamount,decimalpoint) & " | "
end sub
'********************************************************************
' there was originally going be be paging but because
' it is used in admin also, removed paging logic
' so mypage should always be empty
'********************************************************************
Sub generatesql (fromdate, todate, lngaffid)
dim addsql
dim mysql
dim sqlproc
dim datesql
dim fromdatex, todatex
if reportadmin="" then
if mypage<>"" then
sql=GetSess("affSqlquery") ' on recursive calls we stored sql in sessikon variable
fromdate=getsess("Fromdate")
todate=GetSess("Todate")
If sql<>"" then
exit sub
end if
else
mypage=1
end if
end if
addsql=" AND "
MySql = "SELECT * from orders "
sqlproc =""
addsql=" WHERE "
Mysql=MySql & sqlproc
If fromdate<>"" then
fromdatex = DateDelimit (fromdate)
todatex = dateDelimit (todate)
datesql = " odate>= " & fromDatex
datesql = datesql & " AND odate<= " & todatex
mysql = mysql & addsql & "(" & datesql & ")"
Addsql=" AND "
end if
mysql = mysql & addsql & " oaffid=" & lngaffid
mysql=mysql & " order by orderid desc"
SQL=Mysql
setsess "affsqlquery",sql ' for paging
end sub
sub GetProductdetails (orderid, productname, productcode, productprice)
dim sql, rs, catalogid, cname, ccode, unitprice, quantity
dim tempname, tempcode
dim psql, prs
productprice=0
sql="Select * from oitems where orderid=" & orderid
set rs=dbc.execute(sql)
' get all order items
do while not rs.eof
quantity=rs("numitems") ' quantity
catalogid=rs("catalogid") ' catalogid
tempname=rs("itemname") ' name in cart
tempcode=""
unitprice=rs("unitprice") ' unit prive
productprice=productprice+unitprice*quantity
psql="Select cname, ccode from products where catalogid=" & catalogid
set prs=pconn.execute(psql)
if not prs.eof then
tempname=prs("cname")
tempcode=prs("ccode")
end if
closerecordset prs
if productname<>"" then
productname=productname & "
"
productcode=productcode & "
"
end if
productname=productname & tempname
productcode=productcode & tempcode
rs.movenext
loop
closerecordset rs
end sub
Sub GenerateGrandtotals
Response.write ""
WriteGrandRow "Total Orders", Gtotalordercount
WriteGrandRow "Total Product Price", shopformatcurrency(Gtotalproductprice,decimalpoint)
WriteGrandRow "Total Ship Cost", shopformatcurrency(Gtotalshipprice, decimalpoint)
WriteGrandRow "Total Order Amount", shopformatcurrency(gtotalamount,decimalpoint)
Writegrandrow "Total Commission", shopformatcurrency(Gtotalcommissionamount, decimalpoint)
response.write tabledefend & ""
end sub
Sub WriteGrandRow (caption, ivalue)
Response.write "| "
response.write caption & " | "
response.write ""
response.write ivalue
response.write " |
"
end sub
'
Sub ValidatePurchase (orderRS, rc)
'*******************************************************
' See if payment type matches any of the valid payments allowed
'
'*******************************************************
dim i
rc=0
dim paymenttype
Paymenttype =ucase(OrderRS("ocardtype"))
if cardtypecount=0 then exit sub
if OrderRS("oprocessed")=TRUE then exit sub
for i = 0 to cardtypecount-1
If ucase(cardtypearray(i))=paymenttype then
exit sub
end if
next
rc=4
end sub
'***********************************************************************
' done once per report
'***********************************************************************
Sub Getvalidcardtypes
dim cardtype
if cardtypecount<>"" then exit sub
CardType=Getconfig("xendofordervalidpayments")
cardtypecount=0
If cardtype="" then
exit sub
end if
parserecord cardtype, cardtypearray,cardtypecount,","
end sub
%>