<%=Website_Name%> - <%=Page

Recommended Music and Books

20000 Voices runs a huge variety of projects - many of which introduce singers to new ideas and music styles. We also run courses and workshops extending people's interest and awareness of vocal matters. We can only scratch the surface of the massive amount of information which is available. Many singers want to research and develop more widely - one way of doing this is through the internet, where you can browse and search for information about your chosen topic.

Up to 15% of each sale made from amazon.co.uk via our website goes towards funding 20,000 Voices Charity. Thankyou

<% Dim fs Dim FilePath Set fs=Server.CreateObject("Scripting.FileSystemObject") Dim prevcategory, colcount prevcategory = -1 colcount = 0 %>

<% While ((Repeat1__numRows <> 0) AND (NOT Recommendation_Set.EOF)) %> <% If CInt(Recommendation_Set.Fields.Item("RecommendationGroupID").Value) <> prevcategory Then %>

<%=(Recommendation_Set.Fields.Item("RecommendationGroupTitle").Value)%>

<% colcount = 0 %> <% End If %> <% If colcount >= 2 Then colcount = 0 %>

<% End If %>

/20000voices-21" target="_blank"> <% FilePath = "/uploads/recommendations/" & (Recommendation_Set.Fields.Item("RecommendationID").Value) & ".jpg" If FilePath = "" Or isNull(FilePath) Then FilePath = "No Path Found" End If If fs.FileExists(Server.MapPath(FilePath)) Then %> "> <% End If %>
<%=(Recommendation_Set.Fields.Item("RecommendationTitle").Value)%>

<% prevcategory = CInt(Recommendation_Set.Fields.Item("RecommendationGroupID").Value) colcount = colcount + 1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recommendation_Set.MoveNext() Wend %>

<% While ((Repeat2__numRows <> 0) AND (NOT AmazonSearch_Set.EOF)) %>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 AmazonSearch_Set.MoveNext() Wend %>