<% Dim i Dim tot1 Dim totval i = 1 Do WHILE NOT tabla.EOF totval = int(tabla.RecordCount) tot1 = 0 %> <tr> <td><% = tabla("codigo") %></td> <td><% = tabla("titulo") %></td> <td><input type="checkbox" name="cb&<% = i %>" value="<% = tabla("codigo") %>"></td> </tr> <% i = i + 1 tabla.MoveNext Loop %>