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

aeeeee

Galera !!!

Eu peguei o trem andando.. mas achei a solução, hehe

Olha só..

tipo=Request.QueryString("tipo")

aí, você esta RESGATANDO o TIPO selecionado na pagina anterior.

Isso, para logo após ser usado no IF, e executar o SELECT no banco. Certo?:

Aí que está o problema!

Essa variavel TIPO está sem valor! Esse queryString está vindo sem valor!

Pode dar um RESPONSE.WRITE em TIPO, e você vai ver como ele esta sem valor!

então, se a variavel estiver sem valor, o IF não será executado. Nem o ELSE, já que dentro do ELSE tem outro IF, hehe

A solução?

Simples!

Logo após a linha:

tipo=Request.QueryString("tipo") <- deve ser a linha 28.. acho

você faz um IF:

IF tipo = "" then

tipo = "compra"

end if

Assim, se estiver sem valor, será executada o IF de COMPRA.

E no final vai funcionar!

Captou?

Abraços

Link para o comentário
Compartilhar em outros sites

  • 0

Realmente a variavel esta sem valor:

O ideal é você colocar no link para as paginas 2,3, etc o valor da variavel tipo que é passado através da pagina prinicipal, ex:

response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&tipo=" & tipo & "'>" & i & "</a> ")

Link para o comentário
Compartilhar em outros sites

  • 0

é.. eu peguei esse codigo, e fui fuçando nele..

e mesmo depois desse detalhe da variavel, não funcionou!

aliás.. parou o erro, mas a paginação não acontece!

Daí, eu constatei que o problema está na linha:

Select Case Request.Querystring("Submit")

O que é essa QUERY STRING SUBMIT?

não vi em parte nenhuma ela..

Aí, é outra variavel vazia.. e Outro trecho de codigo que não é executado!

E por isso a paginação não funciona!

(pelo menos pareceu ser somente isso.. mas vai saber né..)

esse codigo aí parece que é todo problematico

Mas, remendando, remendando, daqui a pouco temos uma coberta completa .. hehe

t+

Link para o comentário
Compartilhar em outros sites

  • 0

Agora sim

<%

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 = "" then

tipo = "compra"

end if

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

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

intTotalPages = exe.PageCount

%>

Tava faltando essa linha que estava em vermelho.... ate mais

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,5k
×
×
  • Criar Novo...