ERRO CONSULTA SQL
Tenho este código abaixo de paginação que está dando erro na consulta sql, os dados campos no mdb dormitorio = texto local = texto:
Está dando este erro
[txt-color=#e80000]erro [ô]80004005[ô]
/paginar.asp, line 12
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
OBS: SE EU RETIRAR O AND LOCAL=[Ô]ITAIPUAÇU[Ô] DO SELECT O CÓDIGO FUNCIONA .
Código
<%
[ô]Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath([Ô]adm.mdb[Ô])
Set conexao = Server.CreateObject([Ô]ADODB.Connection[Ô])
conexao.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô]&caminho&[Ô];[Ô]
[ô]Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject([Ô]ADODB.Recordset[Ô])
[txt-color=#e80000]strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio = [Ô]2[Ô] and local= [Ô]itaipuaçu[Ô] ORDER BY preco[Ô]
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
[ô]Definimos o Numero de Paginas com a propriedade [Ô]PageSize[Ô] do objeto Recordset
rsBuscaProdutos.PageSize = 20
[ô]Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = [Ô]Nenhum Registro Encontrado[Ô]
Response.End
else
[ô]Definimos 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[Ô]))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString([Ô]pagina[Ô])
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
<title></title>
<style>
/*
Criei estas CSSs somente para melhorar o
layout da Tabela de Paginação. Vocês podem modificar
ao seus gostos... usem e abusem...:)
*/
.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #E8E8E8;
border-collapse:collapse;
width: 850px;
}
.TProdutos td {
border: 0px solid #FFFFFF;
border-collapse:collapse;
text-align: right;
}
.TProdutos td#Titulo {
border: 0px solid #666666;
font: 9pt Verdana, Arial, Helvetica;
height: 17px;
background: #696969;
color:#FFFFFF;
text-align: justify;
}
.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EEE9E9;
color: #666666;
text-align: justify;
}
.style2
{
font-family: Arial, Helvetica, sans-serif;
}
.style3
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style4
{
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style5
{
width: 800px;
text-align: left;
}
.style6
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
}
.style7
{
color: #0066FF;
font-weight: bold;
}
.style8
{
color: #FF3300;
font-weight: bold;
}
</style>
</head>
<body>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<form method=[Ô]GET[Ô] action=[Ô]folder.asp[Ô]>
<tr>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]>Cód.:</td>
<td width=[Ô]170[Ô] id=[Ô]Titulo[Ô]>Imóvel:</td>
<td width=[Ô]105[Ô] id=[Ô]Titulo[Ô]>Nº Dormitórios:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>Nº SuÃtes:</td>
<td width=[Ô]100[Ô] id=[Ô]Titulo[Ô]>Preço:</td>
<td width=[Ô]240[Ô] id=[Ô]Titulo[Ô]>Descrição:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>+ Fotos:</td>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]></td>
</tr>
<%
[ô]Iniciamos o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
%>
<tr>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
</tr>
<tr style=[Ô]background-color: #FFFFFF[Ô]>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]autonum[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]titulo[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]dormitorio[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]suite[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=FormatCurrency(rsBuscaProdutos([Ô]preco[Ô]))%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]descricao[Ô])%></td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô]> <input type=[Ô]submit[Ô] name=[Ô]radio[Ô]
value=[Ô]<%=rsBuscaProdutos(0)%>[Ô] alt=[Ô]+Fotos[Ô]
style=[Ô]width: 20px; background-image: url([ô]http://www.laportimoveis.com.br/IMAGES/img_foto_pq.gif[ô]); background-color: #999999; color: #999999; height: 14px; cursor: pointer; text-align: center;[Ô]> </td>
<td id=[Ô]Dados[Ô]><img src=[Ô]<%Response.write rsBuscaProdutos([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] width=70
height=65 style=[Ô]background-color: #C0C0C0[Ô]></td>
</tr>
<%
rsBuscaProdutos.MoveNext
intrec = intrec + 1
if rsBuscaProdutos.eof then
response.write [Ô] [Ô]
end if
Wend
%>
</table>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<tr>
<td id=[Ô]Dados0[Ô] class=[Ô]style5[Ô]>
<%
[ô]Criamos as Validações para a navegação [Ô]Anterior[Ô] e [Ô]Próximo[Ô]
if intpagina>1 then
%>
<span class=[Ô]style6[Ô]>
|
<a href=[Ô]paginar.asp?pagina=<%=intpagina-1%>[Ô]><span class=[Ô]style7[Ô]>«« Página Anterior</span></a>
|</span> <span class=[Ô]style2[Ô]><span class=[Ô]style4[Ô]>
<span class=[Ô]style6[Ô]>
<span class=[Ô]style8[Ô]> </span></span><%
end if
if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then
%></span>| <a href=[Ô]paginar.asp?pagina=<%=intpagina + 1%>[Ô]><span class=[Ô]style4[Ô]>Próxima
Página »»</span></a></span><span class=[Ô]style3[Ô]><%
end if
rsBuscaProdutos.close
Set rsBuscaProdutos = Nothing
%></span> |</td>
</tr>
</table>
</body>
</html>
Está dando este erro
[txt-color=#e80000]erro [ô]80004005[ô]
/paginar.asp, line 12
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
OBS: SE EU RETIRAR O AND LOCAL=[Ô]ITAIPUAÇU[Ô] DO SELECT O CÓDIGO FUNCIONA .
Código
<%
[ô]Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath([Ô]adm.mdb[Ô])
Set conexao = Server.CreateObject([Ô]ADODB.Connection[Ô])
conexao.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô]&caminho&[Ô];[Ô]
[ô]Selecionamos todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject([Ô]ADODB.Recordset[Ô])
[txt-color=#e80000]strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio = [Ô]2[Ô] and local= [Ô]itaipuaçu[Ô] ORDER BY preco[Ô]
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
[ô]Definimos o Numero de Paginas com a propriedade [Ô]PageSize[Ô] do objeto Recordset
rsBuscaProdutos.PageSize = 20
[ô]Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = [Ô]Nenhum Registro Encontrado[Ô]
Response.End
else
[ô]Definimos 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[Ô]))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString([Ô]pagina[Ô])
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
<title></title>
<style>
/*
Criei estas CSSs somente para melhorar o
layout da Tabela de Paginação. Vocês podem modificar
ao seus gostos... usem e abusem...:)
*/
.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #E8E8E8;
border-collapse:collapse;
width: 850px;
}
.TProdutos td {
border: 0px solid #FFFFFF;
border-collapse:collapse;
text-align: right;
}
.TProdutos td#Titulo {
border: 0px solid #666666;
font: 9pt Verdana, Arial, Helvetica;
height: 17px;
background: #696969;
color:#FFFFFF;
text-align: justify;
}
.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EEE9E9;
color: #666666;
text-align: justify;
}
.style2
{
font-family: Arial, Helvetica, sans-serif;
}
.style3
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style4
{
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style5
{
width: 800px;
text-align: left;
}
.style6
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
}
.style7
{
color: #0066FF;
font-weight: bold;
}
.style8
{
color: #FF3300;
font-weight: bold;
}
</style>
</head>
<body>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<form method=[Ô]GET[Ô] action=[Ô]folder.asp[Ô]>
<tr>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]>Cód.:</td>
<td width=[Ô]170[Ô] id=[Ô]Titulo[Ô]>Imóvel:</td>
<td width=[Ô]105[Ô] id=[Ô]Titulo[Ô]>Nº Dormitórios:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>Nº SuÃtes:</td>
<td width=[Ô]100[Ô] id=[Ô]Titulo[Ô]>Preço:</td>
<td width=[Ô]240[Ô] id=[Ô]Titulo[Ô]>Descrição:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>+ Fotos:</td>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]></td>
</tr>
<%
[ô]Iniciamos o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
%>
<tr>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
</tr>
<tr style=[Ô]background-color: #FFFFFF[Ô]>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]autonum[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]titulo[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]dormitorio[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]suite[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=FormatCurrency(rsBuscaProdutos([Ô]preco[Ô]))%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]descricao[Ô])%></td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô]> <input type=[Ô]submit[Ô] name=[Ô]radio[Ô]
value=[Ô]<%=rsBuscaProdutos(0)%>[Ô] alt=[Ô]+Fotos[Ô]
style=[Ô]width: 20px; background-image: url([ô]http://www.laportimoveis.com.br/IMAGES/img_foto_pq.gif[ô]); background-color: #999999; color: #999999; height: 14px; cursor: pointer; text-align: center;[Ô]> </td>
<td id=[Ô]Dados[Ô]><img src=[Ô]<%Response.write rsBuscaProdutos([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] width=70
height=65 style=[Ô]background-color: #C0C0C0[Ô]></td>
</tr>
<%
rsBuscaProdutos.MoveNext
intrec = intrec + 1
if rsBuscaProdutos.eof then
response.write [Ô] [Ô]
end if
Wend
%>
</table>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<tr>
<td id=[Ô]Dados0[Ô] class=[Ô]style5[Ô]>
<%
[ô]Criamos as Validações para a navegação [Ô]Anterior[Ô] e [Ô]Próximo[Ô]
if intpagina>1 then
%>
<span class=[Ô]style6[Ô]>
|
<a href=[Ô]paginar.asp?pagina=<%=intpagina-1%>[Ô]><span class=[Ô]style7[Ô]>«« Página Anterior</span></a>
|</span> <span class=[Ô]style2[Ô]><span class=[Ô]style4[Ô]>
<span class=[Ô]style6[Ô]>
<span class=[Ô]style8[Ô]> </span></span><%
end if
if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then
%></span>| <a href=[Ô]paginar.asp?pagina=<%=intpagina + 1%>[Ô]><span class=[Ô]style4[Ô]>Próxima
Página »»</span></a></span><span class=[Ô]style3[Ô]><%
end if
rsBuscaProdutos.close
Set rsBuscaProdutos = Nothing
%></span> |</td>
</tr>
</table>
</body>
</html>
Altere as aspas duplas por aspas simples no seu SQL que isso que está dando erro
Versão correta do SQL
strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio = [ô]2[ô] and local= [ô]itaipuaçu[ô] ORDER BY preco[Ô]
Para parte de variáveis no SQL (qualquer banco que use instruções SQL), use as aspas simples para valores texto ou valores de data.
Versão correta do SQL
strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio = [ô]2[ô] and local= [ô]itaipuaçu[ô] ORDER BY preco[Ô]
Para parte de variáveis no SQL (qualquer banco que use instruções SQL), use as aspas simples para valores texto ou valores de data.
CONTINUA DANDO O MESMO ERRO:
erro [ô]80004005[ô]
[txt-color=#e80000]/paginar.asp, line 12
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
erro [ô]80004005[ô]
[txt-color=#e80000]/paginar.asp, line 12
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3[/txt-color]
Vocë pode postar novamente a consulta após a correção que sugeri?
strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio=[ô]2[ô] and local = [ô]Itaipuaçu[ô] ORDER BY preco[Ô]
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
dá este erro
[txt-color=#e80000]erro [ô]80004005[ô]
/paginar.asp, line 12 [/txt-color]
rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3
dá este erro
[txt-color=#e80000]erro [ô]80004005[ô]
/paginar.asp, line 12 [/txt-color]
Talvez a palavra [Ô]local[Ô] da instrução seja uma palavra-chave, ou o tipo de dados do campo [Ô]local[Ô] seja diferente do que você está fornecendo na instrução.
Sds.
Sds.
Já conferi EVSAR3, não difere da instrução, já testei com outros campos e o problema está no 2º critério.
Não é muito do meu feitio, mas vamos tentar uma boa e velha gambiarra:
[txt-color=#0000f0]SELECT * FROM imovel WHERE dormitorio = [ô]2[ô] AND local LIKE [ô]itaipuaçu[ô] ORDER BY preco ASC;[/txt-color]
Sorte.
[txt-color=#0000f0]SELECT * FROM imovel WHERE dormitorio = [ô]2[ô] AND local LIKE [ô]itaipuaçu[ô] ORDER BY preco ASC;[/txt-color]
Sorte.
O erro persiste estou disponibilizando o bd, que puder ajudar agradeço.
Eu reproduzi a mesma consulta diretamente num objeto do próprio Access e tudo ocorreu normalmente.
Isso me leva a crer que a única possÃvel solução para o problema seja o cedilha (ç), substitua todas as cedilhas por C e tente novamente. Se isto não funcionar, lamento muito muito não poder mais ajudá-lo. Mas se funcionar, volte para nos contar.
Boa sorte,
Isso me leva a crer que a única possÃvel solução para o problema seja o cedilha (ç), substitua todas as cedilhas por C e tente novamente. Se isto não funcionar, lamento muito muito não poder mais ajudá-lo. Mas se funcionar, volte para nos contar.
Boa sorte,
AÃ galera consegui resolver:
- troquei o provedor(continuou dando erro cursor : ADODB.Recordset erro [ô]800a0cb3[ô]), aà troquei o cursor, abaixo:
[txt-color=#e80000]Set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.CursorLocation = 3
objConn.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô][/txt-color]
aà está o cód. completo:
<%
[ô]Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
Dim objConn, objRs, strQuery, strConnection
[ô]Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.CursorLocation = 3
objConn.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô]
[ô]Selecionamos todos os Produtos da Tabela
strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio=[ô][Ô] & 3 & [Ô][ô] and local = [ô]itaipuaçu[ô] ORDER BY preco[Ô]
Set rsBuscaProdutos = objConn.Execute(strBuscaProdutos)
[ô]Definimos o Numero de Paginas com a propriedade [Ô]PageSize[Ô] do objeto Recordset
rsBuscaProdutos.PageSize = 3
[ô]Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = [Ô]Nenhum Registro Encontrado[Ô]
Response.End
else
[ô]Definimos 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[Ô]))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString([Ô]pagina[Ô])
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
<title></title>
<style>
/*
Criei estas CSSs somente para melhorar o
layout da Tabela de Paginação. Vocês podem modificar
ao seus gostos... usem e abusem...:)
*/
.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #E8E8E8;
border-collapse:collapse;
width: 850px;
}
.TProdutos td {
border: 0px solid #FFFFFF;
border-collapse:collapse;
text-align: right;
}
.TProdutos td#Titulo {
border: 0px solid #666666;
font: 9pt Verdana, Arial, Helvetica;
height: 17px;
background: #696969;
color:#FFFFFF;
text-align: justify;
}
.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EEE9E9;
color: #666666;
text-align: justify;
}
.style2
{
font-family: Arial, Helvetica, sans-serif;
}
.style3
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style4
{
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style5
{
width: 800px;
text-align: left;
}
.style6
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
}
.style7
{
color: #0066FF;
font-weight: bold;
}
.style8
{
color: #FF3300;
font-weight: bold;
}
</style>
</head>
<body>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<form method=[Ô]GET[Ô] action=[Ô]folder.asp[Ô]>
<tr>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]>Cód.:</td>
<td width=[Ô]170[Ô] id=[Ô]Titulo[Ô]>Imóvel:</td>
<td width=[Ô]105[Ô] id=[Ô]Titulo[Ô]>Nº Dormitórios:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>Nº SuÃtes:</td>
<td width=[Ô]100[Ô] id=[Ô]Titulo[Ô]>Preço:</td>
<td width=[Ô]240[Ô] id=[Ô]Titulo[Ô]>Descrição:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>+ Fotos:</td>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]></td>
</tr>
<%
[ô]Iniciamos o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
%>
<tr>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
</tr>
<tr style=[Ô]background-color: #FFFFFF[Ô]>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]autonum[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]titulo[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]dormitorio[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]suite[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=FormatCurrency(rsBuscaProdutos([Ô]preco[Ô]))%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]descricao[Ô])%></td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô]> <input type=[Ô]submit[Ô] name=[Ô]radio[Ô]
value=[Ô]<%=rsBuscaProdutos(0)%>[Ô] alt=[Ô]+Fotos[Ô]
style=[Ô]width: 20px; background-image: url([ô]http://www.laportimoveis.com.br/IMAGES/img_foto_pq.gif[ô]); background-color: #999999; color: #999999; height: 14px; cursor: pointer; text-align: center;[Ô]> </td>
<td id=[Ô]Dados[Ô]><img src=[Ô]<%Response.write rsBuscaProdutos([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] width=70
height=65 style=[Ô]background-color: #C0C0C0[Ô]></td>
</tr>
<%
rsBuscaProdutos.MoveNext
intrec = intrec + 1
if rsBuscaProdutos.eof then
response.write [Ô] [Ô]
end if
Wend
%>
</table>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<tr>
<td id=[Ô]Dados0[Ô] class=[Ô]style5[Ô]>
<%
[ô]Criamos as Validações para a navegação [Ô]Anterior[Ô] e [Ô]Próximo[Ô]
if intpagina>1 then
%>
<span class=[Ô]style6[Ô]>
|
<a href=[Ô]paginar.asp?pagina=<%=intpagina-1%>[Ô]><span class=[Ô]style7[Ô]>«« Página Anterior</span></a>
|</span> <span class=[Ô]style2[Ô]><span class=[Ô]style4[Ô]>
<span class=[Ô]style6[Ô]>
<span class=[Ô]style8[Ô]> </span></span><%
end if
if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then
%></span>| <a href=[Ô]paginar.asp?pagina=<%=intpagina + 1%>[Ô]><span class=[Ô]style4[Ô]>Próxima
Página »»</span></a></span><span class=[Ô]style3[Ô]><%
end if
rsBuscaProdutos.close
Set rsBuscaProdutos = Nothing
%></span> |</td>
</tr>
</table>
</body>
</html>
- troquei o provedor(continuou dando erro cursor : ADODB.Recordset erro [ô]800a0cb3[ô]), aà troquei o cursor, abaixo:
[txt-color=#e80000]Set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.CursorLocation = 3
objConn.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô][/txt-color]
aà está o cód. completo:
<%
[ô]Abrimos a Conexão com o Banco
Dim caminho
Dim conexao
Dim objConn, objRs, strQuery, strConnection
[ô]Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.CursorLocation = 3
objConn.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô]
[ô]Selecionamos todos os Produtos da Tabela
strBuscaProdutos = [Ô]SELECT * FROM imovel where dormitorio=[ô][Ô] & 3 & [Ô][ô] and local = [ô]itaipuaçu[ô] ORDER BY preco[Ô]
Set rsBuscaProdutos = objConn.Execute(strBuscaProdutos)
[ô]Definimos o Numero de Paginas com a propriedade [Ô]PageSize[Ô] do objeto Recordset
rsBuscaProdutos.PageSize = 3
[ô]Criamos as Validações
if rsBuscaProdutos.eof then
Mensagem = [Ô]Nenhum Registro Encontrado[Ô]
Response.End
else
[ô]Definimos 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[Ô]))>rsBuscaProdutos.PageCount then
intpagina = rsBuscaProdutos.PageCount
else
intpagina = Request.QueryString([Ô]pagina[Ô])
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
<title></title>
<style>
/*
Criei estas CSSs somente para melhorar o
layout da Tabela de Paginação. Vocês podem modificar
ao seus gostos... usem e abusem...:)
*/
.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #E8E8E8;
border-collapse:collapse;
width: 850px;
}
.TProdutos td {
border: 0px solid #FFFFFF;
border-collapse:collapse;
text-align: right;
}
.TProdutos td#Titulo {
border: 0px solid #666666;
font: 9pt Verdana, Arial, Helvetica;
height: 17px;
background: #696969;
color:#FFFFFF;
text-align: justify;
}
.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EEE9E9;
color: #666666;
text-align: justify;
}
.style2
{
font-family: Arial, Helvetica, sans-serif;
}
.style3
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style4
{
font-size: 11pt;
font-weight: bold;
color: #0066FF;
}
.style5
{
width: 800px;
text-align: left;
}
.style6
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11pt;
}
.style7
{
color: #0066FF;
font-weight: bold;
}
.style8
{
color: #FF3300;
font-weight: bold;
}
</style>
</head>
<body>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<form method=[Ô]GET[Ô] action=[Ô]folder.asp[Ô]>
<tr>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]>Cód.:</td>
<td width=[Ô]170[Ô] id=[Ô]Titulo[Ô]>Imóvel:</td>
<td width=[Ô]105[Ô] id=[Ô]Titulo[Ô]>Nº Dormitórios:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>Nº SuÃtes:</td>
<td width=[Ô]100[Ô] id=[Ô]Titulo[Ô]>Preço:</td>
<td width=[Ô]240[Ô] id=[Ô]Titulo[Ô]>Descrição:</td>
<td width=[Ô]70[Ô] id=[Ô]Titulo[Ô]>+ Fotos:</td>
<td width=[Ô]40[Ô] id=[Ô]Titulo[Ô]></td>
</tr>
<%
[ô]Iniciamos o Loop
rsBuscaProdutos.AbsolutePage = intpagina
intrec = 0
While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
%>
<tr>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
<td id=[Ô]Dados[Ô] style=[Ô]background-color: #FFFFFF[Ô]> </td>
</tr>
<tr style=[Ô]background-color: #FFFFFF[Ô]>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]autonum[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]titulo[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]dormitorio[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]suite[Ô])%></td>
<td id=[Ô]Dados[Ô]><%=FormatCurrency(rsBuscaProdutos([Ô]preco[Ô]))%></td>
<td id=[Ô]Dados[Ô]><%=rsBuscaProdutos([Ô]descricao[Ô])%></td>
<td id=[Ô]dados[Ô] align=[Ô]left[Ô]> <input type=[Ô]submit[Ô] name=[Ô]radio[Ô]
value=[Ô]<%=rsBuscaProdutos(0)%>[Ô] alt=[Ô]+Fotos[Ô]
style=[Ô]width: 20px; background-image: url([ô]http://www.laportimoveis.com.br/IMAGES/img_foto_pq.gif[ô]); background-color: #999999; color: #999999; height: 14px; cursor: pointer; text-align: center;[Ô]> </td>
<td id=[Ô]Dados[Ô]><img src=[Ô]<%Response.write rsBuscaProdutos([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] width=70
height=65 style=[Ô]background-color: #C0C0C0[Ô]></td>
</tr>
<%
rsBuscaProdutos.MoveNext
intrec = intrec + 1
if rsBuscaProdutos.eof then
response.write [Ô] [Ô]
end if
Wend
%>
</table>
<table border=[Ô]0[Ô] class=[Ô]TProdutos[Ô]>
<tr>
<td id=[Ô]Dados0[Ô] class=[Ô]style5[Ô]>
<%
[ô]Criamos as Validações para a navegação [Ô]Anterior[Ô] e [Ô]Próximo[Ô]
if intpagina>1 then
%>
<span class=[Ô]style6[Ô]>
|
<a href=[Ô]paginar.asp?pagina=<%=intpagina-1%>[Ô]><span class=[Ô]style7[Ô]>«« Página Anterior</span></a>
|</span> <span class=[Ô]style2[Ô]><span class=[Ô]style4[Ô]>
<span class=[Ô]style6[Ô]>
<span class=[Ô]style8[Ô]> </span></span><%
end if
if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then
%></span>| <a href=[Ô]paginar.asp?pagina=<%=intpagina + 1%>[Ô]><span class=[Ô]style4[Ô]>Próxima
Página »»</span></a></span><span class=[Ô]style3[Ô]><%
end if
rsBuscaProdutos.close
Set rsBuscaProdutos = Nothing
%></span> |</td>
</tr>
</table>
</body>
</html>
Tópico encerrado , respostas não são mais permitidas