Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Legionario-rs

[Resolvido] Problema com Paginação

Por , em ASP Clássico

Recommended Posts

Legionario-rs    0

Legionario-rs
Postado

Hargon,

 

Tenho que admitir, trabalho com asp mas não tenho mta base (dá pra notar eu acho) então se você poder trocar em miudos pra mim te agradeço muito e paro de encher o saco que até eu to meio irritado com este código de paginação, to vendo que já to ficando chato com isso mas como preciso disso pronto e não consigo finalizar então peço a ajuda de vocês.

 

Abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tenta isso...

CODE
<%

'Abrimos a Conexão com o Banco

Dim caminho

Dim conexao

caminho = Server.MapPath("/banco/loja.mdb")

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

 

'Selecionamos todos os Produtos da Tabela

Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[cat_id])"

rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

 

'Criamos as Validações

if rsBuscaProdutos.eof then

Mensagem = "Nenhum Registro Encontrado"

Response.End

else

'Definimos em qual pagina o visitante está

if Request.QueryString("pagina")="" then

intpagina = 1

else

if cint(Request.QueryString("pagina"))<1 then

intpagina = 1

else

if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then

intpagina = rsBuscaProdutos.PageCount

else

intpagina = Request.QueryString("pagina")

end if

end if

end if

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<title></title>

</head>

 

<body>

<br>

<font face="verdana" size="2" color="black">

<b>Confira alguns destaques de nossa loja...

</font>

<table width="780" border="0" cellspacing="0" cellpadding="0">

<tr>

<%

'Iniciamos o Loop

rsBuscaProdutos.AbsolutePage = intpagina

intrec = 0

q = 0

While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof

q = q + 1

%>

<td width="567">

<center>

<img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a>

<br>

<font face="verdana" size="2" color="black">

<b><br><br><%=rsBuscaProdutos("nome")%><br>

<%=rsBuscaProdutos("descricaop")%>

</font>

<font face="verdana" size="2" color="Red"><br>

<%="R$: "%>

<%=rsBuscaProdutos("preco")%>,00

<br><br><br><br>

</font>

</td>

<%

rsBuscaProdutos.MoveNext

if q = 3 and not rsBuscaProdutos.eof then

response.write "</tr><tr>"

q = 0

End If

intrec = intrec + 1

Wend

%>

</tr>

</table>

<%

end if

rsBuscaProdutos.Close

Set rsBuscaProdutos = nothing

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito