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

pgmador · Outubro 16, 2004

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.

pgmador · Outubro 16, 2004

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
%>

graciane2004 · Outubro 16, 2004

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
%>

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

cyberalexxx · Outubro 17, 2004

tenta assim:

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

graciane2004 · Outubro 18, 2004

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

cyberalexxx · Outubro 18, 2004

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

graciane2004 · Outubro 18, 2004

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

graciane2004 · Outubro 18, 2004

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

cyberalexxx · Outubro 18, 2004

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

Outubro 18, 2004

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

graciane2004 · Outubro 18, 2004

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?

cyberalexxx · Outubro 18, 2004

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"

graciane2004 · Outubro 18, 2004

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"

não deu certo não sei mais o que pode estar errado... simplesmente não vai p/ nenhuma página e fica um tempão tentando abrir e não abre...

graciane2004 · Outubro 19, 2004

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:

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

cyberalexxx · Outubro 19, 2004

Mais uma mudança

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

graciane2004 · Outubro 19, 2004

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

cyberalexxx · Outubro 20, 2004

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

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

graciane2004 · Outubro 20, 2004

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 %>

cyberalexxx · Outubro 20, 2004

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

graciane2004 · Outubro 20, 2004

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

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

cyberalexxx · Outubro 20, 2004

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

graciane2004 · Outubro 20, 2004

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

cyberalexxx · Outubro 20, 2004

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.

graciane2004 · Outubro 20, 2004

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

cyberalexxx · Outubro 20, 2004

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
%>

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

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Pateta

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns