%
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
%>
Turkish - World Partners
|
|
| |
 |
| |
Copyright (c) 2002, Izmir Chamber
of Commerce |
|