<%
Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
conn.open dsn
sql="SELECT * from AF_Users where AfUsername='" & request("un") & "'"
rs.Open sql, conn
if rs.eof then
NoDetails=1
else
email=rs("email")
url=rs("urladdress")
location=rs("City") & ", " & rs("State") & ", " & rs("Country")
UserStatus=rs("status")
end if
rs.close
if UserStatus="" then UserStatus=0
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
paypersale=rs("paypersale")
flatfee=rs("flatfee")
BonusAmount=rs("BonusAmount")
BonusWhen=rs("BonusWhen")
EnableTiers=rs("EnableTiers")
if EnableTiers=1 and flatFee=0 then EnableTiers=2
Tier2Commission=rs("Tier2Commission")
Tier3Commission=rs("Tier3Commission")
Tier4Commission=rs("Tier4Commission")
Tier5Commission=rs("Tier5Commission")
Tier6Commission=rs("Tier6Commission")
Tier7Commission=rs("Tier7Commission")
afcurrency=rs("afcurrency")
end if
rs.close
sql="SELECT * from AF_Payments where AfUsername='" & session("AfUsername") & "'"
rs.Open sql, conn
if not rs.eof then
earn=rs("Earn")
sales=rs("numOfSales")
if EnableTiers=2 then
select case request("t")
case "2"
earning=earn*Tier2Commission/100
case "3"
earning=earn*Tier3Commission/100
case "4"
earning=earn*Tier4Commission/100
case "5"
earning=earn*Tier5Commission/100
case "6"
earning=earn*Tier6Commission/100
case "7"
earning=earn*Tier7Commission/100
end select
else
select case request("t")
case "2"
earning=sales*Tier2Commission
case "3"
earning=sales*Tier3Commission
case "4"
earning=sales*Tier4Commission
case "5"
earning=sales*Tier5Commission
case "6"
earning=sales*Tier6Commission
case "7"
earning=sales*Tier7Commission
end select
end if
else
earning=0
end if
rs.close
%>
<%if gender="" then gender=1%>
<%=request("un")%>'s Details
<%=request("un")%>'s Details