<%@ Language=VBScript %> <% ' initialize variables dNumberItems = 8 ' number of items to display in News & Events box ' open database connection Set dbNewsItems = Server.CreateObject("ADODB.Connection") dbNewsItems.open "DRIVER={MySQL ODBC 3.51 Driver};PORT=3306;SERVER=localhost;DataBase=sound53_masterdata;UID=sound53_dbuser;PWD=SOSdb2012" SQLStatement = "SELECT count(counter) as TCount FROM news WHERE display = 'Y' AND deleted = 'N' " set rsNewsItems = dbNewsItems.Execute(SQLStatement) if rsNewsItems.bof and rsNewsItems.eof then ItemCount = 0 ' nothing entered else ItemCount = rsNewsItems("TCount") end if ' get all items to display if ItemCount > 0 then SQLStatement = "SELECT * FROM news WHERE display = 'Y' ORDER BY view_priority DESC, date_added DESC " set rsNewsItems = dbNewsItems.Execute(SQLStatement) if ItemCount > dNumberItems then ' set maximum number of items to display ItemCount = dNumberItems ' if more than in list, then stop at max number end if end if ' get performance information SQLStatement = "SELECT COUNT(counter) as tCount FROM performances WHERE display = 'Y' AND deleted = 'N' order by view_priority DESC, performance_date " set rsPerformances = dbNewsItems.Execute(SQLStatement) if rsPerformances.bof and rsPerformances.eof then PerformanceCount = 0 else PerformanceCount = CINT(rsPerformances("tCount")) end if ' get performances to display if PerformanceCount > 0 then SQLStatement = "SELECT * FROM performances WHERE display = 'Y' order by view_priority DESC, performance_date " set rsPerformances = dbNewsItems.Execute(SQLStatement) end if ' get guestbook items to display SQLStatement = "SELECT COUNT(counter) as tCNT FROM guestbook WHERE display = 'Y' order by view_priority DESC, counter DESC " set rsGuestbook = dbNewsItems.Execute(SQLStatement) GBCount = rsGuestbook("tCNT") + 0 if GBCount > 0 then SQLStatement = "SELECT comment, guest_name FROM guestbook WHERE display = 'Y' order by view_priority DESC, counter DESC" 'LIMIT 5 set rsGuestbook = dbNewsItems.Execute(SQLStatement) end if %> Home About us Performances Photo

About our music


Pic 1

We play a variety of styles of music: classical favorites; popular standards; big band; broadway, tv, and movie themes; marches and patriotic numbers. We make every effort to accommodate requests, so, if you have some songs in mind, just let us know.


Guestbook


What our fans are saying...

    <% if GBCount > 5 then GBCount = 5 ' limit to showing last 5 for wCounter = 1 to GBCount dDisplayItem = replace(left(rsGuestbook("comment"), 175), "
    ", "") & "--" & rsGuestbook("guest_name") ' select first 25 characters of comment %>
  • <% = dDisplayItem %>
  • <% rsGuestbook.movenext next 'wCounter %>

Sign our guestbook

News & Events


    <% if ItemCount > 0 then for wCounter = 1 to ItemCount ' for each item in news list dDisplayItem = replace(left(rsNewsItems("news_description"), 50), "
    ", "") ' select 50 first characters and launder out potential
    tags for display neatness %>
  • <% = rsNewsItems("news_title") %> - <% = dDisplayItem %>... ',1,0,0,1)"> more
  • <% rsNewsItems.movenext %> <% next 'wcounter end if %>

Upcoming Performances

CONCERT BAND




SWING BAND