A HREF

MAFACILITY 07/03/2011 23:00:43
#367498
Não estou conseguindo encaixar este href=folder.asp?autonum=[Ô] &objRS.Fields([Ô]autonum[Ô]) na linha abaixo, gostaria que ao clicar campo objRS.fields([Ô]foto1[Ô]) que é uma foto chamasse o arquivo folder.asp.


[txt-color=#e80000]<td style=[Ô]font-weight: 700; font-family: Andalus[Ô]><img src=[Ô]<%Response.write objRS.fields([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] height=[Ô]200[Ô] style=[Ô]background-color: #C0C0C0; width: 159px;[Ô]></font>  <br><%Response.write formatCurrency(objRS([Ô]preco[Ô]))%><b><br [/txt-color]
FININHO 07/03/2011 23:41:52
#367499

<td style=[Ô]font-weight: 700; font-family: Andalus[Ô]>
<a href=folder.asp?autonum=[Ô] <% = objRS.Fields([Ô]autonum[Ô]) %>[Ô]>
<img src=[Ô]<% = objRS.fields([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] height=[Ô]200[Ô] style=[Ô]background-color: #C0C0C0; width: 159px[Ô] /></a></td>
MAFACILITY 07/03/2011 23:47:44
#367500
está dando este erro: Erro de tempo de execução do Microsoft VBScript erro [ô]800a01c2[ô]

Número de argumentos incorreto ou atribuição de propriedade inválida: [ô]write[ô]

/cia/destaq.asp, line 83

estou postando o código todo


<%

Dim objConn, objRs, strQuery, strConnection,linha,i

[ô]Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô]

[ô]Seleciona da tabela contato
[ô]strQuery = [Ô]SELECT * FROM imovel where dormitorio=[ô][Ô] & 3 & [Ô][ô] and local=[ô]Itaipuaçu[ô] order by preco asc[Ô]
strQuery = [Ô]SELECT * FROM imovel [Ô]
Set ObjRs = objConn.Execute(strQuery)
[ô]Total = objrs.recordcount
[ô]Colunas = 4
%>
<html>
<LINK REL=stylesheet HREF=[Ô]liks_etc.css[Ô] TYPE=[Ô]text/css[Ô]>
<head>
<title></title>
<style type=[Ô]text/css[Ô]>
.style1
{
color: #999999;
font-family: Andalus;
}
.style2
{
font-family: Andalus;
}
</style>
</head>
<body bgcolor=[Ô]#dddddd[Ô] style=[Ô]background-color: #000000[Ô]>
<div align=[Ô]center[Ô] style=[Ô]width: 244px; height: 10px[Ô]>
<table style=[Ô]height: 241px; width: 168px[Ô]>
<%
while not objRS.EOF [ô]and linha < objrs.recordcount
%>
<tr style=[Ô]color: #CCCCCC[Ô]>
<%
for i=0 to 3
%>


<td style=[Ô]font-weight: 700; font-family: Andalus[Ô]>
<a href=folder.asp?autonum=[Ô] <% = objRS.Fields([Ô]autonum[Ô]) %>[Ô]>
<img src=[Ô]<% = objRS.fields([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô] height=[Ô]200[Ô] style=[Ô]background-color: #C0C0C0; width: 159px[Ô] /></a></td>


class=[Ô]style1[Ô] />
<br class=[Ô]style2[Ô] />
<br class=[Ô]style1[Ô] />
</b>
</td>

<%
if i < 4 then objRS.MoveNext
next
%>

</tr>
<%
Wend
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>
</table>
</body>
</html>
FININHO 08/03/2011 01:32:17
#367502
O código acima está na pagina destaq.asp?
Tá dizendo que o erro está na linha 83, mas eu copiei o codigo para o meu editor e só deu 70 linhas de código.
Examina a pagina destaq.asp na linha 83

Altera o local da aspa conforme abaixo que é o jeito certo. Talvez seja esse o erro.

<a href=folder.asp?autonum=[txt-color=#e80000] [Ô][/txt-color] <% = objRS.Fields([Ô]autonum[Ô]) %>[Ô]>
<a href=[txt-color=#e80000][Ô][/txt-color]folder.asp?autonum= <% = objRS.Fields([Ô]autonum[Ô]) %>[Ô]> [txt-color=#e80000][ô] jeito certo[/txt-color]

Você colocou a instrução moveNext dentro do comando for i=0 to 3 sem verificação da propriedade EOF.
MAFACILITY 08/03/2011 02:09:55
#367503
o código acima está em destaq.asp, continua o mesmo erro.
realmente no meu editor so tem 70 linhas tambem. o código sem [txt-color=#e80000]a ref[/txt-color] funciona perfeitamente, não sei o que esta ocorrendo.
FININHO 08/03/2011 02:29:11
#367504
Experimenta tirar o Fields, deixando conforme abaixo

<a href=[Ô]folder.asp?autonum= <% = objRS([Ô]autonum[Ô]) %>[Ô]>
MAFACILITY 08/03/2011 02:34:18
#367505
vou tentar de uma olhada como funciona sem o a ref http://www.laportimoveis.com.br/cia/destaq.asp
MAFACILITY 08/03/2011 02:39:25
#367506
sem o fields continua o erro
TECLA 08/03/2011 09:17:52
#367513
Procure por todas as declarações do operador WRITE na página do erro, e dê uma conferida na sintaxe.
MAFACILITY 08/03/2011 19:14:06
#367533
gostaria que os amigos dessem uma olhada geral no código acima, pois como disse sem o a href funciona. mas poder haver algum erro de tratamento de dados no código que está aparecendo com a utilização do a href .
MAFACILITY 20/03/2011 02:00:56
#368597
Aí colegas, consegui arrumar um pouco de tempo e zerei o código anterior e fiz um novo com mais calma. E está funcionando sem erros até o momento. Agradeço a contribuição de todos e estou postando abaixo o novo código.

<head>
<style type=[Ô]text/css[Ô]>
.style1
{
color: #FFCC00;
}
</style>
</head>
<body style=[Ô]background-color: #000000[Ô]>
<table width=[Ô]<%=tabwidth%>[Ô] cellspacing=[Ô]2[Ô] cellpadding=[Ô]1[Ô]
bgcolor=[Ô]<%= trback%>[Ô] align=[Ô]left[Ô] bordercolorlight=[Ô]<%= mainborderlight%>[Ô]
bordercolordark=[Ô]<%= mainborderdark%>[Ô]>
<%
Dim objConn, objRs, strQuery, strConnection, url_conexao

url_conexao = Server.MapPath([Ô]adm.mdb[Ô])
set objConn = Server.CreateObject([Ô]ADODB.Connection[Ô])
objConn.open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[Ô]&url_conexao



[ô]Seleciona da tabela contato
[ô]strQuery = [Ô]SELECT * FROM imovel where dormitorio=[ô][Ô] & 3 & [Ô][ô] and local=[ô]Itaipuaçu[ô] order by preco asc[Ô]
strQuery = [Ô]SELECT * FROM imovel [Ô]
set objRs = objConn.Execute(strQuery)
%>

<%

Do While Not objRs.eof
%>
<tr>
<%
Dim n
n = 0
Do While n < 6 And Not objRs.eof
%>
<td width=[Ô]<%= tdwidth%>%[Ô] valign=[Ô]top[Ô]>
<center style=[Ô]color: #FF9900[Ô]>
<a href=[Ô]folder.asp?autonum=<%=objRs([Ô]autonum[Ô])%>[Ô]><img src=[Ô]<%=objRs([Ô]foto1[Ô])%>[Ô] alt=[Ô]Sem Foto[Ô]
height=150

style=[Ô]border: medium solid #999999; background-color: #C0C0C0; width: 120px;[Ô]
border=[Ô]0[Ô]></a><span class=[Ô]style53[Ô]><br>
<%=objRs([Ô]titulo[Ô])%><span class=[Ô]style1[Ô]> </span> </span>
</center></td>
<%
objRs.Movenext()
n = n + 1
loop
%>
</tr>
<%loop%>
Tópico encerrado , respostas não são mais permitidas
Voltar