% response.expires = -1 TOPIC = "HOME" subTOPIC = "" %>
|
A-Affililiates is offering weekly payouts, Payments will be executed every Monday morning (excluding holidays and bank holidays) and will include all owed commission until the week before the payment occurs (Last Sunday, including). You can set your own payment threshold, your owed commission will accumulate and released on the nearest weekly payout once it reaches the threshold you defined. The default (and minimal) threshold is set to $200, however, you might want to change it to a higher sum in order to avoid small weekly payments on which you probably have to pay relatively high commissions to your bank. Please take a minute and set the threshold which is located on the right side of your screen. |
<%
set rs = server.createobject("adodb.recordset")
set c = server.createobject("adodb.connection")
c.open DSN
if trim(request("paymentthreshold")) = "set" then
threshold = justNums(trim(request("threshold")))
if isnumeric(threshold) then
if clng(threshold) > 199 or clng(threshold) = 0 then
rs.open "SELECT top 1 * FROM TBL_PaymentThreshold WHERE Affiliate_ID = " & session("aff_id") & " ORDER BY PaymentThreshold_ID DESC;",c,3,3
if not rs.eof then
if cstr(rs("PaymentThreshold_Threshold")) = cstr(threshold) then
else
rs.addnew
rs("Affiliate_ID") = session("Aff_ID")
rs("PaymentThreshold_Threshold") = threshold
rs("PaymentThreshold_IP") = request.ServerVariables("remote_addr")
rs.update
end if
else
rs.addnew
rs("Affiliate_ID") = session("Aff_ID")
rs("PaymentThreshold_Threshold") = threshold
rs("PaymentThreshold_IP") = request.ServerVariables("remote_addr")
rs.update
end if
rs.close
set rs = nothing
set c = nothing
response.redirect "/"
end if
end if
end if
rs.open "SELECT top 1 PaymentThreshold_Threshold FROM TBL_PaymentThreshold WHERE Affiliate_ID = " & session("Aff_ID") & " ORDER BY PaymentThreshold_ID DESC",c,0,1
if not rs.eof then
threshold = rs("PaymentThreshold_Threshold")
else
c.execute("INSERT INTO TBL_PaymentThreshold(Affiliate_ID,PaymentThreshold_IP, PaymentThreshold_Threshold) values(" & session("Aff_ID") & ",'" & request.servervariables("REMOTE_ADDR") & "',200)")
threshold = 200
end if
rs.close
%>
|