validation input Checkbox

For T As Integer = 0 To DtTable.Rows.Count - 1
 StrContent &= "<tr><td with="20%"><input type='checkbox' Name='chk' ID='T' runat='server' onclick='javascript:CalcTotTickets(this);' title='T' " & T & "  />" & DtTable.Rows(T).Item("ROOM_NAME").ToString & "</td></tr>"
  Next

Dim strTemp As String
Dim ar As New ArrayList
Dim inputbox As New HtmlInputCheckBox

For Each strTemp In Request.Form.AllKeys
    If strTemp.IndexOf("chk") > 0 Then

    End If
Next