<%'check Affiliate Tiers if request("aft")<>"" then session("aft")=request("aft") end if Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn sqlm = "select * FROM AF_Constants where ConStatus=0" rs.open sqlm, conn if not rs.eof then ConstantsID=rs("ConstantsID") action="update" CookiesExp=rs("CookiesExp") afcurrency=rs("afcurrency") if trim(rs("afcurrency"))="EURO" then cur="€" else cur=trim(rs("afcurrency")) end if 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") else NoSettings=1 end if rs.close %> Hurricane Shutters Affiliate Program


<% if NoSettings=1 then%>
Affiliate Program is not active.
 <%else%> Welcome to the Hurricane Shutters Affiliate Program!
 
Now you can generate excellent revenue with your website by placing our banners and links on your website. The demand for hurricane shutters is at an all-time high due to the recent hurricane season.  Our average order size is between $500-$3000, so the commissions will be substantial. Join our Affiliate Program and earn the following commissions:

<%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.

Thank you,

Hurricane Shutters Florida
info@hurricaneshuttersflorida.com


<%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 end if%>