array de novo

[Clauido José]

Ola pessoal to com uma duvidia, tenho um sistema feito em asp e javascript para validar, bom neste sistema criei um loop onde trago um resultado de umm recordset, e coloquei um checkbox para validar se ta checado ou não, bom ta funcionando mas tem hora que eu clico no check para selecionar algum item deste loop ele fala que não está selecionado.Estou fazendo da seguinte forma.

validação do check

function validachk(iQtdeVetor){
   var ck=new Array();
     var cks = document.getElementsByName('chkItem[]');
     var atri= document.getElementsByName('codAtribuido[]')
     for (i = 0; i < cks.length; i++) {
      if (cks[i].checked != false) {  
     if (atri[i].value=="RA"){    
      atribuido = true;
     }else{
      atribuido = false;
     }    
        ck = true;
    }else{
     ck = false;
    }
   }
   if ( atribuido ){
    alert('Algum item já foi atribuido!')

    return false;  
   }
   if (ck){   
    alert("Não selecionado");
    return false;
   }
   return true
  }

o loop com o resultado do recordset

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
      <%Bg="#8AACE7"%>
      <tr>
       <td bgcolor="<%=Bg%>" width="45"   align="left" class="SubTitulo">No. Os</td>
       <td bgcolor="<%=Bg%>" width="40"   align="left" class="SubTitulo">Servi&ccedil;o</td>
       <td bgcolor="<%=Bg%>" width="100"  align="left" class="SubTitulo">Tipo Os </td>
       <td bgcolor="<%=Bg%>" width="50"  align="left" class="SubTitulo">Periodo</td>
       <td bgcolor="<%=Bg%>" width="30"   align="left" class="SubTitulo">Status</td>
       <td bgcolor="<%=Bg%>" width="180"  align="left" class="SubTitulo">Endereco</td>
       <td bgcolor="<%=Bg%>" width="65"  align="left" class="SubTitulo">Cep</td>
       <td bgcolor="<%=Bg%>" width="60"  align="left" class="SubTitulo">Residencia</td>
       <td bgcolor="<%=Bg%>" width="15"   align="left" class="SubTitulo"></td>
       <td bgcolor="<%=Bg%>" width="15"   align="left" class="SubTitulo"></td>
       <td bgcolor="<%=Bg%>" width="15"   align="left" class="SubTitulo"></td>
      </tr>
      <%
      dim i 
      i =0
      vVetor = 0 
      if rsRota.RecordCount>0 then
       do while Not rsRota.EOF
        if rsRota("idstatus")=1 then
         sData=rsRota("datCompromisso")
         if rsRota("codServico")<>"AT" then
          sSql="Select * from tabDth where tabDth.NoOs="&rsRota("NoOs")
          if rsBusca.state=1 then rsBusca.close
          rsBusca.open sSql,Conexao,1,1
          if rsBusca.RecordCount >0 then
           sIdTipoOs=rsBusca("idTipoOs")
           if trim(sIdTipoOs) <> "" or trim(sIdTipoOs) <> null then        
            Sql="Select * from tabTipoOs where idTipoOs="&sIdTipoOs 
            if rsTipoOs.state=1 then rsTipoOs.close
            rsTipoOs.Open Sql,Conexao,1,1
            sTipoOs=rsTipoOs("Descricao")
           end if
          end if
         else
          sTipoOs=""
         end if
         if Bg="#8AACE7" then Bg="#FFFFFF" else  Bg="#8AACE7" end if 
         if rsRota("baixado")=1 then Bg="#66CCCC"
         sAtribuido=rsRota("Atribuido")
         Sql = "Select * from tabStatus where idStatus=" & cint(rsRota("idStatus"))
         if rsStatus.State=1 then rsStatus.Close
         sAtribuido=rsRota("Atribuido")
         Sql = "Select * from tabStatus where idStatus=" & cint(rsRota("idStatus"))
         if rsStatus.State=1 then rsStatus.Close
         rsStatus.Open Sql,Conexao,1,1
         if rsStatus.RecordCount=0 then sStatus=rsStatus("Codigo")
         Sql = "Select * from tabCliente where idCliente=" & rsRota("idCliente")
         if rsCliente.state=1 then rsCliente.Close
         rsCliente.Open Sql,Conexao,1,1
         if rsCliente.RecordCOunt then
          sEndereco=rsCliente("Endereco")         
          sCep11111=rsCliente("Cep")
          sTipoResi=rsCliente("TipoResidencia")
         end if         
        
      %>
         <tr bgcolor="<%=Bg%>" >
          <td width="50"  align="left" class="SubTitulo" style="cursor:hand" onClick="chamaAssinantes('<%=rsRota("NoOs")%>')"><%=rsRota("NoOs")%></td>
          <td width="40"  align="left" class="SubTitulo" ><%=rsRota("codServico")%></td>
          <td width="100"  align="left" nowrap bgcolor="<%=Bg%>" class="SubTitulo" ><%=sTipoOs%></td>
          <td width="50"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Periodo")%></td>
          <td width="30"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sStatus%></td>
          <td width="180" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Endereco")%></td>
          <td width="65"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Cep")%></td>
          <td width="70"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("TipoResidencia")%></td>
          <td width="15"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idEmpresa")%></td>
          <td width="15"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idTecnico")%></td>
          <td width="15"  align="left" bgcolor="<%=Bg%>" class="SubTitulo"><input  name="chkItem[]" type="checkbox" id="chkItem_<%=i%>" value="<%=rsRota("NoOs")%>" />
          <input name="codAtribuido[]" type="hidden" id="codAtribuido[]" value="<%=sAtribuido%>" /></td>
         </tr>
      <%
        end if
        i = i + 1
        rsRota.MoveNext
       loop
      end if
      %>
        </table>