<% Option Explicit On Error Resume Next %> <% Dim objRS, strSQL Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblShows.PKShowDate, tblShows.ShowEndDate, tblShows.ShowName, tblShows.ShowPublic, tblShows.ShowCost, tblShows.ShowComments, " &_ "tblLocations.LocationName, tblLocations.LocationPhone, tblLocations.LocationDirections, tblLocations.LocationURL, " &_ "tblLocations.LocationAddress, tblLocations.LocationCity, tblLocations.LocationState " &_ "FROM tblShows INNER JOIN tblLocations " &_ "ON tblShows.FKLocationID=tblLocations.PKLocationID " &_ "WHERE tblShows.PKShowDate >= #" & Now()-1096 & "# " &_ "OR tblShows.ShowEndDate >= #" & Now()-1096 & "# " &_ "ORDER BY tblLocations.LocationState, tblShows.PKShowDate" objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText %> Calendar - Wood and Strings Theatre

907 Shady Circle, Centerville, TN 37033 TEL: 931-729-9911 FAX: 931-729-9595

Credits

Productions

Design & Creation

Arts & Education

Calendar

Gallery

Calendar by State

Click here to see the calendar ordered by Date...

Click your state's abreviation to see local listings
AL AZ AR CA CO CT DE FL GA ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT
NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA WV WI WY

<% Dim TmpState TmpState = "Dismay" Do Until objRS.EOF If TmpState <> objRS("LocationState") Then TmpState = objRS("LocationState") Response.Write "

" Response.Write StateName (TmpState) Response.Write "

" & vbcrlf End If ShowDetails objRS.MoveNext Loop objRS.Close Set objRS = Nothing Set objConn = Nothing %>

For Every State...