Confira
abaixo os banners cadastrados em sua loja
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%
'CHAMA OS DEPARTAMENTOS CADASTRADOS
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 15
RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise.
RS.CursorLocation = 3
RS.CacheSize = registroporpagina
'Vamos fazer a busca na tabela contatos
sql = "SELECT * FROM banners"
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then %>
Nenhum banner foi encontrado!
<%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
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rs.AbsolutePage = intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
%>
Foram
encontrados <%=rs.RecordCount %> banners
cadastrados dividos em <%=rs.PageCount %>
páginas
Você está navegando na página de
número <%=intpagina %>
<%
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rs.PageSize and not rs.EOF
'numiz = CInt(intpagina & "0")
'iz = iz + numiz
iz = iz + 1
%>
<%
rs.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rs.EOF then
response.write " "
END IF
Wend 'fim do loop%>
|
| |
|
| |
|
<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
Página
Anterior |
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,rs.PageCount) <> 0 then
%>
Próxima
Página
<%
END IF
%>
|
| |
|
| |
<%end if%>
|
