como puedo contar lineas en ASP????

[karmish]

Saludos:

Necesito contar lineas en asp para poder dejar la informacion en paginas, el codigo que tengo es este:

Código:

<table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td height="128" colspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="315" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="3"></td>
              </tr>
          <tr>
            <td width="44" rowspan="3" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td height="17" colspan="2" valign="top"><span class="reportetit2">EXPERIENCIA PROFESIONAL</span></td>
                <td></td>
              </tr>
          <tr>
            <td height="24" colspan="2" align="left" valign="middle"><img src="images/reporte/linea2.jpg" width="700" height="5" /></td>
                <td></td>
              </tr>
          <tr>
            <td height="106" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <!--DWLayoutTable-->
              <%WHILE NOT rsex.EOF%>
              <tr>
                <td width="387" height="24" valign="top"><span class="reportetit2"><%=rsex.Fields("empresa").value%></span></td>
                      <td colspan="2" valign="top"><span class="reportetit2">Desde <%=rsex.Fields("mes_ini").value%>&nbsp;<%=rsex.Fields("ano_ini").value%>&nbsp;a&nbsp;<%=rsex.Fields("mes_fin").value%>&nbsp;<%=rsex.Fields("ano_fin").value%></span></td>
                    </tr>
              <tr>
                <td height="81" colspan="2" valign="top">
                  <div align="justify"><span class="reportetit2">
                    <%depto1=rsex.Fields("id_famcargos").value
					  if depto1 <> "" then
					 	SQL8="execute sp_s_famcargos3 '"&depto1&"';"
						SET rss2=DbObj.Execute(SQL8)
					 depto1 = rss2("des_famcargo")
					 else
					 depto1 = "Departamento"
					 end if
					 Response.Write(depto1)
					  %>
                    &nbsp;&nbsp;-&nbsp;&nbsp;
                    <%cargo1=rsex.Fields("id_cargos").value
					  if cargo1 <> "" then
					MI1="execute sp_s_cargos4 '"&cargo1&"';"
					 SET bo1=DbObj.Execute(MI1)
					carg1 = bo1("des_cargos")
					 else
					 carg1 = "Cargo"
					end if
					 Response.Write(carg1)
					  %>
                    </span><br />
                    <span class="reportetext">
                      <%=rsex.Fields("des_expla").value%></span> <br />
                    <br />
                    <%rsex.MoveNext%>
                    <br />
                    <br />                
                    </div></td>
                      <td width="136" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                    </tr>
              <tr>
                <td height="0"></td>
                      <td width="200"></td>
                      <td></td>
                    </tr>
              <%WEND%>
              </table></td>
                <td></td>
              </tr>
          </table>