Select Com 2 Campos

Outubro 15, 2004

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%"> </td>
<td width="45%">
<div align="right"><font size=1 face="verdana,arial">
</font></div>
</td>
<td width="21%"> </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">      <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">  .::
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">  .::
Apartamentos</font></td>
</tr>
<tr>
<td height="2" background="linha.gif"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">  .::
Coberturas</font></td>
</tr>
<tr>
<td height="2" background="linha.gif"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">  .::
Chá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">  .::
Casas</font></td>
</tr>
<tr>
<td height="2" background="linha.gif"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">  .::
Apartamentos</font></td>
</tr>
<tr>
<td height="2" background="linha.gif"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">  .::
Temporada</font></td>
</tr>
<tr>
<td height="2" background="linha.gif"></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="21"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td height="507" rowspan="2" valign="top" width="6%">                 </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"> </td>
</tr>
<tr>
<td height="0" width="535"><%=fonte02%><strong>Resultado
da busca</strong></td>
</tr>
<tr>
<td height="0" width="535"> </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">  </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ó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"> </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 & " "
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"> </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">  </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

Editado Outubro 16, 2004 por cyberalexxx

Holy Demons · Outubro 21, 2004

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

cyberalexxx · Outubro 22, 2004

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> ")

dark0 · Outubro 22, 2004

é.. 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+

Holy Demons · Outubro 22, 2004

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

Entrar

Select Com 2 Campos

Pergunta

Guest graciane

Link para o comentário

Compartilhar em outros sites

29 respostass a esta questão

Posts Recomendados

Holy Demons

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Holy Demons

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades