(Resolvido) Paginação com Problema

[Rodrigo_Linhas]

Olá galera, estou com um problema na minha paginação e não consigo resolver, gostaria de saber se alguém possa me ajudar.

O Problema é que eu limitei o 8 registros por pagina e continua aparecendo mais que 8.

segue o código abaixo:

Esse é o Código de conexao e paginação

Set rs = Server.CreateObject( "ADODB.Recordset" )
    strrs = "SELECT * FROM artesanato where categoria='abajures' order by uid asc"
    rs.open strrs, conexao, 3, 3
    rs.PageSize = 8
    rs.CacheSize = 8
    if rs.eof then
    Response.Redirect"erro.asp"
    Response.End
    else                     
    if Request.QueryString("pagina")="" then 
    intpagina = 1
    else
    if cint(Request.QueryString("pagina"))<1 then
    intpagina = 1
    else
    if cint(Request.QueryString("pagina"))>rs.PageCount then  
    intpagina = rs.PageCount
    else
    intpagina = Request.QueryString("pagina")
    end if
    end if          
    end if      
    end if

Esse abaixo são as colunas que estão dando problema, acredito eu rsrsrsrs

<%
                If Not rs.EOF Then
                    rs.AbsolutePage = intpagina 
                    intrec = 0
                    Do While Not RS.Eof 
                %>

                <ul>
                    
                <li class="first">
                <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a>
                <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4>
                <p align="center"><%=rs("entrega")%></p>
                <p align="center"><span>SOLICITAR ORÇAMENTO</span>
                </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %>

                <li>
                <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a>
                <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4>
                <p align="center"><%=rs("entrega")%></p>
                <p align="center"><span>SOLICITAR ORÇAMENTO</span>
                </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %>

                <li>
                <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a>
                <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4>
                <p align="center"><%=rs("entrega")%></p>
                <p align="center"><span>SOLICITAR ORÇAMENTO</span>
                </li><% RS.MoveNext %><% If RS.EOF Then Exit Do  %>

                <li>
                <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a>
                <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4>
                <p align="center"><%=rs("entrega")%></p>
                <p align="center"><span>SOLICITAR ORÇAMENTO</span>
                </li><% RS.MoveNext %><% If RS.EOF Then Exit Do  %>
                        
                </ul>
                <% 
                loop 
                End If
                intrec = intrec + 1
                                if rs.eof then 
                    response.write " " 
                    end if
                %>

E por ultimo os botões da Paginação

<% 
    if intpagina>1 then 
    %> 

    <INPUT TYPE="BUTTON" VALUE="<<< Anterior" ONCLICK="window.location.href='new_arrival.asp?pagina=<%=intpagina-1%>'">    

    <% 
    end if
    if StrComp(intpagina,rs.PageCount)<>0 then   
    %>   

    <INPUT TYPE="BUTTON" VALUE="Próximo >>>" ONCLICK="window.location.href='new_arrival.asp?pagina=<%=intpagina + 1%>'">    

    <%
    end if
    rs.close
    Set rs = Nothing
    %>

Editado Dezembro 5, 2012 por Rodrigo_Linhas

[bareta]

no seu bloco do loop ali... se tu já ta no loop do banco não precisa dar movenext

<ul>
<%
rs.AbsolutePage = intpagina 

                If Not rs.EOF Then                    
                    intrec = 0
                    While Not RS.Eof 
                %>

                
                    
                <li class="first">
                <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a>
                <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4>
                <p align="center"><%=rs("entrega")%></p>
                <p align="center"><span>SOLICITAR ORÇAMENTO</span>
                </li>
                        
                
                <% 
                   intrec = intrec + 1
                rs.movenext
                wend
                End If
                
                %>
</ul>

[Rodrigo_Linhas]

O Bareta muito obrigado pela ajuda, só tem um probleminha e agora me perdi, ve se você pode me ajudar:

Preciso que aparece assim:

coluna 1 | coluna 2 | coluna 3 | coluna 4

foto n. 1 | foto n. 2 | foto n. 3 | foto n. 4

foto n. 5 | foto n. 6 | foto n. 7 | foto n. 8

com esse codigo acima que você me mandou ficou com 5 colunas e continuou mostrando mais de 8 registros, o que eu faço agora?

Editado Agosto 21, 2012 por Rodrigo_Linhas

[bareta]

para colocar na estrutura de linhas e colunas tu vai ter que mexer no css... e modificar sua estrutura... um if cliando as <UL> e </UL> resolve.

no numero de registros, no loop mude para

While Not RS.Eof  And intrec < rs.PageSize

[Rodrigo_Linhas]

Olha eu mudei a estrutura mas não tive um bom resultado, de uma olhada:

Aparece assim:

Não era para aparecer a ultima imagem, era para exibir as 8 imagens e o botão de ir para proxima pagina

<table border="1" width="177" id="table1">
<%
    If Not rs1.EOF Then
    rs1.AbsolutePage = intpagina 
    intrec = 0
    While Not RS1.Eof  And intrec < rs1.PageSize
    %>
    <tr>
        <%for i = 1 to 4%>
        <td><p align="center"><a href="<%=rs1("foto")%>" rel="lightbox" title=""><img src="<%=rs1("fotolink")%>" alt=""/></a></td>
        <%rs1.movenext%><%next%>
        
    </tr>
        <%
    
    intrec = intrec + 1

    Wend
    %>
</table>

[bareta]

tira o for de meio ali

...

<table border="1" width="177" id="table1">
<tr>  <%
    If Not rs1.EOF Then
    rs1.AbsolutePage = intpagina 
    intrec = 0
i=0
    While Not RS1.Eof  And intrec < rs1.PageSize
    %>
          
        <td><p align="center"><a href="<%=rs1("foto")%>" rel="lightbox" title=""><img src="<%=rs1("fotolink")%>" alt=""/></a></td>              
    
        <%   
i=i+1
if  i >=3 then
i=0
response.write "</tr><tr>"
end if

    intrec = intrec + 1

rs1.movenext
    Wend
    %>
</tr>
</table>

faz um teste ae