<%@LANGUAGE="VBSCRIPT"%> <% Dim rsSeriesAssignsToDelete__MMColParam rsSeriesAssignsToDelete__MMColParam = "1" If (Request.QueryString("yearID") <> "") Then rsSeriesAssignsToDelete__MMColParam = Request.QueryString("yearID") End If %> <% Dim rsSeriesAssignsToDelete Dim rsSeriesAssignsToDelete_cmd Dim rsSeriesAssignsToDelete_numRows Set rsSeriesAssignsToDelete_cmd = Server.CreateObject ("ADODB.Command") rsSeriesAssignsToDelete_cmd.ActiveConnection = MM_connOttawaJazzFestival_STRING rsSeriesAssignsToDelete_cmd.CommandText = "SELECT * FROM tblSeriesAssign WHERE assignYearID = ?" rsSeriesAssignsToDelete_cmd.Prepared = true rsSeriesAssignsToDelete_cmd.Parameters.Append rsSeriesAssignsToDelete_cmd.CreateParameter("param1", 5, 1, -1, rsSeriesAssignsToDelete__MMColParam) ' adDouble Set rsSeriesAssignsToDelete = rsSeriesAssignsToDelete_cmd.Execute rsSeriesAssignsToDelete_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSeriesAssignsToDelete_numRows = rsSeriesAssignsToDelete_numRows + Repeat1__numRows %> <% 'option explicit dim SQL, conn, rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open = MM_connOttawaJazzFestival_STRING %> <% ' DELETE any previous values for this year and then re-insert them ' this is to help keep the database from bloating Dim varAssignID While ((Repeat1__numRows <> 0) AND (NOT rsSeriesAssignsToDelete.EOF)) 'rs is limited to this event varAssignID = (rsSeriesAssignsToDelete.Fields.Item("assignID").Value) 'match every row in the rs SQL = "DELETE FROM tblSeriesAssign WHERE assignID = " & varAssignID 'response.write("SQL DELETE = " & SQL & "
") set rs = conn.execute(SQL) Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSeriesAssignsToDelete.MoveNext() Wend %> <%' get yearID for the events we are going to assign artists Dim varYearID varYearID = Request.queryString("yearID")%> <% 'INSERT NEW VALUES 'get record values Dim varRecordID, varSeriesID varRecordID = 1 FOR varRecordID = 1 to Request.Form("hidTotal") varSeriesID = Request.Form("checkSeries" & varRecordID) 'loop thru the checkboxes 'response.write(varArtistID & "
") IF varSeriesID <> "" THEN SQL = "INSERT INTO tblSeriesAssign (assignYearID, assignSeriesID) VALUES (" & varYearID & "," & varSeriesID & ")" 'response.write("SQL INSERT = " & SQL & "
") set rs = conn.execute(SQL) END IF NEXT ' return to the artist edit page 'Response.Redirect("/admin/festival/event/eventEdit.asp?eventID=" & Request.queryString("eventID")) 'Response.Redirect("/admin/festival/events/eventAdd.asp?artistID=" & Session() Response.Redirect("/en/events/default.asp") %> <% rsSeriesAssignsToDelete.Close() Set rsSeriesAssignsToDelete = Nothing %>