Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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%>Carregando comentários...