♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥Click here to make Falling Objects ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ The Steven Grayhm fan listings. To find other S.G fans and more.

<% Dim objConn, objRS, strQ, strCriteria, intNoMembers, intNoCountries, intNoCountriesArray, intLoop Dim arrCountries(), arrCountryMembers() Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConnect Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "Members", strConnect, adOpenStatic, adLockReadOnly, adCmdTable strCriteria = "DisplayMember = True" objRS.Filter = strCriteria If Not objRS.EOF Then intNoMembers = objRS.RecordCount Else intNoMembers = 0 End If objRS.Close Set objRS = Nothing strQ = "SELECT DISTINCT MemberCountry FROM Members " & _ "WHERE DisplayMember = True " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strQ, objConn, adOpenStatic, adLockReadOnly, adCmdText intNoCountries = objRS.RecordCount intNoCountriesArray = intNoCountries - 1 If Not objRS.EOF Then 'Create array containing country names, for later use Redim arrCountries(intNoCountriesArray) intLoop = 0 While Not objRS.EOF arrCountries(intLoop) = objRS("MemberCountry") intLoop = intLoop + 1 objRS.MoveNext Wend objRS.Close Set objRS = Nothing 'Declare total number of members and countries If intNoMembers = 1 Then Response.Write "

There is currently " & intNoMembers & " member from " Else Response.Write "

There are currently " & intNoMembers & " members from " End If If intNoCountries = 1 Then Response.Write intNoCountries & " country.

" Else Response.Write intNoCountries & " countries.

" End If 'Count number of members in each country Set objRS = Server.CreateObject("ADODB.Recordset") intLoop = 0 Redim arrCountryMembers(intNoCountriesArray) For intLoop = 0 To intNoCountriesArray strQ = "SELECT MemberID FROM Members " & _ "WHERE DisplayMember = True " & _ "AND MemberCountry = '" & arrCountries(intLoop) & "'" objRS.Open strQ, objConn, adOpenStatic, adLockReadOnly, adCmdText arrCountryMembers(intLoop) = objRS.RecordCount objRS.Close Next Set objRS = Nothing objConn.Close Set objConn = Nothing Response.Write "

" intLoop = 0 For intLoop = 0 To intNoCountriesArray Response.Write "
• " & arrCountries(intLoop) & " (" & arrCountryMembers(intLoop) If arrCountryMembers(intLoop) = 1 Then Response.Write " member)
" Else Response.Write " members)" End If Next Response.Write "

" Else Response.Write "

There are currently no active members.

" End If %>

Copyright © 2005 Mary Erik Martin. All Rights Reserved.