<%@LANGUAGE="VBSCRIPT"%> <% Page_Title = "Choirs" %> <% category = CInt(Request.QueryString("C")) If category = 3 Then category = "Choral Societies and other choirs" ElseIf category = 2 Then category = "Other Community Choirs" Else category = "20,000 Voices Community Choirs" End If %> <% Dim Choirs_Set__MMColParam Choirs_Set__MMColParam = "20,000 Voices Community Choirs" If (category <> "") Then Choirs_Set__MMColParam = category End If %> <% Dim Choirs_Set Dim Choirs_Set_numRows Set Choirs_Set = Server.CreateObject("ADODB.Recordset") Choirs_Set.ActiveConnection = MM_DATA_STRING Choirs_Set.Source = "SELECT * FROM Choir WHERE ChoirActive = 'Y' And ChoirCategory = '" + Replace(Choirs_Set__MMColParam, "'", "''") + "' ORDER BY ChoirCategory, ChoirSortOrder, ChoirTitle" Choirs_Set.CursorType = 0 Choirs_Set.CursorLocation = 2 Choirs_Set.LockType = 1 Choirs_Set.Open() Choirs_Set_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Choirs_Set_numRows = Choirs_Set_numRows + Repeat1__numRows %> <%=Website_Name%> - <%=Page_Title%>

Choirs

 

<%=category%>

If your choir is not listed, please submit the details of your choir to us and we'll place it on our list.

<% While ((Repeat1__numRows <> 0) AND (NOT Choirs_Set.EOF)) %>

<%=(Choirs_Set.Fields.Item("ChoirTitle").Value)%>

<%=(Choirs_Set.Fields.Item("ChoirCaption").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Choirs_Set.MoveNext() Wend %>

<% If Request.QueryString("C") = "3" Then %> 20,000 Voices Community Choirs
Other Community Choirs <% ElseIf Request.QueryString("C") = "2" Then %> 20,000 Voices Community Choirs
Choral Societies & Other Choirs <% Else %> Other Community Choirs
Choral Societies & Other Choirs <% End If %>

<% Choirs_Set.Close() Set Choirs_Set = Nothing %>