Jump to content


Photo

Erro Em Exibir Resultado Da Busca


  • Faça o login para participar
1 reply to this topic

#1 cintiadel

cintiadel

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 27/02/2008, 16:49

Preciso exibir a busca de acordo com os parametros selecionados na pagina buscaAvan, mas qdo dou buscar exibe o seguinte:
select * from Local where 0=0a
2 - 3
b , 1 , c

ADODB.Recordset erro '800a0cc1'

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

/guiad/asp/BuscaRes.asp, line 98

Que é o primeiro registro da tabela, mais esse erro, aparece isso mesmo que não selecione nada.
Será que alguém pode me ajudar a achar o erro?


BuscaAvan.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>GuiaD Restaurantes, Hot&eacute;is &amp; Bares</title>
<style type="text/css">
<!--
body,td,th {
font-family: Verdana;
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="css/link.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {
color: #FFFFFF;
font-size: 16px;
font-weight: bold;
}
.style3 {
font-size: 9px;
color: #FFFFFF;
}
.style4 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<!--#include file="Conexao.inc" -->

<%
myselLoc= "select * from Local"
myselCat= "select idCat, nomeCat from Categoria"
myselEst= "select idEst, siglaEst from Estado"
%>
<body>
<table width="681" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="100" colspan="7" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="6" height="100" valign="top"><img src="img/img/latEsqBannerCima.jpg" width="6" height="100" /></td>
<td width="274" valign="top"><img src="img/img/logo.jpg" width="274" height="100" /></td>
<td width="394" valign="top" bgcolor="#312D60"><!--DWLayoutEmptyCell-->&nbsp;</td>
<td width="6" valign="top"><img src="img/img/latDirBannerCima.jpg" width="6" height="100" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" colspan="7" valign="top"><img src="img/img/linha1.jpg" width="13" height="2" /></td>
</tr>
<tr>
<td width="150" height="181" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="150" height="4" valign="top"><img src="img/img/menuCima.jpg" width="150" height="4" /></td>
</tr>
<tr>
<td height="174" valign="middle" bgcolor="#F5781C"><table width="145" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td><a href="Index.asp">Home</a></td>
</tr>
<tr>
<td><a href="BuscaAvan.asp">Busca Avan&ccedil;ada </a></td>
</tr>
<tr>
<td><a href="Participe.asp">Participe e Concorra </a></td>
</tr>
<tr>
<td><a href="MaisVotados.asp">Os Mais Votados </a></td>
</tr>
<tr>
<td><a href="Compre.asp">Compre o GuiaD </a></td>
</tr>
<tr>
<td><a href="Sobre.asp">Sobre o GuiaD </a></td>
</tr>
<tr>
<td><a href="Personalizado.asp">GuiaD Personalizado</a></td>
</tr>
<tr>
<td><a href="Fale.asp">Fale Conosco</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3" valign="top"><img src="img/img/menuBaixo.jpg" width="150" height="3" /></td>
</tr>


</table></td>
<td width="1" rowspan="2" valign="top"><img src="img/img/linha2.jpg" width="1" height="11" /></td>
<td width="106" rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="106" height="4" valign="top"><img src="img/img/menuMaisCima.jpg" width="106" height="4" /></td>
</tr>
<tr>
<td height="585" align="center" valign="top" bgcolor="#A09D4E"><a href="MaisVotados.asp"><img src="img/img/garrafaMais.jpg" width="64" height="355" border="0" align="middle" /></a></td>
</tr>

<tr>
<td height="3" valign="top"><img src="img/img/menuMaisBaixo.jpg" width="106" height="3" /></td>
</tr>


</table></td>
<td width="1" rowspan="2" valign="top"><img src="img/img/linha2.jpg" width="1" height="11" /></td>
<td width="9">&nbsp;</td>
<td width="411" rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="411" height="4" valign="top"><img src="img/img/pesqCima.jpg" width="411" height="4" /></td>
</tr>
<tr>
<td height="403" valign="middle" bgcolor="#848DAC">
<form id="buscaAvan" name="buscaAvan" method="get" action="BuscaRes.asp">
<table width="405" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="108"><span class="style4">Tipo:</span></td>
<td width="290"><select name="clTipo" id="clTipo">
<option selected="selected">Selecione</option>
<option value="Bar">Bar</option>
<option value="Hotel">Hotel</option>
<option value="Restaurante">Restaurante</option>
</select></td>
</tr>
<tr>
<td><span class="style4">Nome:</span></td>
<td><select name="clNome" id="clNome">
<option selected="selected">Selecione</option>
<%
rsLoc.open myselLoc, db
while not rsLoc.eof
%>
<option value="<%=rsLoc.fields("idLoc")%>"><%=rsLoc.fields("nomeLoc")%></option>
<%
rsLoc.movenext
wend
rsLoc.close
%>
</select></td>
</tr>
<tr>
<td><span class="style4">Bairro:</span></td>
<td><input type="text" name="clBairro" id="clBairro" /></td>
</tr>
<tr>
<td><span class="style4">Tipo de cozinha: </span></td>
<td><p>
<select name="clCategoria" id="clCategoria">
<option>Categoria</option>
<%
rsCat.open myselCat, db
while not rsCat.eof
%>
<option value="<%=rsCat.fields("nomeCat")%>"><%=rsCat.fields("nomeCat")%></option>
<%
rsCat.movenext
wend
rsCat.close
%>
</select>
</p> </td>
</tr>
</table>
<table width="405" border="0" cellspacing="1" cellpadding="1">
<tr>
<td colspan="4"><span class="style4">Ambientes:</span></td>
</tr>
<tr>
<td><span class="style4">
<input name="ckExterna" type="checkbox" id="ckExterna" />
&Aacute;rea externa</span></td>
<td colspan="2"><span class="style4">
<label>
<input name="ckDancar" type="checkbox" id="ckDancar" value="on" />
Para dan&ccedil;ar</label></span></td>
<td width="135"><span class="style4">
<input name="ckCriancas" type="checkbox" id="ckCriancas" />
Bom para crian&ccedil;as</span></td>
</tr>
<tr>
<td><span class="style4">
<input name="ckJovens" type="checkbox" id="ckJovens" />
Jovens</span></td>
<td colspan="2"><span class="style4">
<label>
<input name="ckVisto" type="checkbox" id="ckVisto" />
Para ser visto</label></span></td>
<td><span class="style4">
<input name="ckDiscreto" type="checkbox" id="ckDiscreto" />
Discreto</span></td>
</tr>
<tr>
<td><span class="style4">
<input name="ckAlternativo" type="checkbox" id="ckAlternativo" />
Alternativo</span></td>
<td colspan="2"><span class="style4">
<label>
<input name="ckRomantico" type="checkbox" id="ckRomantico" />
Rom&acirc;ntico</label></span></td>
<td><span class="style4">
<input name="ckPaquera" type="checkbox" id="ckPaquera" />
Paquera</span></td>
</tr>
<tr>
<td><span class="style4">
<input name="ckMusica" type="checkbox" id="ckMusica" />
M&uacute;sica ao vivo</span></td>
<td colspan="2"><span class="style4">
<input name="ck24h" type="checkbox" id="ck24h" />
Ap&oacute;s as 24hs</span></td>
<td><span class="style4">
<input name="ckDeficientes" type="checkbox" id="ckDeficientes" />
Deficientes f&iacute;sicos</span></td>
</tr>
<tr>
<td><span class="style4">
<input name="ckSeguranca" type="checkbox" id="ckSeguranca" />
Seguran&ccedil;a</span></td>
<td colspan="2"><span class="style4">
<input type="checkbox" name="checkbox16" id="checkbox16">
Ar condicionado</span></td>
<td><span class="style4">
<input name="ckVista" type="checkbox" id="ckVista" />
Vista bonita</span></td>
</tr>
<tr>
<td><span class="style4">Fumantes:</span></td>
<td colspan="3"><select name="clFumante" id="ddlTipo2">
<option selected="selected">Selecione</option>
<option value="&Eacute; Permitido Fumar">&Eacute; Permitido Fumar</option>
<option value="&Aacute;rea Dividida">&Aacute;rea Dividida</option>
<option value="Proibido Fumar">Proibido Fumar</option>
</select></td>
</tr>
<tr>
<td><span class="style4">Estacionamento:</span></td>
<td colspan="3"><select name="clEstac" id="clFumante">
<option selected="selected">Selecione</option>
<option value="Manobrista Gratuito">Manobrista Gratuito</option>
<option value="Manobrista Pago">Manobrista Pago</option>
<option value="Estacionamento Gratuito">Estacionamento Gratuito</option>
<option value="Estacionamento Pago">Estacionamento Pago</option>
</select></td>
</tr>
<tr>
<td><span class="style4">Dias Fechados:</span></td>
<td colspan="3"><select name="clDias" id="clFumante2">
<option selected="selected">Selecione</option>
<option value="N">Nenhum</option>
<option value="DS">2&ordf; a 5&ordf; Feira</option>
<option value="S/D">Fim de Semana</option>
<option value="EG">Fechado no Jantar</option>
<option value="EP">Fechado no Almo&ccedil;o</option>
</select></td>
</tr>

<tr>
<td><span class="style4">Ticket Restaurantes:</span></td>
<td colspan="3"><input type="text" name="clTicket" id="clTicket" /></td>
</tr>
<tr>
<td><span class="style4">Cart&otilde;es de Cr&eacute;dito:</span></td>
<td colspan="3"><input type="text" name="clCartao" id="clCartao" /></td>
</tr><tr>
<td width="117">&nbsp;</td>
<td width="142" align="right"><input name="btnBuscar" type="image" id="btnBuscar" src="img/img/btnBuscar.jpg" /></td>
</tr>
</table>
</form>
</td>
</tr>

<tr>
<td height="4" valign="top"><img src="img/img/pesqBaixo.jpg" width="411" height="4" /></td>
</tr>


</table></td>
<td width="3">&nbsp;</td>
</tr>
<tr>
<td height="230" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="150" height="2" valign="top"><img src="img/img/linha1.jpg" width="13" height="2" /></td>
</tr>
<tr>
<td height="3" valign="top"><img src="img/img/buscaCima.jpg" width="150" height="3" /></td>
</tr>
<tr>
<td height="403" valign="top" bgcolor="#7F7047"><form id="form1" name="form1" method="post" action="">
<table width="145" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td colspan="2"><span class="style2">Busca D</span></td>
</tr>
<tr>
<td colspan="2"><select name="ddlNomeLocal" id="ddlNomeLocal">
<option>Nome</option>
<%
rsLoc.open myselLoc, db
while not rsLoc.eof
%>
<option value="<%=rsLoc.fields("idLoc")%>"><%=rsLoc.fields("nomeLoc")%></option>
<%
rsLoc.movenext
wend
rsLoc.close
%>
</select></td>
</tr>
<tr>
<td colspan="2"><select name="ddlTipo" id="ddltipo">
<option>Tipo</option>
<option value="B">Bar</option>
<option value="H">Hotel</option>
<option value="R">Restaurante</option>
</select></td>
</tr>
<tr>
<td colspan="2"><select name="ddlCategoria" id="ddlCategoria">
<option>Categoria</option>
<%
rsCat.open myselCat, db
while not rsCat.eof
%>
<option value="<%=rsCat.fields("idCat")%>"><%=rsCat.fields("nomeCat")%></option>
<%
rsCat.movenext
wend
rsCat.close
%>
</select></td>
</tr>
<tr>
<td colspan="2"><select name="ddlEstado" id="ddlEstado">
<option>Estado</option>
<%
rsEst.open myselEst, db
while not rsEst.eof
%>
<option value="<%=rsEst.fields("idEst")%>"><%=rsEst.fields("siglaEst")%></option>
<%
rsEst.movenext
wend
rsEst.close
%>
</select>
</td>
</tr>
<tr>
<td colspan="2"><input name="txtCidade" type="text" id="txtCidade" value="Cidade" />
</td>
</tr>
<tr>
<td colspan="2"><input name="txtBairro" type="text" id="txtBairro" value="Bairro" />
</td>
</tr>
<tr>
<td width="94"><span class="style3"> <a href="BuscaAvan.asp">Busca Avan&ccedil;ada</a></span> </td>
<td width="44" align="right"><input name="btnBuscar2" type="image" id="btnBuscar2" src="img/img/btnBuscar.jpg" /></td>
</tr>
</table>
</form></td>
</tr>

<tr>
<td height="3" valign="top"><img src="img/img/buscaBaixo.jpg" width="150" height="3" /></td>
</tr>


</table></td>
</tr>
</table>
</body>
</html>


BuscaRes.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>GuiaD Restaurantes, Hot&eacute;is &amp; Bares</title>
<link href="css/link.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 { color: #FFFFFF;
font-size: 16px;
font-weight: bold;
}
.style3 { font-size: 9px;
color: #FFFFFF;
}
.style4 { color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<!--#include file="Conexao.inc" -->

<%
rsLoc.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos
myselLoc = "select * from Local where 0=0"

if request("ddlNomeLoc") <> 0 then
'if request("ddlNomeLoc")<>"0" then
myselLoc = myselLoc & "and idLoc=" & request("ddlNomeLocal")
end if

if request("ddlTipo") <> 0 then
'if request("ddlTipo")<>"0" then
myselLoc = myselLoc & "and tipoLoc='" & request("ddlTipo") & "'"
end if

if request("ddlCategoria") <> 0 then
'if request("ddlCategoria")<>"0" then
myselLoc = myselLoc & " and catLoc='" & request("ddlCategoria") & "'"
end if

if request("ddlEstado") <> 0 then
'if request("ddlEstado")<>"0" then
myselLoc = myselLoc & " and estLoc='" & request("ddlEstado")& "'"
end if

if request("txtCidade")<> 0 then
myselLoc = myselLoc & " and cidLoc like '%" & request("txtCidade") & "%'"
end if

if request("txtBairro")<> 0 then
myselLoc = myselLoc & " and bairLoc like '%" & request("txtBairro") & "%'"
end if

response.Write(myselLoc)
rsLoc.Open myselLoc,con,3,3

'Vamos agora verificar 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 rsLoc.EOF then
Response.Write "Nenhum Registro Encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> rsLoc.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
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
rsLoc.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 < rsLoc.PageSize and not rsLoc.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write rsLoc("nomeLoc") & "<BR>"
response.write rsLoc("dddLoc") & " - " & rsLoc("telLoc") & "<BR>"
response.write rsLoc("endLoc") & " , " & rsLoc("numLoc") & " , " & rsLoc("compLoc") & "<BR>"
response.write rsLoc("baiLoc") & "<BR>"
'---------------------------------------------------------------------------------------------
rsLoc.MoveNext

' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rsLoc.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<a href="BuscaRes.asp?pagina=<%=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,rsLoc.PageCount) <> 0 then
%>
<a href="BuscaRes.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
%>
<body>
<table width="394" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td width="175">Local:</td>
<td width="205"><b>
<% =resultado("nomeLoc") %>
</b></td>
</tr>
<tr>
<td>Telefone:</td>
<td><b>
<%=resultado("dddLoc")%>-<% =resultado("telLoc") %>
</b></td>
</tr>
<tr>
<td>Endere&ccedil;o:</td>
<td><b>
<%=resultado("endLoc")%>, <%=resultado("numLoc")%>, <%=resultado("compLoc")%>
</b></td>
</tr>
<tr>
<td>Bairro:</td>
<td><b>
<% =resultado("bairLoc") %>
</b></td>
</tr>
</table>
<a href="#" onClick="history.go(-1);"><b>VOLTAR</b></a></b>

</body>
</html>



#2 kaduzick

kaduzick

    12 Horas

  • Usuários
  • 229 posts
  • Sexo:Masculino
  • Localidade:Brasília
  • Interesses:Aprender e Ajudar

Posted 27/02/2008, 17:14

baiLoc não é um nome válido de coluna vindo no select myselLoc
kaduzick - The Nerds




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq