Olá Estevam, obrigado pela ajuda
Esta sendo exibido os registros em 2 colunas,
agora estou precisando de ajuda para fazer a paginação funcionar,
Quando tinha feito apenas com uma coluna, funcionava blz, mas agora com
2 colunas, a paginação não funciona, estão sendo exibidos todos registros
abaixo o codigo que estou utilizando:
<%
' conexao e paginação
Dim objRs, x, intpage, strquantidade
intpage = request.QueryString("txtpage")
Set objRS = Server.CreateObject("Adodb.recordset")
call Abreconexao
strquantidade = request.querystring("quantia")
session("quantia") = "9"
if session("quantia") = "" then
objrs.pagesize = 10
else
objrs.pagesize = session("quantia")
end if
objRs.open "Select * From fotos order by id" , Objconn, 3, 3
if intpage = "" then
intpage = 1
end if
objrs.absolutepage = cint(intpage)
x = 1
%>
<%
' imprime os registros em 2 colunas
intrec=0
col = 2
response.write "<table>"
do while NOT objRs.EOF and x <= objrs.pagesize
conta = intrec mod col
if conta = 0 Then
response.write "<tr><td>"
else
response.write "<td>"
end if
response.write "<img width='75' height='56' border='2' class='bord' src=fotos2/"& ObjRs("foto") & ">"
if conta = (col - 1) then
response.Write "</td></tr>"
else
response.write "</td></table>"
end if
ObjRs.MoveNext
intrec=intrec+1
Loop
%>
<br>
<%
' botões AVANÇAR E ANTERIOR
if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer
%>
<a href="menu1.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>">Voltar </a> |
<%end if%>
<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas
%>
<a href="menu1.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>">Avançar</a>
<%end if%>
<%
objrs.close
set ObjRs= Nothing
call fechaconexao
%>
