<% dim usert2() dim usert3() dim usert4() dim usert5() dim usert6() dim usert7() hits=0 leads=0 sales=0 salesnum=0 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 ActivTiersDetails=rs("ActivTiersDetails") Tier2Commission=rs("Tier2Commission") Tier3Commission=rs("Tier3Commission") Tier4Commission=rs("Tier4Commission") Tier5Commission=rs("Tier5Commission") Tier6Commission=rs("Tier6Commission") Tier7Commission=rs("Tier7Commission") end if rs.close sql="SELECT * from AF_Tiers where AfUsername = '" & session("AfUsername") & "'" rs.Open sql, conn %>

<% tier2=0 tier3=0 tier4=0 tier5=0 tier6=0 tier7=0 counter=1 if not rs.eof then Do Until Rs.EOF ReDim Preserve usert2(counter) ReDim Preserve usert3(counter) ReDim Preserve usert4(counter) ReDim Preserve usert5(counter) ReDim Preserve usert6(counter) ReDim Preserve usert7(counter) if rs("tier2") <>"" then tier2=tier2+1 usert2(tier2)=rs("tier2") end if if rs("tier3") <>"" then tier3=tier3+1 usert3(tier3)=rs("tier3") end if if rs("tier4") <>"" then tier4=tier4+1 usert4(tier4)=rs("tier4") end if if rs("tier5") <>"" then tier5=tier5+1 usert5(tier5)=rs("tier5") end if if rs("tier6") <>"" then tier6=tier6+1 usert6(tier6)=rs("tier6") end if if rs("tier7") <>"" then tier7=tier7+1 usert7(tier7)=rs("tier6") end if counter=counter+1 Rs.MoveNext Loop%>

<%if tier2+tier3+tier4+tier5+tier6+tier7=0 then%> You don't have any member in your downline. <%nodownline=1 end if%> To increase your earnings and add more users to your downline send this link to your friends: <%=siteHomepage%>?aft=<%=session("AfUsername")%> Click here to view your earnings. <%if nodownline<>1 then%> <%if tier2 >0 and Tier2Commission>0 then%> <%for i = 1 to tier2%> <%next%> height=25>Tier level 2: <%=tier2%> member<%if tier2>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert2(i)%><% else %><%end if%> <%end if%> <%if tier3 >0 and Tier3Commission>0 then%> <%for i = 1 to tier3%> <%next%> height=25>Tier level 3: <%=tier3%> member<%if tier3>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert3(i)%><% else %><%end if%> <%end if%> <%if tier4 >0 and Tier4Commission>0 then%> <%for i = 1 to tier4%> <%next%> height=25>Tier level 4: <%=tier4%> member<%if tier4>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert4(i)%><% else %><%end if%> <%end if%> <%if tier5 >0 and Tier5Commission>0 then%> <%for i = 1 to tier5%> <%next%> height=25>Tier level 5: <%=tier5%> member<%if tier5>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert5(i)%><% else %><%end if%> <%end if%> <%if tier6 >0 and Tier6Commission>0 then%> <%for i = 1 to tier6%> <%next%> height=25>Tier level 6: <%=tier6%> member<%if tier6>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert6(i)%><% else %><%end if%> <%end if%> <%if tier7 >0 and Tier7Commission>0 then%> <%for i = 1 to tier7%> <%next%> height=25>Tier level 7: <%=tier7%> member<%if tier7>1 then response.write "s"%> <% if ActivTiersDetails= 1 then %> <%=usert7(i)%><% else %><%end if%> <%end if%> <%end if%> <%else%> Your Downline <%if tier2+tier3+tier4+tier5+tier6+tier7=0 then%> You don't have any member in your downline. <%nodownline=1 end if%> To increase your earnings and add more users to your downline send this link to your friends: <%=siteHomepage%>?aft=<%=session("AfUsername")%> Click here to view your earnings. <%end if%>