Próximo e anterior...

[Legionario-rs 0]

Boa noite pessoal,

 

Tenho o seguinte código:

 

<%
'declarando objetos
dim sql, objConn, rs

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Projetos\Lojas Adri\Projeto Lojas Adri\banco\loja.mdb"
sql = "SELECT ALL * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])"

Set rs = objConn.Execute(sql)

'numero de colunas
col=3

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while not rs.eof

%>
<table width="100%" border="0" cellspacing="7" cellpadding="3">
  <tr>
	<td width="567"><center><a href="detalhe_mais_produtos.asp?id=<%=rs("id")%>" target="principal"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' width="100" border="0" alt="Clique no produto para ver sua descrição"></a></tr>
  <tr>
	<td style="border:0;position:relative; left:0; top:10;"><center><font face="verdana" size="1" color="black"><b><%response.write rs ("nome")%><b></td></tr>
	<td style="border:0;position:relative; left:0; top:0;"><center><font face="verdana" size="3" color="red"><b>R$ <%response.write formatnumber (rs("preco"),2)%></b></td></tr>
	<td style="border:0;position:relative; left:0; top:-10;"><center><font face="verdana" size="1" color="black"><b><%response.write rs ("condicoes")%><b></td></tr>
  </tr>
</table>
<%

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

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

end if
rs.close

set rs=nothing

%>

Preciso fazer com que ele liste 9 itens e crie automáticamente um link para uma próxima página caso tenha mais de 9 itens a serem listados no banco (que sei que existem mais de 9 claro) preciso que fique desta forma + ou -:

 

<<Anterior 1 2 3 4 5 6 7 8 9 10 Próximo>>

 

Agradeço a ajuda de todos que puderem.

 

Abraço.

Legionário

[hargon 64]

Faz uma pesquisa aqui no Fòrum. O Vinicius implementou um código de paginação parecido e o Ted k' postou no laboratório de scripts.

[Legionario-rs 0]

beleza hargon,

 

Já encontrei o script mas o dele é com MySql e eu uso Access e preciso de uma ajuda para aplicar neste código em específico pois estou aprendendo asp ainda e fica complicado emtender o que vai onde e o que posso usar tendo um pouco de urgencia no caso...

 

Valeu a ajuda.

 

Abraço.

[hargon 64]

O dele é MySQL, pq ele fez em MySQL. Mas se você alterar a conexão para Access vai funcionar.

[xanburzum 169]

olha este exemplo:

 

<%


pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
'Seta a variavel pagina como a página em questão na paginação

registros = 20
'Seta o número de registros por pagina

set conn = Server.CreateObject("ADODB.Connection")
strconn = "DBQ=" & Server.MapPath("banco.mdb")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; " & strconn

set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.pagesize = registros

StrSQL = "SELECT * FROM nossa_tabela"
RS.Open StrSQL

if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
else
RS.absolutepage = pagina
if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
fim = 1
end if
xx = 0
While NOT RS.EOF AND xx < RS.pagesize
xx = xx + 1
%>#<%=xx%> - <%=RS("texto")%><br><%
RS.MoveNext
Wend
end if

if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then
%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <%
end if

%><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a><%

end if

RS.Close
Conn.Close

%>

[Legionario-rs 0]

Pessoal,

 

Bom é o seguinte,

 

Temnho um site em que se faz necessário que o cliente clique com o botão direito do mouse sobre o produto e ao copiar o link e coloca-lo em outra página ele abra aquele produto mas com o site inteiro não somente o produto como neste axemplo:

 

http://www.lojasadri.com.br/detalhe_produto_capa.asp?id=221

 

Se o que tem neste link for colocado no navegador vai abrir o produto mas com um fundo branco sem o resto do site pois eu utilizo frames e iframes e preciso do link completo para que os vendedores da loja possam copiar os links e passalos aos clientes que pedirem entendem?

 

Estava tentando um movenext pois daí eu colocaria um link catálogo na página e neste não utilizaria nem frame nem iframe mas teria que mexer na estrutura do site. Não sei mas acredito que estou indo pelo caminho mais dificil mas além de ter urgencia não sou mto bom com asp para fazer algo mais avançado.

 

Xanburzum: Funcionou beleza mas não é exatamente isso pois preciso que fique em no mínimo 3 colunas. Mas como descrito acima acredito que o caso é outro.

 

Bom acho que é isso...

Abraço a todos.

 

Legionario

[xanburzum 169]

dá uma pesquisada no forum...

[Loko da Web 1]

No caso dos iframes, utilize includes, dessa forma o conteudo que estava no iframe esta totalmente "integrado" ao site. Não ficando em quadros separados, assim podera "copiar" o link...

[Legionario-rs 0]

Bom dia,

 

Ok, vou tentar e qualquer coisa retorno.

Valeu pela ajuda!!!

Abraço.

 

Legionario