%
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 tier7 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline1=rs("AfUsername")
end if
rs.close
sql="SELECT * from AF_Tiers where tier6 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline2=rs("AfUsername")
end if
rs.close
sql="SELECT * from AF_Tiers where tier5 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline3=rs("AfUsername")
end if
rs.close
sql="SELECT * from AF_Tiers where tier4 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline4=rs("AfUsername")
end if
rs.close
sql="SELECT * from AF_Tiers where tier3 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline5=rs("AfUsername")
end if
rs.close
sql="SELECT * from AF_Tiers where tier2 = '" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
upline6=rs("AfUsername")
end if
rs.close
%>
Your Upline Network
<%if upline1="" and upline2="" and upline3="" and upline4="" and upline5="" and upline6="" then
UplineEmpty=1%>
You were not referred to <%=sitename%>'s Affiliate Program by anyone.
Your Upline is empty.
<%end if%>
<%if ActivTiersDetails= 1 then
%>![]() <%=upline1%><% else %> <%
end if%> |
<%if ActivTiersDetails= 1 then
%>![]() <%=upline2%><% else %> <%
end if%> |
<%if ActivTiersDetails= 1 then
%>![]() <%=upline3%><% else %> <%
end if%> |
<%if ActivTiersDetails= 1 then
%>![]() <%=upline4%><% else %> <%
end if%> |
<%if ActivTiersDetails= 1 then
%>![]() <%=upline5%><% else %> <%
end if%> |
<%if ActivTiersDetails= 1 then
%>![]() <%=upline6%><% else %> <%
end if%> |
<%if UplineEmpty<>1 then%>
|