Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cintiadel

Erro no Resultado da Busca

Recommended Posts

Quando eu dou buscar na página MenuFixo.asp sem selecionar nada aparece esse erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: '[string: "Cidade"]'

//asp/BuscaRes.asp, line 47

E se eu seleciono:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: '[string: "Bar"]'

//asp/BuscaRes.asp, line 47

 

Já na BuscaAvan.asp quando eu dou buscar sem selecionar nada aparece todos os registros e esse erro:

Local: ADODB.Recordset erro '800a0cc1'

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

//asp/BuscaRes.asp, line 124

Já verifiquei os nomes mas estão corretos.

 

Preciso que exiba o resultado com o filtro dos parametros passados.

Nesse resultado preciso do nome, endereco completo, telefone e bairro, e o nome linkado para a pagina detalhes onde vão ser exibidas todas as informaçoes do local.

Será que alguém pode me ajudar, segue os códigos abaixo:

 

 

 

 

MenuFixo.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title> Restaurantes, Hotéis & Bares</title>

 

<link href="css/link.css" rel="stylesheet" type="text/css" />

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

}

.style2 {

color: #FFFFFF;

font-size: 16px;

font-weight: bold;

}

.style3 {

font-size: 9px;

color: #FFFFFF;

}

.style4 {

font-size: 14px;

color: #3B3763;

}

.style6 {font-size: 8.5px}

.style7 {color: #FFFFFF}

.style8 {color: #FFFFFF; font-size: 10px; }

.style10 {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">

<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"> </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" rowspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<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ç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 </a></td>

</tr>

<tr>

<td><a href="Sobre.asp">Sobre o </a></td>

</tr>

<tr>

<td><a href="Personalizado.asp"> 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="3" rowspan="4" valign="top"><img src="img/img/linha2.jpg" width="1" height="11" /></td>

<td width="106" rowspan="4" valign="top"> </td>

<td width="1" rowspan="4" valign="top"><img src="img/img/linha2.jpg" width="1" height="11" /></td>

<td width="213" rowspan="4" valign="top"> </td>

<td width="1" rowspan="5" valign="top"><img src="img/img/linha2.jpg" width="1" height="11" /></td>

<td width="206" height="80" valign="top"> </td>

</tr>

<tr></tr>

<tr></tr>

<tr>

<td height="230" valign="top">

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

<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="222" valign="middle" bgcolor="#7F7047">

 

<form id="busca" name="busca" method="get" action="BuscaRes.asp">

<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 value="0">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 value="0">Tipo</option>

<option value="Bar">Bar</option>

<option value="Hotel">Hotel</option>

<option value="Restaurante">Restaurante</option>

</select>

</td>

</tr>

<tr>

<td colspan="2">

<select name="ddlCategoria" id="ddlCategoria">

<option value="0">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>

</td>

</tr>

<tr>

<td colspan="2">

<select name="ddlEstado" id="ddlEstado">

<option value="0">Estado</option>

<%

rsEst.open myselEst, db

while not rsEst.eof

%>

<option value="<%=rsEst.fields("siglaEst")%>"><%=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çada</a></span> </td>

<td width="44" align="right"><input name="btnBuscar" type="image" id="btnBuscar" 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>

BuscaAvan.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title> Restaurantes, Hotéis & 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;

}

.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"> </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ç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 </a></td>

</tr>

<tr>

<td><a href="Sobre.asp">Sobre o </a></td>

</tr>

<tr>

<td><a href="Personalizado.asp"> 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"> </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" />

Área externa</span></td>

<td colspan="2"><span class="style4">

<label>

<input name="ckDancar" type="checkbox" id="ckDancar" value="on" />

Para dançar</label></span></td>

<td width="135"><span class="style4">

<input name="ckCriancas" type="checkbox" id="ckCriancas" />

Bom para crianç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â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úsica ao vivo</span></td>

<td colspan="2"><span class="style4">

<input name="ck24h" type="checkbox" id="ck24h" />

Após as 24hs</span></td>

<td><span class="style4">

<input name="ckDeficientes" type="checkbox" id="ckDeficientes" />

Deficientes físicos</span></td>

</tr>

<tr>

<td><span class="style4">

<input name="ckSeguranca" type="checkbox" id="ckSeguranca" />

Seguranç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="É Permitido Fumar">É Permitido Fumar</option>

<option value="Área Dividida">Á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ª a 5ª Feira</option>

<option value="S/D">Fim de Semana</option>

<option value="EG">Fechado no Jantar</option>

<option value="EP">Fechado no Almoç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ões de Crédito:</span></td>

<td colspan="3"><input type="text" name="clCartao" id="clCartao" /></td>

</tr><tr>

<td width="117"> </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"> </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="BuscaRes.asp">

<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("nomeLoc")%>"><%=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="clCategoria2" id="clCategoria2">

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

</td>

</tr>

<tr>

<td colspan="2"><select name="pesquf2" id="pesquf2">

<option>Estado</option>

<%

rsEst.open myselEst, db

while not rsEst.eof

%>

<option value="<%=rsEst.fields("siglaEst")%>"><%=rsEst.fields("siglaEst")%></option>

<%

rsEst.movenext

wend

rsEst.close

%>

</select></td>

</tr>

<tr>

<td colspan="2"><input name="busCidade" type="text" id="busCidade" value="Cidade" /></td>

</tr>

<tr>

<td colspan="2"><input name="busBairro" type="text" id="busBairro" value="Bairro" /></td>

</tr>

<tr>

<td width="94"><span class="style3"><a href="BuscaAvan.asp">Busca Avançada</a></span> </td>

<td width="44" align="right"><input name="btnBuscar2" type="submit" value="Buscar" /></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/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title> Restaurantes, Hotéis & 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

myselLoc = myselLoc & "and idLoc=" & request("ddlNomeLocal")

end if

 

if request("ddlTipo") <> 0 then

myselLoc = myselLoc & "and tipoLoc='" & request("ddlTipo") & "'"

end if

 

if request("ddlCategoria") <> 0 then

myselLoc = myselLoc & " and catLoc='" & request("ddlCategoria") & "'"

end if

 

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

 

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("bairLoc") & "<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.fields("nomeLoc") %>

</b></td>

</tr>

<tr>

<td>Telefone:</td>

<td><b>

<%=resultado.fields("dddLoc")%>-<%=resultado.fields("telLoc") %>

</b></td>

</tr>

<tr>

<td>Endereço:</td>

<td><b>

<%=resultado.fields("endLoc")%>, <%=resultado.fields("numLoc")%>, <%=resultado.fields("compLoc")%>

</b></td>

</tr>

<tr>

<td>Bairro:</td>

<td><b>

<%=resultado.fields("bairLoc") %>

</b></td>

</tr>

</table>

<a href="#" onClick="history.go(-1);"><b>VOLTAR</b></a></b>

</body>

</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

nao precisa postar o codigo inteiro aqui

 

post agora somente as linha que tem erros

Compartilhar este post


Link para o post
Compartilhar em outros sites

Os erros sao:

A linha 47 é a que esta vazia entre esses dois comandos:

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

 

E na linha 124, já verifiquei o nome e está corretamente igual ao do banco de dados

<td width="205"><%=resultado.fields("nomeLoc")%></td>

Compartilhar este post


Link para o post
Compartilhar em outros sites

nos dois primeiros erros voce esta comparando strings com numeros

 

deve converter um ou outro

 

exemplo

 

em ves de

 

if request("ddlEstado") <> 0 then

faça

 

if CINT(request("ddlEstado")) <> 0 then

Isso vale para o segundo erro tambem

 

Ja no ultimo o nome pode estar igual ao do banco mas tem certeza que foi selecionado?

Compartilhar este post


Link para o post
Compartilhar em outros sites

nos dois primeiros erros voce esta comparando strings com numeros

 

deve converter um ou outro

 

exemplo

 

em ves de

 

if request("ddlEstado") <> 0 then

faça

 

if CINT(request("ddlEstado")) <> 0 then

Isso vale para o segundo erro tambem

 

Ja no ultimo o nome pode estar igual ao do banco mas tem certeza que foi selecionado?

colocando esse comando cint ele diz

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis: 'CINT'

 

/asp/BuscaRes.asp, line 48

Compartilhar este post


Link para o post
Compartilhar em outros sites

nos dois primeiros erros voce esta comparando strings com numeros

 

deve converter um ou outro

 

exemplo

 

em ves de

 

if request("ddlEstado") <> 0 then

faça

 

if CINT(request("ddlEstado")) <> 0 then

Isso vale para o segundo erro tambem

 

Ja no ultimo o nome pode estar igual ao do banco mas tem certeza que foi selecionado?

foi selecionado sim ele não esta filtrando ele mostra os 3 registros que tem no Banco.

E abaixo o erro da linha 124

Compartilhar este post


Link para o post
Compartilhar em outros sites

entao ta vazio ou nao tem numeros ali

 

o que deveria vir?

Compartilhar este post


Link para o post
Compartilhar em outros sites

nos dois primeiros erros voce esta comparando strings com numeros

 

deve converter um ou outro

 

exemplo

 

em ves de

 

if request("ddlEstado") <> 0 then

faça

 

if CINT(request("ddlEstado")) <> 0 then

Isso vale para o segundo erro tambem

 

Ja no ultimo o nome pode estar igual ao do banco mas tem certeza que foi selecionado?

foi selecionado sim ele não esta filtrando ele mostra os 3 registros que tem no Banco.

E abaixo o erro da linha 124

 

por isso que eu tinha enviado o código inteiro.

por exemplo eu tenho 3 combos e dois textbox

sendo ele tipo, nome, categoria(combos) e cidade e estado texto

quando eu seleciono e preencho ele tem que pegar esses parametros filtrar e me exibir somente o que foi selecionado

se nao preencher nda ele deveria exibir alerta,mas isso eu ainda não fiz é valizadaçao.

Todos os campos sao string, so no resultado da busca q tem o numero do end q é int e na avançada tem alguns checks box.

Deu pra entender agora, qualquer duvida pergunte, mas por favor me ajude.

Te add no msn você esta on line?

Desde ja grata

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.