<!-- #include file="shopaffcommission.asp"-->
<%
dim aff
Sub ShopThanksCommission (conn,OrderID, affid)
'****************************************************************
' Calculate the commission for this order. 
' VP-ASP 6.50
' Feb 21, 2004 Fix mysql commision update
' Sept 18, 2004 fix split order database
'******************************************************************
dim sql,calculated, commrate, commission, rc, forceflag
GetAffRecord conn, affid, commrate, rc
if rc<>0 then exit sub
forceflag=True
Set rsorder = Server.CreateObject ("adodb.recordset")
sql="select * from orders where orderid=" & orderid
rsorder.Open sql, conn, adOpenKeyset, adLockPessimistic, adCmdText
shopaffcommission conn, rsorder, affid, commrate, commission, calculated, forceflag
'VP-ASP 6.50 - broadened defintion of IF statement to cover cases where xmysql hasn't been set
if ucase(xdatabasetype) = "MYSQL" OR  ucase(xdatabasetype) = "MYSQL351" OR getconfig("xMYSQL")="Yes" then
  closerecordset RSorder
  mysqlupdatecommission conn, commission, orderid
else
  rsorder("commission")=commission
  rsorder.update
  closerecordset RSorder
end if    
end sub

Sub GetAffRecord (conn, affid, commrate, rc)
dim dbc, sql, objrs
commrate=0
If getconfig("xaffiliateDB")<>"" or getconfig("xorderdb") <>"" then 
   ShopOpenOtherDB dbc,getconfig("xaffiliateDB")
end if   
SQL="Select * from affiliates Where affid=" & affid 
If getconfig("xaffiliateDB")<>"" or getconfig("xorderdb")<>"" then  
   Set objRS = dbc.Execute(SQL)
else
   Set objRS = conn.Execute(SQL)
end if   
If not objRS.EOF Then
        rc=0 
        commrate=objrs("commissionrate")
        'VP-ASP 6.50 - updated commission rate logic
        If not isnull(commrate) then
            If IsNumeric(commrate) Then
           if commrate>1 then
                    Commrate=commrate/100
                End if
			else
                commrate = getconfig("affcommissionrate")
                If commrate > 1 Then
                    commrate = commrate/100
                End If
            end if
		else
            commrate = getconfig("affcommissionrate")
            If commrate > 1 Then
                commrate = commrate/100
            End If
        end if          
else
    rc=4
end if
closerecordset objrs
If getconfig("xaffiliateDB")<>"" or getconfig("xorderdb")<>"" then 
  shopclosedatabase dbc
end if  
end sub
%>