<table>
		<%For i = 0 To UBound(Items, 2) - 1 step 4%>
			<tr>
				<td style="white-space:nowrap;">
					<input type="checkbox" name="items_<%=Items(0, i)%>" 
						id="items_<%=Items(0, i)%>" checked>&nbsp;<%=Items(1, i)%>
				</td>
				<td style="white-space:nowrap;">
					<%If CInt(i + 1) <= UBound(Items, 2) - 1 Then%>
						<input type="checkbox" name="items_<%=Items(0, i + 1)%>" 
							id="items_<%=Items(0, i + 1)%>" checked>&nbsp;<%=Items(1, i + 1)%>
					<%Else%>
						&nbsp;
					<%End If%>
				</td>
				<td style="white-space:nowrap;">
					<%If CInt(i + 2) <= UBound(Items, 2) - 1 Then%>
						<input type="checkbox" name="items_<%=Items(0, i + 2)%>" 		id="items_<%=Items(0, i + 2)%>" checked>&nbsp;<%=Items(1, i + 2)%>
				       <%Else%>
					       &nbsp;
				        <%End If%>
				</td>
				<td style="white-space:nowrap;">
					<%If CInt(i + 3) <= UBound(Items, 2) - 1 Then%>
						<input type="checkbox" name="items_<%=Items(0, i + 3)%>" 
							id="items_<%=Items(0, i + 3)%>" checked>&nbsp;<%=Items(1, i + 3)%>
					<%Else%>
						&nbsp;
					<%End If%>
				</td>
			</tr>
		<%Next%>
	</table>

	i = 0
	ReDim RprtItems(0)
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT GrdbkItemsID FROM GrdbkItems WHERE ClassesID = " & lThisClass
	rs.Open sql, conn, 1, 2
	Do While Not rs.EOF
		RprtItems(i) = rs(0).Value
		i = i + 1
		ReDim Preserve RprtItems(i)
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	
	For i = 0 To UBound(RprtItems) - 1
		If Request.Form.Item("items_" & RprtItems(i)) = "on" Then
			sql = "INSERT INTO GrdbkRprtsItems (GrdbkRprtsID, ItemID) VALUES (" & lGrdbkRprtsID & ", " & RprtItems(i) & ")"
			Set rs = conn.Execute(sql)
			Set rs = Nothing
		End If
	Next