Encaixar paginação

[Carlos Moreira 0]

Olá estou precisando encaixar uma paginação no codigo abaixo, mas nao estou conseguindo pq sera?

 

tentem ver o que acontece, agradeço a ajuda desde já

 

 

<!--#include virtual="includes/toposite.asp"--><% categ = request.querystring("c")subcateg = request.querystring("s")estiloc = request.querystring("e") 	nomes = request.querystring("n") If request.querystring("c") = 1 thenpacotes = "Nacionais"Elsepacotes = "Internacionais"End if%><table width="95%" border="0" cellspacing="5" cellpadding="5" align="center">				<tr>				  <td>				  <br>   <big><big>Pacotes <%= veja %> » <%= id %></big></big><br><br><% DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&bd&";" Set Conntmp = Server.CreateObject("ADODB.Connection") Conntmp.Open DSNtemp Set RS = Server.CreateObject("ADODB.Recordset")msql = "SELECT * from VIAGENS where subcateg= '"&subcateg&"' order by VIAGEM"RS.Open msql, Conntmp,3,3 qtdestino = rs.recordcountDo While Not RS.EOFVIAGEM = rs("iddestino")ONDE = rs("destino")%><% ' SELECIONA OS PACOTESSet RStmp = Server.CreateObject("ADODB.Recordset")msqltemp = "SELECT * from pacotes where destino = '"&DESTINO&"' ORDER BY TITULO"RStmp.Open msqltemp, Conntmp,3,3 %><% If  qtdestino <> 0 then %><%Do While Not RStmp.EOF%><!--#include file="part1.asp"--> 'aqui eu puxo minha tabela com o qu eu quero<%RStmp.MoveNextLoop%><% End If 'qt viagem%><%RS.MoveNextLoopRS.Close Set RS = Nothing RStmp.Close Set RStmp = Nothing Conntmp.Close Set Conntmp = Nothing  %>	  	  </td>		</tr>   </table><!--#include virtual="includes/rodape.asp"-->

[Davide Ricardo 0]

Acrescentando algumas coisas, vai testando e dando os erros...

Olá estou precisando encaixar uma paginação no codigo abaixo, mas nao estou conseguindo pq sera?tentem ver o que acontece, agradeço a ajuda desde já

<!--#include virtual="includes/toposite.asp"--><% Response.buffer= True RegistosPorPagina = 3 'aqui coloca-se o numero de registos que queremos mostrar por paginastrNoRegistos = "Não foi encontrado nenhum registo na base de dados" 'Mensagem de inexistência de registoscateg = request.querystring("c")subcateg = request.querystring("s")estiloc = request.querystring("e") 	nomes = request.querystring("n") If request.querystring("c") = 1 thenpacotes = "Nacionais"Elsepacotes = "Internacionais"End if%><%'Paginação na páginaNomPagina = "nomedoficheiro.asp" VarPagina = "&"RegistosPorPagina = RegistosPorPagina If rs.EOF = true or rs.BOF = true thenresponse.write "<tr><td align=center><font> "Response.write strNoRegistosresponse.write "</font></td></tr> "Else	TotRecord = rs.RecordCountIf TotRecord < RegistosPorPagina ThenPagine = 1ElsePagine = TotRecord / RegistosPorPaginaEnd If			ArrPagine = Round(Pagine)If Pagine > ArrPagine thenPagine = ArrPagine + 1ElsePagine = ArrPagineEnd If			Pagina = Request("pagina")If Pagina = "" Then Pagina = 1 End IfPrimoRecord = (Pagina * RegistosPorPagina ) - (RegistosPorPagina - 1)UltimoRecord = PrimoRecord + RegistosPorPagina 			rs.Move(PrimoRecord - 1)For Conteggio = 1 to RegistosPorPagina If rs.Eof thenConteggio = RegistosPorPagina Else			%><table width="95%" border="0" cellspacing="5" cellpadding="5" align="center">				<tr>				  <td>				  <br>   <big><big>Pacotes <%= veja %> » <%= id %></big></big><br><br><% DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&bd&";" Set Conntmp = Server.CreateObject("ADODB.Connection") Conntmp.Open DSNtemp Set RS = Server.CreateObject("ADODB.Recordset")msql = "SELECT * from VIAGENS where subcateg= '"&subcateg&"' order by VIAGEM"RS.Open msql, Conntmp,3,3 qtdestino = rs.recordcountDo While Not RS.EOFVIAGEM = rs("iddestino")ONDE = rs("destino")%><% ' SELECIONA OS PACOTESSet RStmp = Server.CreateObject("ADODB.Recordset")msqltemp = "SELECT * from pacotes where destino = '"&DESTINO&"' ORDER BY TITULO"RStmp.Open msqltemp, Conntmp,3,3 %><% If  qtdestino <> 0 then %><%Do While Not RStmp.EOF%><!--#include file="part1.asp"--> 'aqui eu puxo minha tabela com o qu eu quero<%RStmp.MoveNextLoop%><% End If 'qt viagem%><%RS.MoveNextLoopNext 'mediante os registos escolhidos, ele cria ou não páginas seguintesAnterior = Pagina - 1Seguinte = Pagina + 1Primeira = 1Ultima = rs.PageCount						fddmais = "<img src=imagens/seguinte_on.gif border=0 alt=""Seguinte"">"fddmenos = "<img src=imagens/anterior_on.gif border=0 alt=Anterior>"fddprimeira = "<img src=imagens/primeira.gif border=0 alt=""Primeira Página"">"fddultima = "<img src=imagens/ultima.gif border=0 alt=""Última Página"">"						Response.write "</b><font class=preto>Página " & Pagina & " de " & Pagine & "</font><b> "%><img width=5 src="imagens/invisivel.gif" border=0 height=1><%If pagina <> 1 ThenResponse.Write "<A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & primeira & "'" & ">" &fddprimeira& "</a>"end if						If Pagina > 1 thenResponse.write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & Anterior & "'" & ">" &fddmenos& "</a>"End If						If not rs.EOF thenResponse.write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & Seguinte & "'" & ">" &fddmais& "</a> "End If						If Not rs.EOF ThenResponse.Write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & ultima & "'" & ">" &fddultima& "</a> "End Ifend ifRS.Close Set RS = Nothing RStmp.Close Set RStmp = Nothing Conntmp.Close Set Conntmp = Nothing  %>	  	  </td>		</tr>   </table><!--#include virtual="includes/rodape.asp"-->

Não digo que funcione já, provavelmente pode conter pekenos erros..mas a materia ta ai..Se faltarem alguns end if's colocar antes do rs.close

[Carlos Moreira 0]

Não to conseguindo mesmo pessoal, encaixar uma paginação aqui, ta dificilPor favor deem uma maozinha aqui, esse acima tbm nao deu certomuitos erros

[Davide Ricardo 0]

Bom, é claro que ta a dar erros pk nao ta implementado p o seu codigo..Por isso começa a postar os erros ai..Ou entao coloca ai a bd que ta a usar..ou melhor so a tabela sem dados sem nda..ai vejo o que posso fazer...oki?Não eskeça tambem de colocar os includes que voce chama, isto se tiverem interferência para a resolução do prob..mas axo que nao..pk trata-se apenas do cabeçalho e rodape da pagina ne?inte jazzzzzz

[Carlos Moreira 0]

<!--#include virtual="templates/top.asp"--><% categoria = request.querystring("c")subcategoria = request.querystring("s")estilo = request.querystring("e") 	nome = request.querystring("n") If request.querystring("c") = 1 thenpacotes = "Nacionais"Elsepacotes = "Internacionais"End if%><table width="95%" border="0" cellspacing="5" cellpadding="5" align="center">				<tr>				  <td>				  <br>   <big><big>Pacotes <%= Pacotes %> » <%= nome %></big></big><br><br><% DSNtemp="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&caminhobd&";" Set Conntmp = Server.CreateObject("ADODB.Connection") Conntmp.Open DSNtemp Set RS = Server.CreateObject("ADODB.Recordset")msql = "SELECT * from DESTINOS where subcategoria = '"&subcategoria&"' order by DESTINO"RS.Open msql, Conntmp,3,3 qtdestino = rs.recordcountDo While Not RS.EOFDESTINO = rs("iddestino")LUGAR = rs("destino")%><% 'SELECIONA OS PACOTESSet RStmp = Server.CreateObject("ADODB.Recordset")msqltemp = "SELECT * from pacotes where destino = '"&DESTINO&"' ORDER BY TITULO"RStmp.Open msqltemp, Conntmp,3,3 %><% If  qtdestino <> 0 then %><%Do While Not RStmp.EOF%><br><table width="30%" border="0" cellspacing="0" cellpadding="0" ><tr><td vAlign="top" align="right" width="9" bgcolor="<%= cor0 %>"><img src="images/cantobig_esq.gif"></td><td bgcolor="<%= cor0 %>"><b><% If request.querystring("e") <> "" then %><center><font color="<%= cortxt0 %>"><%= nomesub%></font></center><% Else %><center><font color="<%= cortxt0 %>"><%= lUGAR %></font></center><% End If %></b></td><td vAlign="top" align="right" width="9" bgcolor="<%= cor0 %>"><img src="images/cantobig2_ESQ.gif"></td></tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"  bgcolor="<%= cor1 %>"> <tr> 	<td width="83" rowspan="3" bgcolor="<%= foto %>"><div align="center">	<a href="pacote.asp?id=<%= RStmp("id") %>"><!--#include file="fotos_pacs.asp"--></a>		</div></td>	<td colspan="2" bgcolor="<%= cor1 %>"><a href="pacote.asp?id=<%= RStmp("id") %>"><font color="<%= cortxt1 %>"><b><%= RStmp("titulo") %></b> </a></font></td>  </tr> <tr> 	<td bgcolor="<%= cor2 %>"><font color="<%= txt2 %>">Duração:</font></td>	<td bgcolor="<%= cor2 %>"><font color="<%= txt2 %>">À partir de:</font></td>  </tr>  <tr> 	<td width="271" BGCOLOR="<%= Cor3 %>"><font color="<%= cortxt2 %>"><%= RStmp("duracao") %></font></td>	<td width="206" BGCOLOR="<%= Cor3 %>"><font color="<%= cortxt2 %>"><%= RStmp("apartirde") %> </font></td>  </tr>  </table><%RStmp.MoveNextLoop%><% End If 'qt destino%><%RS.MoveNextLoopRS.Close Set RS = Nothing RStmp.Close Set RStmp = Nothing Conntmp.Close Set Conntmp = Nothing  %>	  	  </td>		</tr>   </table><!--#include virtual="templates/rod.asp"-->

[Davide Ricardo 0]

tb keria saber quais sao os campos das tabelas Pacotes e Destinos...Posta ai..assim eu faço o exemplo direitinho...pelo menos tento ne? ;)

[Carlos Moreira 0]

baixe aiwww.primeiraigrejabatista.com.br/pg.mdb