<%
Response.expires=0
'response.write request.form
%>
<%
'get relevant constants
SQLQry = "SELECT * FROM tbuksql_user.Constants"
Set RSList = DBCX.Execute(SQLQry)
HoursTraded=RSList("HoursTraded")
RSList.Close
RSList=Null
SQLQry="SELECT Count(*) AS NoofActiveTBs FROM tbuksql_user.Members WHERE MemberType=1 AND Status=2"
Set RSList = DBCX.Execute(SQLQry)
NoofActiveTBs=RSList("NoofActiveTBs")
RSList.Close
RSList=Null
SQLQry="SELECT Count(*) AS NoofDevTBs FROM tbuksql_user.Members WHERE MemberType=1 AND Status=1"
Set RSList = DBCX.Execute(SQLQry)
NoofDevTBs=RSList("NoofDevTBs")
RSList.Close
RSList=Null
SQLQry="SELECT Count(*) AS NoofNBTBs FROM tbuksql_user.Members WHERE MemberType=5 AND Status=2"
Set RSList = DBCX.Execute(SQLQry)
NoofNBTBs=RSList("NoofNBTBs")
RSList.Close
RSList=Null
SQLQry="SELECT Count(*) AS NoofCompTBs FROM tbuksql_user.Members WHERE MemberType=1 AND Status=3"
Set RSList = DBCX.Execute(SQLQry)
NoofCompTBs=RSList("NoofCompTBs")
RSList.Close
RSList=Null
SQLQry="SELECT Sum(HoursGiven+HoursRcvd) AS SumHoursTraded FROM tbuksql_user.Members WHERE MemberType=1 AND Status=2"
Set RSList = DBCX.Execute(SQLQry)
SumHoursTraded=RSList("SumHoursTraded")
RSList.Close
RSList=Null
SQLQry="SELECT Sum(IndParticipants) AS SumIndParticipants FROM tbuksql_user.Members WHERE (MemberType=1 OR MemberType=5) AND (Status=1 OR Status=2) "
Set RSList = DBCX.Execute(SQLQry)
SumIndParticipants=RSList("SumIndParticipants")
RSList.Close
RSList=Null
SQLQry="SELECT Sum(OrgParticipants) AS SumOrgParticipants FROM tbuksql_user.Members WHERE (MemberType=1 OR MemberType=5) AND (Status=1 OR Status=2) "
Set RSList = DBCX.Execute(SQLQry)
SumOrgParticipants=RSList("SumOrgParticipants")
RSList.Close
RSList=Null
%>
