<% Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn rs.open "SELECT AfUsername, status from AF_Users where AfUsername = '" & session("AfUsername") & "'", conn,1,3 if not rs.eof then UserStatus=rs("status") else UserStatus=0 end if rs.close if UserStatus=0 then rs.open "SELECT * FROM AF_Constants where ConStatus = " & UserStatus & "", conn,1,3 else rs.open "SELECT * FROM AF_Constants where ConstantsID = " & UserStatus & "", conn,1,3 end if if not rs.eof then afcurrency=rs("afcurrency") payperclick=rs("payperclick") payperlead=rs("payperlead") paypersale=rs("paypersale") flatFee=rs("flatFee") minimumearn=rs("minimumearn") BonusAmount=rs("BonusAmount") BonusWhen=rs("BonusWhen") EnableTiers=rs("EnableTiers") if EnableTiers=1 and flatFee=0 then EnableTiers=2 ActivTiersDetails=rs("ActivTiersDetails") Tier2Commission=rs("Tier2Commission") Tier3Commission=rs("Tier3Commission") Tier4Commission=rs("Tier4Commission") Tier5Commission=rs("Tier5Commission") Tier6Commission=rs("Tier6Commission") Tier7Commission=rs("Tier7Commission") ActivationType=rs("ActivationType") afcurrency=rs("afcurrency") end if rs.close set rs = nothing conn.close set conn = nothing%>

<%if payperclick>0 then%> <%=afcurrency & payperclick%> for every unique click. <%end if%> <%if payperlead>0 then%> <%=afcurrency & payperlead%> for every FREE confirmed Sign-up. <%end if%> <%if flatFee<>0 then response.write afcurrency & paypersale else response.write paypersale & "%" end if%> Commission for every sale. <%if BonusAmount>0 then%> A Bonus of <%=afcurrency & BonusAmount & " when your commissions reach " & afcurrency & BonusWhen & ""%> <%end if%> <%if EnableTiers=1 then%> Tiers Commissions:<% if Tier2Commission>0 then response.write " Tier 2: " & afcurrency & Tier2Commission if Tier3Commission>0 then response.write " Tier 3: " & afcurrency & Tier3Commission if Tier4Commission>0 then response.write " Tier 4: " & afcurrency & Tier4Commission if Tier5Commission>0 then response.write " Tier 5: " & afcurrency & Tier5Commission if Tier6Commission>0 then response.write " Tier 6: " & afcurrency & Tier6Commission if Tier7Commission>0 then response.write " Tier 7: " & afcurrency & Tier7Commission elseif EnableTiers=2 then%> Tiers Commissions:<% if Tier2Commission>0 then response.write " " & Tier2Commission & "% from Tier 2 earnings" if Tier3Commission>0 then response.write " " & Tier3Commission & "% from Tier 3 earnings" if Tier4Commission>0 then response.write " " & Tier4Commission & "% from Tier 4 earnings" if Tier5Commission>0 then response.write " " & Tier5Commission & "% from Tier 5 earnings" if Tier6Commission>0 then response.write " " & Tier6Commission & "% from Tier 6 earnings" if Tier7Commission>0 then response.write " " & Tier7Commission & "% from Tier 7 earnings" end if%>