Ir para conteúdo

POWERED BY:

Arquivado

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

rodrigo_gomes

Problemas com Paginação

Por , em ASP Clássico

Recommended Posts

rodrigo_gomes    0

rodrigo_gomes
Postado

Boa Noite galera,

 

Seguinte, estou tentando aprender ASP agora e por isso essa dúvida pode parecer besta, estou tentando fazer uma paginação, para o meu select mas quando tento mudar de página meu programa mostra que não existem registro a serem exibidos ccomo se o banco estivesse vazio mas sei que não está, se alguem puder me ajudar ficarei muito grato. segue o código:

 

<!--#include file="opendb.asp" --><%if session("logou") <> 1 thenresponse.redirect("default.asp")end ifcodidio = request("idioma")%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>KBS - Advantage Business English.</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#003366" link="#000000" vlink="#000000" alink="#000000"><table width="747" border="0" align="center" cellpadding="0" cellspacing="0">  <tr> 	<td><table width="100%" border="0" cellspacing="0" cellpadding="0">		<tr> 		  <td><img src="../images/top2.jpg" width="747" height="135"></td>		</tr>	  </table></td>  </tr>  <tr>	<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">		<tr>		  <td valign="top" background="../images/bg_menu.jpg"><br>			<table width="100%" border="0" cellspacing="0" cellpadding="0">			  <tr>				<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">					<tr> 					  <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">						  <tr> 							<td width="10%" bordercolor="#003366" bgcolor="#FFCC00"> 							  <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>MENU</strong></font></div></td>							<td width="20%" bordercolor="#003366" bgcolor="#FFFFFF"> 							  <div align="left"><img src="../images/mk.jpg" width="15" height="15"><font size="2" face="Arial, Helvetica, sans-serif"><strong><a href="bsc_prof.asp">Buscar 								Professor</a> </strong></font></div></td>							<td width="20%" bordercolor="#003366" bgcolor="#FFFFFF"><img src="../images/mk.jpg" width="15" height="15"><strong><font size="2" face="Arial, Helvetica, sans-serif"><a href="resultados.asp">Resultados</a></font></strong></td>							<td width="20%" bordercolor="#003366" bgcolor="#FFFFFF"><img src="../images/mk.jpg" width="15" height="15"><font size="2" face="Arial, Helvetica, sans-serif"><strong><a href="sair.asp">Sair</a></strong></font></td>							<td width="30%" bgcolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><< 							  <font face="Arial, Helvetica, sans-serif"><strong>Selecione 							  a ação desejada.</strong></font> </font></td>						  </tr>						</table></td>					</tr>					<tr> 					  <td><form name="form1" method="post" action="bsc_idio.asp">						  <table width="100%" border="0" cellspacing="0" cellpadding="0">							<tr> 							  <td width="5%"> </td>							  <td width="45%"> </td>							  <td width="45%"> </td>							  <td width="5%"> </td>							</tr>							<tr> 							  <td> </td>							  <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="../images/mk.jpg" width="15" height="15">Procuro 								  por professores de:</strong></font></div></td>							  <td> <select name="idioma">								  <option value="0">Nenhum </option>								  <option value="1">Alemão</option>								  <option value="2">Espanhol</option>								  <option value="3">Francês</option>								  <option value="4">Inglês</option>								  <option value="5">Japonês</option>								  <option value="6">Outros</option>								</select>   <input type="submit" name="vai" value="Procurar"></td>							  <td> </td>							</tr>							<tr> 							  <td> </td>							  <td colspan="2"><hr></td>							  <td> </td>							</tr>							<tr> 							  <td> </td>							  <td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">								  <tr> 									<td width="60%" bgcolor="CCCCFF"><strong><font size="2" face="Arial, Helvetica, sans-serif">NOME</font></strong></td>									<td width="20%" bgcolor="CCCCFF"><strong><font size="2" face="Arial, Helvetica, sans-serif">CIDADE</font></strong></td>									<td width="20%" bgcolor="CCCCFF"><font size="2" face="Arial, Helvetica, sans-serif"><strong>CEP</strong></font><strong></strong></td>								  </tr>										  <%					Set Rprof = Server.CreateObject("adodb.recordset")		Rprof.PageSize = 15		VarConProf = "SELECT * from tbl_Prof where ccId1pro = '"& codidio &"' or ccId2Pro = '"& codidio &"' or ccId3Pro = '"& codidio &"' order by ccCepPro"					Rprof.Open VarConProf,db,3,3						  IF RProf.EOF then 						   Response.Write "<font color='#003366' size='2' face='Arial'><B><CENTER>Nenhum registro encontrado.</CENTER></B></FONT>"							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"))> RProf.PageCount then 										 intpagina=Rprof.PageCount 									  ELSE										 intpagina=Request.QueryString("pagina")									  END IF		   END IF							  END IF						  END IF		Rprof.AbsolutePage=intpagina		intrec=0					While intrec < Rprof.PageSize and not Rprof.EOF 	  %>		  <tr> 									<td bgcolor="EEEEEE"><font color="#000000" size="2" face="Arial">									  <%codpro = rprof("cvCodPro")%>									  <a href="professor.asp?codprof=<%response.write(codpro)%>"><%=rprof("ccNomPro")%></A></FONT></td>									<td bgcolor="EEEEEE"><font color="#000000" size="2" face="Arial"><a href="professor.asp?codprof=<%response.write(codpro)%>"><%=rprof("ccCidPro")%></A></FONT></td>									<td bgcolor="EEEEEE"><font color="#000000" size="2" face="Arial"><a href="professor.asp?codprof=<%response.write(codpro)%>"><%=rprof("ccCepPro")%></A></FONT></td>								  </tr>		   <%		rprof.movenext		intrec=intrec+1	  IF Rprof.EOF then 					 response.write " " 					 END IF					Wend				%>								</table></td>							  <td> </td>							</tr>							<tr> 							  <td> </td>							  <td><table border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">								  <tr> 									<td bgcolor="#CCCCFF"> 									  <div align="center"><font color="#000000" size="2" face="Arial"><strong> 										<strong> Página: 										<% 	dim totpag	totpag = rprof.PageCount%>										<%response.write(intpagina)%>										/ 										<%response.write(totpag)%>										</strong> </strong></font> <font size="2"> </font></div></td>									<td bgcolor="#EEEEEE"> <font size="2"> <strong> 									  <%IF (intpagina) <> 0 then %>									  <% IF intpagina > 1 then %>									  <%end if%>									  <% dim i 	   for i = 1 to Rprof.PageCount %>									  <a href="bsc_idio.asp?pagina=<%=i%>">[ 									  <%Response.Write i%>									  ]</a> 									  <%response.Write" "%>									  <%next%>									  <% END IF %>									  </strong> </font></td>		</tr>	  </table></td>							  <td> </td>							  <td> </td>							</tr>						  </table>						</FORM></td>					</tr>					<tr>					  <td background="../images/bg_menu.jpg"> </td>					</tr>				  </table></td>			  </tr>			</table> 		  		  </td>		</tr>	  </table>	</td>  </tr></table></body></html><%db.close%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você mesmo fez este codigo de paginação...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

na parte que verifica qual a page tenta por um CINT na ultima condição como você fez nas anteriores

 

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

intpagina=1

ELSE

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

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> RProf.PageCount then

intpagina=Rprof.PageCount

ELSE

intpagina= CINT(Request.QueryString("pagina"))

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