Preciso De Ajuda !
#1
Posted 23/10/2003, 03:12
infos.asp
<%
const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)
rsImoveis.Open "imoveis", conImobiliaria
%>
<table width="550" border="0" cellspacing="10" cellpadding="0">
<tr>
<td width="25%"><img src="<%=rsImoveis("imagem")%>" width="178" height="162" border="0"></td>
<td width="75%" valign="top"> <p><font size="1"><strong><font face="Verdana, Arial, Helvetica, sans-serif"><%=rsImoveis("titulo")%>
</font></strong><font color="#999999" face="Verdana, Arial, Helvetica, sans-serif"> id:
<%=rsImoveis("id")%></font></font></p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsImoveis("descricao")%> </font></p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Local: <%=rsImoveis("local")%><br>
Preço:<%=rsImoveis("preco")%></font></p>
<p> </p></td>
</tr>
</table>
<%
rsImoveis.close
conImobiliaria.close
%>
<p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Para receber mais informações sobre este
imóvel preencha o formulário abaixo</font></strong></p>
<form name="form1" method="post" action="">
<table width="479" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="68"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></td>
<td width="396"><input type="text" name="textfield"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Telefone</font></td>
<td><input name="textfield2" type="text"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Celular:</font></td>
<td><input name="textfield3" type="text"></td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<p> </p>
creio que o erro esta na linha em destake !!!
=============
o erro é o seguinte
na pagina.... infos.asp?codigo=1
ADODB.Recordset error '800a0e79'
Operação solicitada pelo aplicativo não permitida se o objeto estiver aberto.
/infos.asp, line 10
-------------------------
desde já obrigado a todos !!!
abraços !
#2
Posted 23/10/2003, 17:11
#3
Posted 23/10/2003, 17:15
rsImoveis.Open "imoveis", conImobiliaria
olha 1º o correto seria imoveis nao "Imoveis" e 2º nao achei essa variavel no seu codigo
#4
Posted 23/10/2003, 18:16
const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)
rsImoveis.Open "imoveis", conImobiliaria
Se você já abriu um recordset para listar os produtos, não precisa usar o comando .Execute...
Vai gerar uma espécie de conflito nos códigos, não só porque os dois basicamente fazem a mesma coisa como também porque você está usando variáveis idênticas para ambos os casos.
Escolha um dos caminhos abaixo, usando Recordset:
ou usando o .Execute:const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
rsImoveis.Open strImoveis, conImobiliaria
const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)
Abraços, boa sorte!
Qualquer dúvida, volte a postar!
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)