[Resolvido] Paginação

[marciolvs 1]

Possuo a paginação abaixo, consegui aqui mesmo no forum.

Porem preciso pegar o 1° arquivo que tá listado na paginação e o ultimo somente da página atual.

 

'	Pego o ultimo arquivo que está listado pela ordem do SQL

  vult=rcd("Id")

				  response.Write(vult)

Como pegar o primeiro ?

 

        <%
		   SQL = "SELECT * FROM ContasAPagar"
		   if trim(request("ultSequencial"))<>"" then
			  SQL = SQL & " AND numSequencial>" & request("ultSequencial")
		  end if
		  
		  Set conexaodb = Server.CreateObject("ADODB.Connection")
		  conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb") & ";Persist Security Info=False"
		  set rcd = server.createObject("ADODB.RECORDSET")
		  
		  Rcd.PageSize = 2'qtd listadas na primeira pagina
		  SQL = SQL & " order by DataVencimento desc" 
			  
		   rcd.open SQL, conexaodb, 1 ' quantidade de colunas
' faço a contagem dos valores
sql2 = "select sum(Valor) as total from ContasAPagar"
set rs = conexaodb.execute(SQL2)
	
if not rs.eof then
	total = rs("total")
end if  
' fim da contagem
		   vtotal=rcd.recordcount
			  if not rcd.eof then 
				  If Request("pagina")="" then
				   intpagina=1
				  Else
				   If Cint(Request("pagina"))<1 then
					intpagina=1
				   Else
					If Cint(Request("pagina"))>Rcd.PageCount then
					 intpagina=Rcd.PageCount
					Else
					 intpagina=Request("pagina")
					End If
				   End if
				  End if
				  i=1' quantidade de colunas novamente
				  vcounter=1
				  Rcd.AbsolutePage=intpagina
				  intrec=0
				  
				  %>
        <%
				  Do while intrec<Rcd.PageSize and not rcd.eof
				  if cor="#dcdcdc" then cor="" else cor="#dcdcdc"
					  if i=1 then ' quantidade de colunas c for = 1 fecha a tr 
						  response.write "</TR><TR bgcolor='"&cor&"'>"
						  i=0
					  end if
					  %>
        <td align="left"><%%><a href="ContasAPagarAlterar2.asp?cod=<%=rcd("id")%>" class="Link2"> <font color="red"><%=rcd("Referencia")%></font></a></td>
        <td width="100px" align="center" valign="middle"><%=rcd("DataVencimento")%></td>
        <td width="100px" align="right" valign="middle">R$ <%=FormatNumber(rcd("Valor"),2)%></td>
        <%	  
					  vult=rcd("Id")
					  
					  rcd.movenext
					  vcounter = vcounter+1
					  i=i+1
					  
					  if vcounter>2 then 
						  exit do
					  end if
					  ntrec=intrec+1
					'	Pego o ultimo arquivo que está listado pela ordem do SQL
					  response.Write(vult)
				  Loop
				  Response.write "</TR>"
				  'mostro o valor total
				  %>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
        <td align="right" valign="middle"><font color="red"><strong>Total:</strong> R$ <%=Response.Write(FormatNumber(rs("total"),2))%></font></td>
      </tr>
      <%
				  'fim valor total
			  end if
			  'rcd.close
			  dim num 
			  num=0
			  %>
    </table>
      <center>
<%
		  'Paginação
		  If intpagina>1 then %>
		  <a href="ContasAPagarAlterar.asp?pagina=<%=intpagina-1%>" class="Link2">Anterior</a>
<%		  end if
			  
			  For i=1 to Rcd.PageCount
			  If i = Cint(intpagina) then%>
        [<%=i%>] 
        <% else %>
        <a href="ContasAPagarAlterar.asp?pagina=<%=i%>" class="Link2">[<%=i%>]</a> 
        <%end if
		  Next			  
		  If strcomp(intpagina,Rcd.PageCount)<>0 then %>
        <a href="ContasAPagarAlterar.asp?pagina=<%=intpagina+1%>" class="Link2">Próxima</a>
        <%end if%>
        </center>
        <%rcd.close
          set rcd = nothing%

Agradeço a todos que ajudarem.

[marciolvs 1]

Resolvi.

 

  <%
				 'uso do calculo
				  Totall = 0
				  
				  Do while intrec<Rcd.PageSize and not rcd.eof
				  if cor="#dcdcdc" then cor="" else cor="#dcdcdc"
					  if i=1 then ' quantidade de colunas c for = 1 fecha a tr 
						  response.write "</TR><TR bgcolor='"&cor&"'>"
						  i=0
					  end if
					  %>
        <td align="left" height="20px"> <font color="red"><%=rcd("referente")%></font></td>
        <td width="100px" align="center" valign="middle"><%=rcd("DataVencimento")%></td>
        <td width="100px" align="right" valign="middle">R$ <%=FormatNumber(rcd("Valor"),2)%></td>
        <td width="50px" align="center" valign="middle">
		<%IF rcd("Baixa") = "SIM" Then%>
        	<a href="ContasAPagarListar.asp?pagar=NÃO&cod=<%=rcd("id")%>" class="Link2"><font color="#009900">Pago</font></a>
		<%ELSE%>
        	<a href="ContasAPagarListar.asp?pagar=SIM&cod=<%=rcd("id")%>" class="Link2"><font color="red">Pagar</font></a>
		<%END IF%>
        </td>
        <%	  
					  vult=rcd("Id")
					  
					  'uso do calculo
					  totall = totall + rcd("Valor")
					  
					  rcd.movenext
					  vcounter = vcounter+1
					  i=i+1
					  
					  if vcounter>10 then 
						  exit do
					  end if
					  ntrec=intrec+1 
					
				  Loop
				  
				  'Response.write(total)
				  
				  Response.write "</TR>"
				  'mostro o valor total
				  %>

Campos comentado como "'uso do calculo" foi os criados

Assim ele contou no loop e me retornou os valores listados.