% Response.Buffer = TRUE Dim RS, NoRecords, Conn, Distance Distance = "../" TotalMembers = 0 TotalMatches = 0 SQL = "SELECT * FROM Organization WHERE Confirmed = TRUE" ConnectDB(SQL) If NoRecords = 0 Then TotalMember = RS.RecordCount Else TotalMember = 0 End If SQL = "SELECT SUM(Total_matches) AS TotalMatches FROM Stats_members_01" ConnectDB(SQL) If NoRecords = 0 Then TotalMatches = RS("TotalMatches") Else TotalMatches = 0 End If Conn.Close %>
|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||