<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_update")) = "fmEdit") Then If (Not MM_abortEdit) Then ' execute the update Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_connOttawaJazzFestival_STRING MM_editCmd.CommandText = "UPDATE tblSeries SET seriesTitleEn = ?, seriesTitleFr = ?, seriesVenueID = ?, seriesTimeStart = ?, seriesTimeEnd = ?, seriesSponsorID = ?, seriesTicketReq = ?, seriesPrice = ?, seriesDescEn = ?, seriesDescFr = ? WHERE seriesID = ?" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("titleEn")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("titleFr")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("mnuVenues"), Request.Form("mnuVenues"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("txtTimeStart"), Request.Form("txtTimeStart"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 135, 1, -1, MM_IIF(Request.Form("txtTimeEnd"), Request.Form("txtTimeEnd"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("mnuSponsor"), Request.Form("mnuSponsor"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("checkTicketReq"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 10, Request.Form("txtPrice")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 1073741823, Request.Form("descEn")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 1073741823, Request.Form("descFr")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "seriesAssignAdd.asp?yearID=2008" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rsSeries__MMColParam rsSeries__MMColParam = "1" if (Request.QueryString("seriesID") <> "") then rsSeries__MMColParam = Request.QueryString("seriesID") %> <% Dim rsSeries Dim rsSeries_cmd Dim rsSeries_numRows Set rsSeries_cmd = Server.CreateObject ("ADODB.Command") rsSeries_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsSeries_cmd.CommandText = "SELECT * FROM tblSeries WHERE seriesID = ?" rsSeries_cmd.Prepared = true rsSeries_cmd.Parameters.Append rsSeries_cmd.CreateParameter("param1", 5, 1, -1, rsSeries__MMColParam) ' adDouble Set rsSeries = rsSeries_cmd.Execute rsSeries_numRows = 0 %> <% Dim rsVenues Dim rsVenues_cmd Dim rsVenues_numRows Set rsVenues_cmd = Server.CreateObject ("ADODB.Command") rsVenues_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsVenues_cmd.CommandText = "SELECT * FROM tblVenues ORDER BY venueNameEn ASC" rsVenues_cmd.Prepared = true Set rsVenues = rsVenues_cmd.Execute rsVenues_numRows = 0 %> <% Dim rsSponsors__varYear rsSponsors__varYear = "2001" If (Session("svarSelectedYear") <> "") Then rsSponsors__varYear = Session("svarSelectedYear") End If %> <% Dim rsSponsors Dim rsSponsors_cmd Dim rsSponsors_numRows Set rsSponsors_cmd = Server.CreateObject ("ADODB.Command") rsSponsors_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsSponsors_cmd.CommandText = "SELECT * FROM tblSponsors INNER JOIN tblSponsorAssign ON tblSponsors.sponsorID = tblSponsorAssign.sponsorID WHERE sponsorSeason = ? ORDER BY sponsorNameEn ASC" rsSponsors_cmd.Prepared = true rsSponsors_cmd.Parameters.Append rsSponsors_cmd.CreateParameter("param1", 5, 1, -1, rsSponsors__varYear) ' adDouble Set rsSponsors = rsSponsors_cmd.Execute rsSponsors_numRows = 0 %> Series Admin | Ottawa Jazz Festival

Ottawa Jazz Festival Inc.

Series

">delete

Title (En) " size="60" />
Title (Fr) " size="60" />
Venue: edit
Start Time: " size="10" /> (hh:mm) (This will be the series default)
End Time: " size="10" /> (hh:mm) (This will be the series default)
Sponsor:
Ticket Required? name="checkTicketReq" type="checkbox" id="checkTicketReq" value="1" /> (Otherwise this is a free event)
Price: " size="10" /> ($xx.xx) (This will be the series default)
Desc(En)
Desc(Fr)

">
<% '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:

<% rsSeries.Close() %> <% rsVenues.Close() %> <% rsSponsors.Close() %>