<%@LANGUAGE="VBSCRIPT"%> <% Dim rsAllSeries Dim rsAllSeries_cmd Dim rsAllSeries_numRows Set rsAllSeries_cmd = Server.CreateObject ("ADODB.Command") rsAllSeries_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsAllSeries_cmd.CommandText = "SELECT seriesID, seriesTitleEn, venueNameEn, seriesTimeStart FROM tblSeries JOIN tblVenues ON seriesVenueID = venueID ORDER BY seriesTitleEn ASC" rsAllSeries_cmd.Prepared = true Set rsAllSeries = rsAllSeries_cmd.Execute rsAllSeries_numRows = 0 %> <% Dim rsSeriesAssignments__MMColParam rsSeriesAssignments__MMColParam = "1" If (Request.QueryString("yearID") <> "") Then rsSeriesAssignments__MMColParam = Request.QueryString("yearID") End If %> <% Dim rsSeriesAssignments Dim rsSeriesAssignments_cmd Dim rsSeriesAssignments_numRows Set rsSeriesAssignments_cmd = Server.CreateObject ("ADODB.Command") rsSeriesAssignments_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsSeriesAssignments_cmd.CommandText = "SELECT * FROM tblSeriesAssign WHERE assignYearID = ?" rsSeriesAssignments_cmd.Prepared = true rsSeriesAssignments_cmd.Parameters.Append rsSeriesAssignments_cmd.CreateParameter("param1", 5, 1, -1, rsSeriesAssignments__MMColParam) ' adDouble Set rsSeriesAssignments = rsSeriesAssignments_cmd.Execute rsSeriesAssignments_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsAllSeries_numRows = rsAllSeries_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsAllSeries_total Dim rsAllSeries_first Dim rsAllSeries_last ' set the record count rsAllSeries_total = rsAllSeries.RecordCount ' set the number of rows displayed on this page If (rsAllSeries_numRows < 0) Then rsAllSeries_numRows = rsAllSeries_total Elseif (rsAllSeries_numRows = 0) Then rsAllSeries_numRows = 1 End If ' set the first and last displayed record rsAllSeries_first = 1 rsAllSeries_last = rsAllSeries_first + rsAllSeries_numRows - 1 ' if we have the correct record count, check the other stats If (rsAllSeries_total <> -1) Then If (rsAllSeries_first > rsAllSeries_total) Then rsAllSeries_first = rsAllSeries_total End If If (rsAllSeries_last > rsAllSeries_total) Then rsAllSeries_last = rsAllSeries_total End If If (rsAllSeries_numRows > rsAllSeries_total) Then rsAllSeries_numRows = rsAllSeries_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsAllSeries_total = -1) Then ' count the total records by iterating through the recordset rsAllSeries_total=0 While (Not rsAllSeries.EOF) rsAllSeries_total = rsAllSeries_total + 1 rsAllSeries.MoveNext Wend ' reset the cursor to the beginning If (rsAllSeries.CursorType > 0) Then rsAllSeries.MoveFirst Else rsAllSeries.Requery End If ' set the number of rows displayed on this page If (rsAllSeries_numRows < 0 Or rsAllSeries_numRows > rsAllSeries_total) Then rsAllSeries_numRows = rsAllSeries_total End If ' set the first and last displayed record rsAllSeries_first = 1 rsAllSeries_last = rsAllSeries_first + rsAllSeries_numRows - 1 If (rsAllSeries_first > rsAllSeries_total) Then rsAllSeries_first = rsAllSeries_total End If If (rsAllSeries_last > rsAllSeries_total) Then rsAllSeries_last = rsAllSeries_total End If End If %> Assign Series | Ottawa Jazz Festival

Ottawa Jazz Festival Inc.

Assign series to the <%=request.querystring("yearID")%> Festival

Listing all <%=(rsAllSeries_total)%> series currently in database.

Add a series to this list

" method="post" name="fmAssign" id="fmAssign">
Assign series to the <%=request.querystring("yearID")%> Festival <% 'give unique name ids to the checkbox dim checkboxID checkboxID = 1 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsAllSeries.EOF)) %> " <% 'determine previous assignments 'loop through all the artist assignments to match the same artists for this event Dim varArtistChecked varArtistChecked = "" WHILE (NOT rsSeriesAssignments.EOF AND varArtistChecked = "") IF ((rsSeriesAssignments.Fields.Item("assignSeriesID").Value) = (rsAllSeries.Fields.Item("seriesID").Value)) THEN varArtistChecked = "checked" END IF response.write(varArtistChecked) rsSeriesAssignments.MoveNext() Wend If (rsSeriesAssignments.CursorType > 0) Then rsSeriesAssignments.MoveFirst Else rsSeriesAssignments.Requery End If %> />

<%=DoDateTime((rsAllSeries.Fields.Item("seriesTimeStart").Value), 3, 1033)%> at <%=(rsAllSeries.Fields.Item("venueNameEn").Value) %>

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

<% 'variables for sidebar sponsors intSponsorCount = 4 %>

Ottawa Jazz Festival Inc.

The Ottawa International Jazz Festival is the National Capital Region's premier music event. Entering its twenty-eighth year of consecutive programming and operation, the OIJF is the second longest continuous- running jazz festival in Canada, and boasts the biggest loyal audience of any event in eastern Ontario! It is known to have presented some of the most dynamic jazz artists on the scene today from the traditional to the avant-garde.

Subscribe to our email newsletter:

<% rsAllSeries.Close() %> <% rsSeriesAssignments.Close() Set rsSeriesAssignments = Nothing %>