Ir para conteúdo
Fórum Script Brasil
  • 0

Select Com 2 Campos


Guest graciane

Pergunta

Tenho um site que quando clico no link casas vai para casas.asp e aparecem todas as casas, porém, eu queria que aparecessem somente as casas de compras e em outro link somente as casas de locação e temporada, alguém poderia me ajudar?

Esse é o código atual:

<%

casa = "casa"

Response.Expires = 0

Const intPageSize = 10

If Request.Querystring = "" then

intCurrentPage = 1

Else

intCurrentPage = CInt(Request.Querystring("CurrentPage"))

Select Case Request.Querystring("Submit")

  Case "Previous"

  intCurrentPage = intCurrentPage -1

  Case "Next"

  intCurrentPage = intCurrentPage +1

  End Select

End If

Set exe = Server.CreateObject("ADODB.Recordset")

exe.CursorLocation = adUseClient

exe.CursorType = adOpenStatic

exe.CacheSize = intPageSize

sql = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

exe.PageSize = intPageSize

If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

intTotalPages = exe.PageCount

%>

<head>

<title><%=titulo%></title>

<link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="#E4E4E4" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

   

    <td><img src="titulo.gif" usemap="#Map" border="0"></td>

  </tr>

<tr>

    <td height="284">

      <table width="778" border="0" align="center" cellpadding="0" cellspacing="0">

        <tr>

          <td width="597" height="0" background="fundo1.gif" valign="top">

            <table width="100%" border="0" cellspacing="0" cellpadding="0">

        <tr>

                <td width="34%">&nbsp;</td>

                <td width="45%">

                  <div align="right"><font size=1 face="verdana,arial">

                                      </font></div>

                </td>

          <td width="21%">&nbsp;</td>

        </tr>

      </table>

            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="354">

              <tr>

                <td height="371" width="23%" valign="top">

                  <table width="67%" border="0" cellspacing="0" cellpadding="0" align="center">

                    <tr>

                      <td height="124"> &nbsp;&nbsp;&nbsp;&nbsp; <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="120" height="80">

                          <param name=movie value="ban.swf">

                          <param name=quality value=high>

                          <param name=wmode value=transparent>

                          <embed src="ban.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="120" height="80">

                          </embed>

                        </object></td>

                    </tr>

                  </table>

                  <table width="95%" border="0" cellspacing="0" cellpadding="0" align="right">

                    <tr>

                      <td height=40></td>

                    </tr>

                    <tr>

                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;.::

                        Casas</font></td>

                    </tr>

                    <tr>

                      <td height="2" background="linha.gif"></td>

                    </tr>

                    <tr>

                      <td height="17"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;.::

                        Apartamentos</font></td>

                    </tr>

                    <tr>

                      <td height="2" background="linha.gif"></td>

                    </tr>

                    <tr>

                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;.::

                        Coberturas</font></td>

                    </tr>

                    <tr>

                      <td height="2" background="linha.gif"></td>

                    </tr>

                    <tr>

                      <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;.::

                        Ch&aacute;caras</font></td>

                    </tr>

                    <tr>

                      <td height="2" background="linha.gif"></td>

                    </tr>

                    <tr>

                      <td><br>

                        <br>

                        <br>

                        <table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">

                          <tr>

                            <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;.::

                              Casas</font></td>

                          </tr>

                          <tr>

                            <td height="2" background="linha.gif"></td>

                          </tr>

                          <tr>

                            <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;.::

                              Apartamentos</font></td>

                          </tr>

                          <tr>

                            <td height="2" background="linha.gif"></td>

                          </tr>

                          <tr>

                            <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;.::

                              Temporada</font></td>

                          </tr>

                          <tr>

                            <td height="2" background="linha.gif"></td>

                          </tr>

                          <tr>

                            <td>&nbsp;</td>

                          </tr>

                          <tr>

                            <td height="21">&nbsp;</td>

                          </tr>

                        </table>

                      </td>

                    </tr>

                  </table>

                </td>

                <td height="507" rowspan="2" valign="top" width="6%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>

                <td height="507" rowspan="2" valign="top" width="71%" align="right">

                  <table width="537" border="0" align="center" cellpadding="0" cellspacing="0">

                    <tr>

                      <td height="0" width="535">&nbsp;</td>

                    </tr>

                    <tr>

                      <td height="0" width="535"><%=fonte02%><strong>Resultado

                        da busca</strong></td>

                    </tr>

                    <tr>

                      <td height="0" width="535">&nbsp;</td>

                    </tr>

                    <tr>

                      <td height="0" width="535">

                        <div align="center"><%=fonte02%>

                         

                        </div>

                      </td>

                    </tr>

                    <tr>

                      <td height="0" width="535">

                        <%

If exe.EOF then

Response.Write fonte02 & "<center>Não foi encontrado nenhum imóvel com essas especificações.</center>"

Else

%>

                        <div align="center"></div>

                        <table width="100%" cellpadding="2" cellspacing="2" bordercolor="#6633CC" border="2" bgcolor="#FFFFFF">

                          <tr bgcolor="#6633CC">

                            <td colspan="2">&nbsp; </td>

                          </tr>

                          <%For intI = 1 to exe.PageSize%>

                          <%IF linha THEN%>

                          <tr bgcolor="#FFFFFF">

                            <%END IF : linha = not linha%>

                            <td width="186" rowspan="5">

                              <div align="center"><%=fonte01%><%=exe("codigo")%><br>

                                <%If (exe("desc1")).value ="" Then Response.Write fonte02 & "Sem foto" Else Response.Write "<img src=""" & exe("foto1") & """ width=""150"" height=""100"" align=""absmiddle""><br>" End If%>

                              </div>

                            </td>

                            <td width="329">

                              <div align="left"><img src="bullet.gif" hspace=5><%=fonte01%>Localização: <%=exe("bairro")%></div>

                            </td>

                          </tr>

                          <tr bgcolor="#FFFFFF">

                            <td width="329" bgcolor="#FFFFFF" height="20"><img src="bullet.gif" hspace=5><%=fonte01%>

                              Dormit&oacute;rios.: <%=fonte01%><%=exe("dormitorio")%></td>

                          </tr>

                          <tr bgcolor="#FFFFFF">

                            <td width="329"><img src="bullet.gif" hspace=5><%=fonte01%>Tipo: <%=fonte01%><%=exe("tipo")%></td>

                          </tr>

                          <tr bgcolor="#FFFFFF">

                            <td width="329" bgcolor="#FFFFFF"><img src="bullet.gif" hspace=5><%=fonte01%>Valor

                              R$ <%=fonte01%><%=exe("preço")%></td>

                          </tr>

                          <tr bgcolor="#FFFFFF">

                            <td width="329"><a href="mais.asp?categoria=<%=exe("categoria")%>&autonum=<%=exe("autonum")%>"><strong><%=fonte01%><img src="maq.gif" border=0></strong></a></td>

                          </tr>

                          <tr bgcolor="#6633CC">

                            <td colspan="2">&nbsp;</td>

                          </tr>

                          <%exe.movenext

    If exe.EOF Then Exit For

              Next%>

                          <tr bgcolor="#9999FF">

                            <td colspan="2">

                              <div align="right">

                                <%

response.write fonte03&"Página: "

for i = 1 to exe.pagecount

if i = cint(intCurrentPage) then

  response.write i & "&nbsp;"

else

  response.write "<a href='" & request.servervariables("script_name") & "?currentpage=" & i & "&f_categoria=" & var_categoria & "&f_tipo=" & var_tipo & "&f_local=" & var_local & "'>" & i & "</a> "

end if

next

%>

                              </div>

                            </td>

                          </tr>

                        </table>

                        <%End if

%>

                      </td>

                    </tr>

                    <tr>

                      <td height="0" width="535">

                        <div align="center"></div>

                      </td>

                    </tr>

                    <tr>

                      <td height="0" width="535">&nbsp;</td>

                    </tr>

                    <tr>

                      <td height="0" width="535">

                        <div align="center"><%=fonte01%><a href="javascript:window.history.go(-1)">Voltar</a></div>

                      </td>

                    </tr>

                  </table>

                </td>

              </tr>

              <tr>

                <td height="104" width="23%" valign="top">&nbsp; </td>

              </tr>

            </table>       

          </td>

  </tr>

</table>

    </td>

        </tr>

      </table>

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

Graciane,

Voce pode fazer o seguinte.

Crie 2 links para a mesma página, casas.asp

O primeiro link você passa um parametro e no outro link, outro parâmetro.

Por exemplo:

<a href="casas.asp?acao="compra">Comprar Casa</a><br>
<a href="casas.asp?acao="aluga">Alugar Casa</a>
Na página casas.asp , você verifique qual o intuito da pessoa, e lista conforme o desejo dela, usando IF. Ex:
<%
Set rs=Server.CreateObject("ADODB.Recordset")
acao=Request.QueryString("acao")

if acao="compra" then

   rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="compra" ORDER BY codigo DESC"",Conexao

else

   rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="aluga" ORDER BY codigo DESC"",Conexao

end if
%>

Depois é só fazer a listagem normalmente.

Link para o comentário
Compartilhar em outros sites

  • 0

Aliás faça outro if

<%
Set rs=Server.CreateObject("ADODB.Recordset")
acao=Request.QueryString("acao")

if acao="compra" then

  rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="compra" ORDER BY codigo DESC"",Conexao

else

   if acao="aluga"  then

      rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="aluga" ORDER BY codigo DESC"",Conexao

   else
      
      Response.Redirect ("casas.asp")

   end if
end if
%>

Link para o comentário
Compartilhar em outros sites

  • 0

Aliás faça outro if

<%
Set rs=Server.CreateObject("ADODB.Recordset")
acao=Request.QueryString("acao")

if acao="compra" then

  rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="compra" ORDER BY codigo DESC"",Conexao

else

   if acao="aluga"  then

      rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="aluga" ORDER BY codigo DESC"",Conexao

   else
      
      Response.Redirect ("casas.asp")

   end if
end if
%>

wink.gif olá, em primeiro lugar muito obrigado pela atenção.

acho que deve estar faltando alguma coisinha p/ o código funcionar, usei o 2º e está dando o seguinte erro:

/oportal/casas.asp, line 32

rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="compra" ORDER BY codigo DESC"", exe.Open sql, banco, , , adCmdText

o meu código ficou assim:

<%

'Response.Expires = 0

Const intPageSize = 3

If Request.Querystring = "" then

intCurrentPage = 1

Else

intCurrentPage = CInt(Request.Querystring("CurrentPage"))

Select Case Request.Querystring("Submit")

  Case "Previous"

  intCurrentPage = intCurrentPage -1

  Case "Next"

  intCurrentPage = intCurrentPage +1

  End Select

End If

Set exe = Server.CreateObject("ADODB.Recordset")

exe.CursorLocation = adUseClient

exe.CursorType = adOpenStatic

exe.CacheSize = intPageSize

Set rs=Server.CreateObject("ADODB.Recordset")

acao=Request.QueryString("acao")

if acao="compra" then

rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="compra" ORDER BY codigo DESC"", exe.Open sql, banco, , , adCmdText

else

  if acao="aluga"  then

    rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao="aluga" ORDER BY codigo DESC"", exe.Open sql, banco, , , adCmdText

  else

   

    Response.Redirect ("casas.asp")

  end if

end if

exe.PageSize = intPageSize

If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

intTotalPages = exe.PageCount

%>

muito obrigada pela ajuda

Link para o comentário
Compartilhar em outros sites

  • 0
tenta assim:
rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC", exe.Open sql, banco, , , adCmdText

não deu certo ainda continua dando o mesmo erro:

Fim da instrução esperado

/oportal/casas.asp, line 32

rs.Open "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC", exe.Open sql, banco, , , adCmdText

Link para o comentário
Compartilhar em outros sites

  • 0
Dei uma olhada no codigo todo, agora tenta assim:
SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

olá, em primeiro lugar, obrigado pela atenção dispensada.

Meu código ficou assim, só que agora, não dá erro nenhum, porém tb não vai para lugar nenhum, us fica um tempão pensando (na barra de staus o azul avançando e quando completa não vai para lugar nenhum), nem dá erro nem aparece nenhuma página...

if acao="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

else

  if acao="aluguel"  then

    SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&aluguel&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

  else

   

    Response.Redirect ("casas.asp")

  end if

end if

Link para o comentário
Compartilhar em outros sites

  • 0
Dei uma olhada no codigo todo, agora tenta assim:
SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

olá, em primeiro lugar, obrigado pela atenção dispensada.

Meu código ficou assim, só que agora, não dá erro nenhum, porém tb não vai para lugar nenhum, us fica um tempão pensando (na barra de staus o azul avançando e quando completa não vai para lugar nenhum), nem dá erro nem aparece nenhuma página...

if acao="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&compra&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

else

  if acao="aluguel"  then

    SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&aluguel&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

  else

    

     Response.Redirect ("casas.asp")

  end if

end if

depois de uns 15 minutos aparece SERVIDOR NÃO ENCONTRADO

Link para o comentário
Compartilhar em outros sites

  • 0

mais uma mudança:

if acao="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"compra"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

else

 if acao="aluguel"  then

   SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"aluguel"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

 else

   

    Response.Redirect ("casas.asp")

 end if

end if

eu estava interpretando aluguel e compra como variaveis, mais pelo que vi estes são os valores dos campos

Link para o comentário
Compartilhar em outros sites

  • 0

Bah o carah...

Tu podi colocar um WHERE na linha SQL, ou seja:

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"compra"&"' WHERE Imoveis.CampoAluguelCompra = Compra ORDER BY codigo DESC"

Definição

CampoAluguelCOmpra = é o nome do campo do BD onde você define se o imovel é compra ou venda

Compra = é o nome da variavel que carrega o valor e comprar com banco, caso igual a compra ele so ira pegar compra

Ou tem outro jetio.... por ex:

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"compra"&"' ORDER BY codigo DESC"

logo uma variavel = o valor de compra do banco e compara com valor de compra que uma variavel acptura via codigo....

É Isso ai

Gabriel Larrosa

Link para o comentário
Compartilhar em outros sites

  • 0
mais uma mudança:

if acao="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"compra"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

else

 if acao="aluguel"  then

   SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND acao='"&"aluguel"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

 else

   

    Response.Redirect ("casas.asp")

 end if

end if

eu estava interpretando aluguel e compra como variaveis, mais pelo que vi estes são os valores dos campos

a mesma coisa, não vai para lugar nenhum...

no access, a "casa" está na célula categoria e "compra e aluguel" estão na célula tipo

SQL = "SELECT * FROM imoveis WHERE categoria

na ação "acao", não está indicando p/ pegar os dados de tipo, será q é isso?

Link para o comentário
Compartilhar em outros sites

  • 0
exato, coloque o nome correto do campo na instrução sql

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND tipo='"&"aluguel"&"' ORDER BY codigo DESC"

Descobri um dos erros que estava na página de linkagem, estava assim:

<a href="casas.asp?tipo="compra"> e o correto é assim:

<a href="casas.asp?tipo=compra">

agora o problema é que não aparece nada na página casas.asp, aliás, parece "não foi encontrado nenhum imóvel", mas tem...

olha como está atualmente (trecho mais importante)

Set exe = Server.CreateObject("ADODB.Recordset")

exe.CursorLocation = adUseClient

exe.CursorType = adOpenStatic

exe.CacheSize = intPageSize

Set rs=Server.CreateObject("ADODB.Recordset")

tipo=Request.QueryString("tipo") 

if tipo="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&casa&"' AND tipo='"&"aluguel"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

Link para o comentário
Compartilhar em outros sites

  • 0
Mais uma mudança

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND tipo='"&"aluguel"&"' ORDER BY codigo DESC"

agora deu certo, mas bagunçou outra parte, pois está aparecendo

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/oportal/casas.asp, line 47

se tirar essa linha aparecem as casas, mas quando clica na página 2,3,4, não vai...

esta é a linha 47

exe.PageSize = intPageSize

abaixo a parte desse código

linha 38 if tipo="aluguel"  then

linha 40  SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND

linha 41 tipo='"&"aluguel"&"' ORDER BY codigo DESC"

linha 42 exe.Open sql, banco, , , adCmdText

linha 44  end if

linha 45 end if

linha 47  exe.PageSize = intPageSize

linha 48  If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

linha 49  intTotalPages = exe.PageCount

%>

Estamos chegando lá,

muito obrigado pela ajuda cool.gif

Link para o comentário
Compartilhar em outros sites

  • 0
Informe o numero de registros por pagina pra ver c da certo, tipo:

exe.PageSize = 10 ' onde 10 é o numero de registros por pagina

não deu certo, se eu tirar as linhas 49 e 50 as casas aparecem mas a paginação não funciona, se eu deixar as linhas 49 e 50, aparece o erro:

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/oportal/casas.asp, line 49

abaixo o código:

5 <%

6 Response.Expires = 0

7 Const intPageSize = 3

8

9 If Request.Querystring = "" then

10 intCurrentPage = 1

11 Else

12 intCurrentPage = CInt(Request.Querystring("CurrentPage"))

13 Select Case Request.Querystring("Submit")

14  Case "Previous"

15  intCurrentPage = intCurrentPage -1

16  Case "Next"

17  intCurrentPage = intCurrentPage +1

18  End Select

19 End If

20

21 Set exe = Server.CreateObject("ADODB.Recordset")

22 exe.CursorLocation = adUseClient

23 exe.CursorType = adOpenStatic

24 exe.CacheSize = intPageSize

25

26

27 Set rs=Server.CreateObject("ADODB.Recordset")

28 tipo=Request.QueryString("tipo") 

29

30

31

32 if tipo="compra" then

33

34 SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND

tipo='"&"compra"&"' ORDER BY codigo DESC"

35

36 exe.Open sql, banco, , , adCmdText

37

38 else

39

40 if tipo="aluguel"  then

41

42 SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND

tipo='"&"aluguel"&"' ORDER BY codigo DESC"

43 exe.Open sql, banco, , , adCmdText

4445 end if

46 end if

47

48 exe.PageSize = intPageSize

49 If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

50

51 intTotalPages = exe.PageCount

52

53 %>

Link para o comentário
Compartilhar em outros sites

  • 0
tire a comparação deixe só a informação de numero da pagina
49 exe.AbsolutePage = intCurrentPage

deve ter tambem um endif em algum lugar pra você apagar

obrigado mais uma vez smile.gif

Agora aparecem as casas normalmente, o erro agora está na paginação lá embaixo, quando clica em página 2,3,4, o erro que dá é esse:

Operação não permitida quando o objeto está fechado.

/oportal/casas.asp, line 50

Linha 50 intTotalPages = exe.PageCount

se eu tiro essa linha, aí quando clica vai para a página 2 só que aparece o erro:

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/oportal/casas.asp, line 285

linha 285 que já é dentro da tabela onde mostra os dados

278 <td colspan="2">&nbsp; </td>

279                          </tr>

280                         <%For intI = 1 to exe.PageSize%>

281                          <%IF linha THEN%>

282                          <tr bgcolor="#FFFFFF">

283                            <%END IF : linha = not linha%>

284                           <td width="186" rowspan="5">

285                             <div align="center"><%=fonte01%><%=exe("codigo")%><br>

286                                <%If (exe("desc1")).value ="" Then Response.Write fonte02 & "Sem foto" Else Response.Write "<img src=""" & exe("foto1") & """ width=""150"" height=""100"" align=""absmiddle""><br>" End If%>

287                              </div>

288                            </td>

Link para o comentário
Compartilhar em outros sites

  • 0
Como já foi alterado D+ poste todo o script novamente para avaliação.

pode ser assim? ou o código inteiro?

Como eu disse os imoveis aparecem agora, o problemas está na hora de trocar a página...

a 1ª parte

<%

Response.Expires = 0

Const intPageSize = 3

If Request.Querystring = "" then

intCurrentPage = 1

Else

intCurrentPage = CInt(Request.Querystring("CurrentPage"))

Select Case Request.Querystring("Submit")

  Case "Previous"

  intCurrentPage = intCurrentPage -1

  Case "Next"

  intCurrentPage = intCurrentPage +1

  End Select

End If

Set exe = Server.CreateObject("ADODB.Recordset")

exe.CursorLocation = adUseClient

exe.CursorType = adOpenStatic

exe.CacheSize = intPageSize

Set rs=Server.CreateObject("ADODB.Recordset")

tipo=Request.QueryString("tipo") 

if tipo="compra" then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND tipo='"&"compra"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

else

if tipo="aluguel"  then

SQL = "SELECT * FROM imoveis WHERE categoria LIKE '"&"casa"&"' AND tipo='"&"aluguel"&"' ORDER BY codigo DESC"

exe.Open sql, banco, , , adCmdText

end if

end if

exe.PageSize = intPageSize

linha 50 intTotalPages = exe.PageCount

%>

2ª parte onde dá o erro na linha 285 caso eu tire a linha 50

278 <td colspan="2">&nbsp; </td>

279                          </tr>

280                        <%For intI = 1 to exe.PageSize%>

281                          <%IF linha THEN%>

282                          <tr bgcolor="#FFFFFF">

283                            <%END IF : linha = not linha%>

284                          <td width="186" rowspan="5">

285                            <div align="center"><%=fonte01%><%=exe("codigo")%><br>

286                                <%If (exe("desc1")).value ="" Then Response.Write fonte02 & "Sem foto" Else Response.Write "<img src=""" & exe("foto1") & """ width=""150"" height=""100"" align=""absmiddle""><br>" End If%>

287                              </div>

288                            </td>

Link para o comentário
Compartilhar em outros sites

  • 0
KD a linha contendo o código:
exe.AbsolutePage = intCurrentPage
.? Faz um teste pra mim, informe direto o numero da pagina, tipo:
exe.AbsolutePage = 2 ' mostra a pagina 2

só pra ver c da erro.

exe.AbsolutePage = intCurrentPage

esta é a linha 49 que você falou p/ eu tirar, quando a coloco, aparece o erro

ADODB.Recordset error '800a0bb9'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/oportal/casas.asp, line 49

sem ela os imóveis aparecem mas não funciona página 2,3,4

com ela aparece esse erro acima...

o outro código (2) tb não funcionou deu o mesmo erro acima

Link para o comentário
Compartilhar em outros sites

  • 0

Fica dificil resolver sem ir testando, to postando abaixo um código com paginação funcionando, tente comparar os codigo pra ver o q "ta pegando"

<%
' Definindo o caminho do banco de dados
caminho = server.mappath("vendas.mdb")

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & caminho
objconn.Open DSN

' String SQL para consulta
SQL = "select * from vendas"

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 1

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
 objRS.AbsolutePage = 1
 pagina = 1
Else
 objRS.AbsolutePage = pagina
End If
%>
<% 
' Imprime o número de registros, o total de páginas e a página atual
Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf )
Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )
Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")
%>

<% 
' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
 Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
Else
 Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
   For i = 1 To objRS.PageCount
     response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
   Next
end if

if objRs.PageCount > 10 then
      inicio=pagina
      fim=pagina + 9
      tot = pagina + 9
      if tot > ObjRS.PageCount then
         inicio = pagina-((pagina+9)-ObjRs.PageCount)
         fim = inicio+9
      end if
      for i = inicio to fim
          response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
      next
end if


' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
 Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")
Else
 Response.Write("Próxima</B></FONT></center>")
End If
End If
%>




<%While Not objRS.EOF AND cont < objRS.PageSize

response.write objRS.fields("data") & "<br>"
response.write objRS.fields("nome") & "<br>"

cont = cont + 1
objRS.MoveNext
Wend
%>
 </tr>
</table>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...