Spyce Mel

Pessoal do forum obrigada a todos que me ajudaram consegui resolver o meu problema Ao final da query de busca inseri um if If request("filtro") <> "" then filtro= request("filtro") end if e no link próximo e anterior ficou assim: <a href="index.asp?pag=ofertas&intpagina=<%=intpagina-1%>&filtro=<%=filtro%>">Anterior</a> <a href="index.asp?pag=ofertas&intpagina=<%=intpagina+1%>&filtro=<%=filtro%>">Próximo</a> valeu :rolleyes:

Não estou mandando pedaço da sql no link quando ponho o mouse em cima de próximo que me aparece esse link o que to tentando fazer é passar pra segunda página que ele tem que mostrar os demais registros, pois são 10 por página e ainda falta me mostrar 5 registros, só a segunda página não entende isso e me mostra todo o conteudo sem filtros. to tentando passar isso por parâmetro.

Pessoal tentei assim também <a href="index.asp?pag=ofertas<%=where%>&intpagina=<%=intpagina+1%>">Próximo</a> mas ai a segunda página aparece em branco e na url aparece assim: http://localhost/gpsite/index.asp?pag=ofertas%20AND%20CADPRD.PrdCidCod%20=%20'ALPHAVILLE%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20'&intpagina=2 Socorooooo alguém me ajude, to tentando de tudo aqui. Mas preciso de ajuda já são 2 dias tentando :unsure:

Alberto obrigada pela dica, eu já tinha olhado o seu exemplo ontem o dia todo mas não ainda não deu certo pra mim. Obrigada :rolleyes: Bareta.... obrigada pela dica eu tentei passar o parametro para a outra página, inclusive olhei o exemplo do nosso colega Alberto o meu código ficou assim: <a href="index.asp?pag=ofertas&intpagina=<%=intpagina+1%><%="&cidade&="&where%>">Próximo</a> mas o problema continua inclusive quando ponho o mouse sobre o link próximo me aparece assim: http://localhost/gpsite/index.asp?pag=ofertas&intpagina=2&cidade&=AND CADPRD.PrdCidCod='ALPHAVILLE ' só que a segunda página mostra como se eu estivesse feito a pesquisa sem filtros Se eu coloco o código assim: <a href="index.asp?pag=ofertas&intpagina=<%=intpagina+1&Where%>">Próximo</a> quando clico na segunda página me dá o erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'cint' /gpsite/ofertas.asp, line 70 HELP por favor :unsure:

Olá amigo NoNaMexD voltei....rsrsrs estive fazendo vários testes na minha página e encontrei um outro erro, quando faço uma busca por cidade onde existem mais de 10 registros a paginação não funciona. exemplo: pesquisei por uma cidade que existe 15 registros, na minha primeira página aparecem 10 registros (por pagina) quando clico no link próximo, a pesquisa não mostra os 5 registros restantes e sim mostra todos os registros do meu banco como se eu não tivesse feito a pesquisa por cidade. Estou aqui batendo a cabeça e tentando resolver, se puder me ajudar ficarei agradecida Marisa Dantas if request("cidade") <> "" then where = where&" AND CADPRD.PrdCidCod = '"&request("cidade")&"'" end if Nossa vi que o Brenno também tem o mesmo problema que eu...rsrsrs To aqui fazendo alguns testes e tentei colocar uma váriavel quando eu clico em proximo <a href="index.asp?pag=ofertas&intpagina=<%=intpagina+1%><%=where%>">Próximo</a> mas ai me dá um erro Tipos incompatíveis: 'cint' /gpsite/ofertas.asp, line 70 Vou continuar fazendo meus testes se alguém souber o erro me dá um Help Se eu conseguir arrumar o código eu posto aqui. :wacko:

Vou ver se consigo ser mais clara. para a paginação funcionar preciso antes fazer uma pesquisa certo? existe uma pesquisa pelo produto total, por cidade, por bairro, por preço. enfim.... várias pesquisas onde me mostra o produto. estou na pagina inicial e coloco o mouse em cima do botão pesquisar produto no canto esquerdo da tela aparece assim: java script:void(); tudo certo até ai quando a pesquisar é feita, na primeira página me aparece um link escrito próximo certo? (da paginação) ai coloco novamente o mouse em cima do botão pesquisar e aparece assim: http://localhost/gpsite/java%20script:void(); e se eu clico dá erro de pagina não encontrada Amigo obrigada pela sua ajuda encontrei o erro tava nesta linha <a href="java script:void();" onclick="document.getElementById('FrmPesquisa').submit();"><img src="png/btpesquisar.png" alt="" border="0" /></a><a href="index.asp?pag=contato"><img src="img/prs.jpg" border="0" /></a> onde tá javascript tava java script com espaço Obrigada pela ajuda foi de grande valia. Bom Fds Abraços

Puxa Obrigada a paginação funcionou perfeitamente, já fazia uma semana que eu estava quebrando a cabeça. Só que ocorreu outro erro quando clico no próximo pra ir pra segunda página, clico no botão pesquisar novamente onde me traz a pesquisa completa. e dá erro de página não encontrada. Na URL: http://localhost/gpsite/java%20script:void();

Pessoal preciso de um Help o meu caso é o seguinte: Tenho uma pagina que acessa uma tabela com 97 registros fiz uma página que mostra todos os dados só que usando paginação na primeira página aparece os primeiros 10 registros, mas quando clico pra segunda página aparece em branco, e não me mostra mais o link para seguir para a próxima página Se alguém puder me ajudar ficarei agradecida. segue o código fonte: <link href="design.css" rel="stylesheet" type="text/css" /> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"> <div > <strong>Produtos</strong></div> <div style="font-size:12px; margin-top:10px; width:340px; "> <% if request("regiao") <> "" then where = where&" AND CADPRD.RegCod = '"&request("regiao")&"'" end if if request("cidade") <> "" then where = where&" AND CADPRD.PrdCidCod = '"&request("cidade")&"'" end if if request("bairro") <> "" then where = where&" AND CADPRD.PrdBaiCod = '"&request("bairro")&"'" end if if request("tipo") <> "" and request("tipo") <> "0" then where = where&" AND CADPRD.PrdTip = '"&request("tipo")&"'" end if if request("faixapreco") <> "" and request("faixapreco") <> "0" then set fs = server.CreateObject("ADODB.Recordset") query = "SELECT * FROM CADFXA WHERE FxaCod = '"&request("faixapreco")&"'" fs.open query, conn if not fs.eof then where = where&" AND CADPRD.EmpVal >= "&fs("FxaDe")&" AND CADPRD.EmpVal <= "&fs("FxaAte") end if end if if request("vagas") <> "" then where = where&" AND CADPRD.EmpNroVag >= "&request("vagas") end if if request("suites") <> "" then where = where&" AND CADPRD.EmpNroSui >= "&request("suites") end if if request("quartos") <> "" then where = where&" AND CADPRD.EmpNroDor >= "&request("quartos") end if if request("area") <> "" then where = where&" AND CADPRD.EmpAreLot >= "&request("area") end if query = "SELECT count(*) as c FROM CADPRD LEFT OUTER JOIN CADCID ON (CADPRD.PrdCidCod = CADCID.CidCod) WHERE 1=1 "&where&" ORDER BY RAND()" set rs = server.CreateObject("ADODB.RecordSet") rs.open query, conn 'c = rs("c") rs.close set rs = server.CreateObject("ADODB.RecordSet") 'quantidade de registros por página. rs.PageSize = 10 query = "SELECT CADPRD.EmpCod, CADPRD.EmpNom, CADPRD.EmpObs, CADPRD.EmpVal, CADPRD.PrdCidCod, CADCID.CidDes, CADPRD.UfeCod as UF FROM CADPRD LEFT OUTER JOIN CADCID ON (CADPRD.PrdCidCod = CADCID.CidCod) WHERE 1=1 "&where&" ORDER BY CADPRD.EmpNom" rs.open query, conn, 3, 3 'do while not rs.eof 'rs.MoveNext() 'loop 'Verificando exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. if rs.eof then Response.Write("Nenhum Registro Encontrado") Response.End else 'Definindo em qual pagina o visitante está if Request.QueryString("index.asp?pag=ofertas")="" then intpagina = 1 else if cint(Request.QueryString("index.asp?pag=ofertas"))<1 then intpagina = 1 else if cint(Request.QueryString("index.asp?pag=ofertas"))>rs.PageCount then intpagina = rs.PageCount else intpagina = Request.QueryString("index.asp?pag=ofertas") end if end if end if end if 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage = intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec<rs.PageSize and not rs.eof '------------------- AQUI VEM TUDO O QUE SERÁ MOSTRADO ----------------------- 'i = abs(rs.RecordCount)+1 'while not rs.eof set rsf = server.CreateObject("ADODB.Recordset") query = "select TOP 1 FotIdt as foto from CADFOT WHERE EmpCod = '"&rs("EmpCod")&"'" rsf.open query, conn foto = "" if not rsf.eof then str = rsf("foto") 'foto = mid(str,1,len(str)-4)&"thumb"&mid(str,len(str)-3, len(str)) foto = str end if %> <div style="border:1px solid #343D11; cursor:pointer; padding:5px; width:320px; margin-right:10px; margin-bottom:10px; height:150px;" onmouseover="this.style.backgroundColor = '#E7F2F6'" onmouseout="this.style.backgroundColor = 'transparent'" onclick="window.open('index.asp?pag=vejamais&cod=<%=rs("EmpCod")%>','_self')"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <% if foto <> "" then %> <img src="arquivos/<%=foto%>" width="125" height="75" style="border:1px solid #00F; display:block;" /> <% end if %> </td> <td><strong> <%=rs("EmpNom")%></strong><br /><div align="right"> <%=number_format(rs("EmpVal"),2,","," ")%> </div> <%=rs("EmpObs")%><br /> </td> </tr> </table> </div> <% rs.MoveNext ' Acrescenta +1 ao contador intrec = intrec + 1 'Se for EOF (fim de arquivo), imprimir branco na tela if rs.eof then response.write " " end if Wend 'fim do loop %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <% 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior” if intpagina >1 then %> <a href="index.asp?pag=ofertas=<%=intpagina-1%>">Anterior</a> <% end if 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página if StrComp(intpagina,rs.PageCount)<>0 then %> <a href="index.asp?pag=ofertas=<%=intpagina+1%>">Próximo</a> <% end if 'rs.close 'Set rs = Nothing %> Número de páginas total: <%=RS.PageCount%></br> Número de registros por página: <%=RS.PageSize%></br> Número de registros Banco: <%=RS.RecordCount%></br> Pagina: <%=intpagina%></br> intrec: <%=intrec%></br> </td> </tr> </table> </div> </td> <td valign="top" ><div style="background-image:url(png/pesquisa.png); width:200px; height:445px;"> <form action="index.asp?pag=ofertas" method="post" target="_self" name="FrmPesquisa" id="FrmPesquisa"> <div style="width:100%; height:80px;"></div> <div style="width:180px; margin-left:10px; "> <select name="regiao" id="regiao" style="width:170px; margin-bottom:10px;"> <option value="">Qualquer regi&atilde;o</option> <% query = "SELECT * FROM CADREG" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, Conn while not rs.eof %> <option value="<%=rs("RegCod")%>" <% if request("regiao") = rs("RegCod") then %>selected <% end if %>><%=rs("RegDsc")%></option> <% rs.movenext wend rs.close set rs = nothing %> </select> <% var =request.ServerVariables("URL") var = mid(var,instr(var, "/")+1, len(var)) var = mid(var, 1, instr(var,"/")-1) %> <select name="cidade" id="cidade" style="width:170px; margin-bottom:10px;" onchange="ajaxGet('http://<%=request.ServerVariables("HTTP_HOST")&"/"&var%>/ajBairro.asp?cid='+this.value,document.getElementById('bairro'),true);"> <option value="">Qualquer cidade</option> <% query = "SELECT * FROM CADCID where CidLST = 'S'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, Conn while not rs.eof %> <option value="<%=rs("CidCod")%>" <% if request("cidade") = rs("CidCod") then %>selected <% end if %>><%=rs("CidDes")%></option> <% rs.movenext wend rs.close set rs = nothing %> </select> <select name="bairro" id="bairro" style="width:170px; margin-bottom:10px;"> <option value="">Qualquer bairro</option> <% query = "SELECT * FROM CADBAI" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, Conn while not rs.eof %> <option value="<%=rs("BaiCod")%>" <% if request("bairro") = rs("BaiCod") then %>selected <% end if %>><%=rs("BaiDes")%></option> <% rs.movenext wend rs.close set rs = nothing %> </select> <select name="tipo" id="tipo" style="width:170px; margin-bottom:10px;"> <option value="0">Qualquer tipo de im&oacute;vel</option> <% query = "SELECT * FROM PRDTIP" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, Conn while not rs.eof %> <option value="<%=rs("PrdTip")%>" <% if cint(request("tipo")) = cint(rs("PrdTip")) then %>selected <% end if %>><%=rs("PrdTipDsc")%></option> <% rs.movenext wend rs.close set rs = nothing %> </select> <select name="faixapreco" id="faixapreco" style="width:170px; margin-bottom:10px;"> <option value="0">Qualquer Faixa de Pre&ccedil;o</option> <% query = "SELECT * FROM CADFXA" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, Conn while not rs.eof FxaCod = rs("FxaCod") %> <option value="<%=FxaCod%>" <% if cint(request.Form("faixapreco")) = cint(FxaCod) then %>selected <% end if %>>De R$ <%=number_format(rs("FxaDe"),2,","," ")%> at&eacute; R$ <%=number_format(rs("FxaAte"),2,","," ")%></option> <% rs.movenext wend rs.close set rs = nothing %> </select> </div> <div style="width:170px; margin-left:10px; "> Avan&ccedil;ado <table width="100%" border="0" cellspacing="5" cellpadding="0" style="border:1px solid #CCC; font-size:11px;"> <tr> <td><input name="area" type="text" class="txtbox" id="area" size="2" value="<%=request("area")%>" /> &Aacute;rea </td> </tr> <tr> <td><input name="vagas" type="text" class="txtbox" id="vagas" size="2" maxlength="2" value="<%=request("vagas")%>" /> Vagas na Garagem </td> </tr> <tr> <td><input name="suites" type="text" class="txtbox" id="suites" size="2" maxlength="2" value="<%=request("suites")%>" /> Su&iacute;tes</td> </tr> <tr> <td><input name="quartos" type="text" class="txtbox" id="quartos" size="2" maxlength="2" value="<%=request("quartos")%>" /> Quartos </td> </tr> </table> </div> <div style="width:170px; margin-left:10px; margin-top:5px; " align="right"> <a href="java script:void();" onclick="document.getElementById('FrmPesquisa').submit();"><img src="png/btpesquisar.png" alt="" border="0" /></a><a href="index.asp?pag=contato"><img src="img/prs.jpg" border="0" /></a> </div> </form> </div></td> </tr> </table>