O Que Esta De Errado

Holy Demons · Julho 7, 2004

Galera não sei o que esta dando errado nesse escript... olha ai si puderem me ajudar beleza...

erro que esta dando

Erro de compilação do Microsoft VBScript error '800a0400'
Instrução esperada
/imovel/TMP11yq1h1b5.asp, line 76
(Destaques.Fields.Item("Codigo_Imovel").Value)
^

agora o meu codigo

<%
Dim Contador
Dim Registros
Dim Titulo(3)
Dim Resumo(3)
Dim Pagina(3)
Dim TipoCodigo(3)
Dim Noticias
Dim Noticias_numRows
Set Noticias = Server.CreateObject("ADODB.Recordset")
Noticias.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Noticias.Source = "SELECT * FROM Noticia"
Noticias.CursorType = 0
Noticias.CursorLocation = 2
Noticias.LockType = 1
Noticias.Open()
Registros=(Noticias.Fields.Item("Registros").Value)
Contador=0
while not Noticias.eof
Titulo(Contador)=(Noticias.Fields.Item("Header").Value)
Resumo(Contador)=(Noticias.Fields.Item("Resumo").Value)
Pagina(Contador)="../noticias/"+(Noticias.Fields.Item("Arquivo").Value)
Contador=Contador+1
Noticias.MoveNext
wend
Noticias_numRows = 0
%>
<%
Dim Destaques
Dim Destaques_numRows
Set Destaques = Server.CreateObject("ADODB.Recordset")
Destaques.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Destaques.Source = "SELECT * FROM Imoveis Where Destaque = 1"
Destaques.CursorType = 0
Destaques.CursorLocation = 2
Destaques.LockType = 1
Destaques.Open()
Destaques_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Corpo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFCC" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td width="160" height="180" rowspan="2"><div align="center">
<table width="150" height="170" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_vertical.gif">
<tr>
   <%if Destaques.Fields.Item("Foto")="1" then%>
<td width="150" height="90" align="center" valign="middle"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0);" target="_self"></a><img src="banco_de_dados/fotos/1-foto_pequena.jpg" width="90" height="60" border="0"></td>
   <%else{} %>
<td width="150" height="90" align="center" valign="middle"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
   <%end if%>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(0)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(0)
   case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
   <%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Area_Util").Value)%></font></div></td>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></div></td>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%></font></div></td>
</tr>
</table>
</div></td>
<td height="90" colspan="2"><table width="300" height="80" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_horizontal.gif">
<tr>
<td align="center" valign="middle"><table width="310" height="68" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<%Destaques.MoveNext()%>
<%if Destaques.Fields.Item("Foto")="1" then%>
   <td width="124" height="68" rowspan="4" align="center"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%=(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0)" target="_self"></a><img src="banco_de_dados/fotos/<%=response.write(Destaques.Fields.Item("Codigo_Imovel").Value)%>-foto_pequena.jpg" width="90" height="60" border="0"></td>
<%else%>
   <td width="124" height="68" rowspan="4" align="center"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
<%end if%>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(1)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(1)
   case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
   <%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Area_Util").Value)%></font></td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%>
</font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="top">
<td height="90" colspan="2" valign="middle"><table width="300" height="80" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_horizontal.gif">
<tr>
<td align="center" valign="middle"><table width="310" height="68" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<%Destaques.MoveNext()%>
<%if Destaques.Fields.Item("Foto")="1" then%>
   <td width="124" height="68" rowspan="4" align="center"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%=(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0)" target="_self"></a><img src="banco_de_dados/fotos/<%=response.write(Destaques.Fields.Item("Codigo_Imovel").Value)%>-foto_pequena.jpg" width="90" height="60" border="0"></td>
<%else%>
   <td width="124" height="68" rowspan="4" align="center"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
<%end if%>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(2)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(2)
   case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
   <%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
   <%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=(Destaques.Fields.Item("Area_Util").Value)%></font></td>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></td>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%></font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(1)%>"><%=Titulo(1)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><div align="justify"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=Resumo(1)%></font></div></td>
</tr>
</table></td>
<td width="160" height="90"><table width="150" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><strong></strong></td>
</tr>
<tr>
<td height="65" valign="top"> </td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td width="160" height="90"><a href="javascript:abre_janela('win','http://200.210.168.147/view/view.shtml', 0, 0, 790, 580, 0, 0, 0, 0, 0)" target="_self"><img src="../imagens/pg_camera.jpg" width="150" height="80" border="0"></td>
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(0)%>"><%=Titulo(0)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Resumo(0)%><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></font></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(2)%>"><%=Titulo(2)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Resumo(2))%></font></td>
</tr>
</table></td>
<td width="160" height="90"><table width="150" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">dfgd
gdgdf g df gdfg dfg dfg dfgdf g dfgddfg d fg d gdf gd gdfg dfg dfg
dd fg d gdg df gdf fgfg df f f dg fggf gg df gdf g dfg df gdf df ggdf
gdg d ...</font></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90"> </td>
<td width="160" height="90"> </td>
<td height="90"> </td>
</tr>
<tr align="center" valign="middle">
<td height="45" colspan="3"><hr></td>
</tr>
<tr align="center" valign="middle">
<td height="45" colspan="3" bgcolor="#000099"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
TODOS OS DIREITOS RESERVADOS</strong></font></td>
</tr>
</table>
</body>
</html>
<%
Noticias.Close()
Set Noticias = Nothing
%>
<%
Destaques.Close()
Set Destaques = Nothing
%>

bareta · Julho 7, 2004

edita isso....deixa so a linha que esta errada fica melhor....num da da pra fica olhando o cod inteiro...

Holy Demons · Julho 7, 2004

que puder me ajudar eu agradeço...

erro que esta acontecendo...

Erro de compilação do Microsoft VBScript error '800a0400'
Instrução esperada
/imovel/TMP1lma4h20m.asp, line 76
(Destaques.Fields.Item("Codigo_Imovel").Value)
^

agora o meu codigo

<%
Dim Contador
Dim Registros
Dim Titulo(3)
Dim Resumo(3)
Dim Pagina(3)
Dim TipoCodigo(3)
Dim Noticias
Dim Noticias_numRows
Set Noticias = Server.CreateObject("ADODB.Recordset")
Noticias.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Noticias.Source = "SELECT * FROM Noticia"
Noticias.CursorType = 0
Noticias.CursorLocation = 2
Noticias.LockType = 1
Noticias.Open()
Registros=(Noticias.Fields.Item("Registros").Value)
Contador=0
while not Noticias.eof
Titulo(Contador)=(Noticias.Fields.Item("Header").Value)
Resumo(Contador)=(Noticias.Fields.Item("Resumo").Value)
Pagina(Contador)="../noticias/"+(Noticias.Fields.Item("Arquivo").Value)
Contador=Contador+1
Noticias.MoveNext
wend
Noticias_numRows = 0
%>
<%
Dim Destaques
Dim Destaques_numRows
Set Destaques = Server.CreateObject("ADODB.Recordset")
Destaques.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Destaques.Source = "SELECT * FROM Imoveis Where Destaque = 1"
Destaques.CursorType = 0
Destaques.CursorLocation = 2
Destaques.LockType = 1
Destaques.Open()
Destaques_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Corpo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFCC" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td width="160" height="180" rowspan="2"><div align="center">
<table width="150" height="170" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_vertical.gif">
<tr>
<%if Destaques.Fields.Item("Foto")="1" then%>
<td width="150" height="90" align="center" valign="middle"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0);" target="_self"></a><img src="banco_de_dados/fotos/1-foto_pequena.jpg" width="90" height="60" border="0"></td>
<%else{} %>
<td width="150" height="90" align="center" valign="middle"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
<%end if%>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(0)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(0)
case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
<%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Area_Util").Value)%></font></div></td>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></div></td>
</tr>
<tr>
<td width="150" height="20" valign="top"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%></font></div></td>
</tr>
</table>
</div></td>
<td height="90" colspan="2"><table width="300" height="80" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_horizontal.gif">
<tr>
<td align="center" valign="middle"><table width="310" height="68" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<%Destaques.MoveNext()%>
<%if Destaques.Fields.Item("Foto")="1" then%>
<td width="124" height="68" rowspan="4" align="center"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%=(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0)" target="_self"></a><img src="banco_de_dados/fotos/<%=response.write(Destaques.Fields.Item("Codigo_Imovel").Value)%>-foto_pequena.jpg" width="90" height="60" border="0"></td>
<%else%>
<td width="124" height="68" rowspan="4" align="center"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
<%end if%>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(1)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(1)
case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
<%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Area_Util").Value)%></font></td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></td>
</tr>
<tr>
<td width="188" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%>
</font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="top">
<td height="90" colspan="2" valign="middle"><table width="300" height="80" border="0" cellpadding="0" cellspacing="0" background="imagens/destaque_horizontal.gif">
<tr>
<td align="center" valign="middle"><table width="310" height="68" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<%Destaques.MoveNext()%>
<%if Destaques.Fields.Item("Foto")="1" then%>
<td width="124" height="68" rowspan="4" align="center"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%=(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0)" target="_self"></a><img src="banco_de_dados/fotos/<%=response.write(Destaques.Fields.Item("Codigo_Imovel").Value)%>-foto_pequena.jpg" width="90" height="60" border="0"></td>
<%else%>
<td width="124" height="68" rowspan="4" align="center"><img src="banco_de_dados/fotos/sem_foto.gif" width="90" height="60"></td>
<%end if%>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%
TipoCodigo(2)=(Destaques.Fields.Item("Tipo_Imovel").Value)
select case TipoCodigo(2)
case 1%>
Casa - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 2%>
Apartamento - <%=(Destaques.Fields.Item("Comp_1"))%> dorm.
<%case 3%>
Terreno - <%=(Destaques.Fields.Item("Area_Terreno"))%> metros
<%case 4%>
Sala Comercial - <%=(Destaques.Fields.Item("Comp_1"))%> salas
<%end select%>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=(Destaques.Fields.Item("Area_Util").Value)%></font></td>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Destaques.Fields.Item("Cidade_Texto").Value)%></font></td>
</tr>
<tr>
<td width="180" height="17" valign="bottom"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">R$<%=FormatNumber((Destaques.Fields.Item("Valor").Value),2)%></font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(1)%>"><%=Titulo(1)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><div align="justify"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=Resumo(1)%></font></div></td>
</tr>
</table></td>
<td width="160" height="90"><table width="150" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><strong></strong></td>
</tr>
<tr>
<td height="65" valign="top"> </td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td width="160" height="90"><a href="javascript:abre_janela('win','http://200.210.168.147/view/view.shtml', 0, 0, 790, 580, 0, 0, 0, 0, 0)" target="_self"><img src="../imagens/pg_camera.jpg" width="150" height="80" border="0"></td>
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(0)%>"><%=Titulo(0)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Resumo(0)%><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></font></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90" colspan="2"><table width="310" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=Pagina(2)%>"><%=Titulo(2)%></a></font></strong></td>
</tr>
<tr>
<td height="65" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Resumo(2))%></font></td>
</tr>
</table></td>
<td width="160" height="90"><table width="150" height="80" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">dfgd
gdgdf g df gdfg dfg dfg dfgdf g dfgddfg d fg d gdf gd gdfg dfg dfg
dd fg d gdg df gdf fgfg df f f dg fggf gg df gdf g dfg df gdf df ggdf
gdg d ...</font></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle">
<td height="90"> </td>
<td width="160" height="90"> </td>
<td height="90"> </td>
</tr>
<tr align="center" valign="middle">
<td height="45" colspan="3"><hr></td>
</tr>
<tr align="center" valign="middle">
<td height="45" colspan="3" bgcolor="#000099"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
TODOS OS DIREITOS RESERVADOS</strong></font></td>
</tr>
</table>
</body>
</html>
<%
Noticias.Close()
Set Noticias = Nothing
%>
<%
Destaques.Close()
Set Destaques = Nothing
%>

dark0 · Julho 7, 2004

é isso aí cara..

Posta aqui somente a parte que interessa.. ou seja, a que dá erro!

o codigo inteiro não adianta.. pois até achar a linha do erro..

ou pelo menos salienta onde ta o erro.. senao fica dificil, né

dark0 · Julho 7, 2004

Eu Juntei os dois tópicos!

Eram iguais e do mesmo autor

ate mais

dark0 · Julho 7, 2004

Seu erro tá aqui:

<td width="150" height="90" align="center" valign="middle"><a href="javascript:abre_janela('win','fotos.asp?Codigo=<%=(Destaques.Fields.Item("Codigo_Imovel").Value)%>', 0, 0, 550, 420, 0, 0, 0, 0, 0);" target="_self"></a><img src="banco_de_dados/fotos/1-foto_pequena.jpg" width="90" height="60" border="0"></td>

pra você saber.. eu só adicionei o sinal de = (igual) ali!

ate mais

Holy Demons · Julho 7, 2004

descupa galera....

eu sou uma besta mesmo agora ta dando erro na linha 57

Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/imovel/TMP4xdteh6bt.asp, line 57

linha 57

<%
Dim Destaques
Dim Destaques_numRows
Set Destaques = Server.CreateObject("ADODB.Recordset")
Destaques.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Destaques.Source = "SELECT * FROM Imoveis Where Destaque = 1"
Destaques.CursorType = 0
Destaques.CursorLocation = 2
Destaques.LockType = 1
Destaques.Open()
Destaques_numRows = 0
%>

dark0 · Julho 7, 2004

o que esse seu codigo faz?

só o select?

porque essas 4 linhas aí?

porque não usa o modo convencional?

eu nunca usei esse modo aí..

então acho que não posso te ajudar..

bareta · Julho 7, 2004

seu campo ta como numero?????no banco de dados

Holy Demons · Julho 7, 2004

sim...na tabela de imoveis eu criei uns campos com o nome de camp_1, camp_2 e por ai vai...

Holy Demons · Julho 7, 2004

o que esse seu codigo faz?
só o select?
porque essas 4 linhas aí?
porque não usa o modo convencional?
eu nunca usei esse modo aí..
então acho que não posso te ajudar..

esse codigo ele exibe os imoveis que tam cadastrados no banco e mostra os destaques deles...

como eu faço o modo convencional...descupa a minha falta de conhacimento em asp....

si vc's quiserem eu coloco a banco para vc's verem e a pagina que ta dando erro...

bareta · Julho 7, 2004

cara isso fala bem........

ai vai ter bastante coisa sobre banco de dados....tudo modo simples

dark0 · Julho 8, 2004

e ae,. beleza?

Bom.. vou te mostrar como costumo criar SQL que faz SELECT:

'1- Conectando ao banco:
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
'cria o SQL
SQL = "SELECT * FROM Imoveis Where Destaque = 1"
'executa o SQL
set rs = conexao.execute(sql)

basicamente, esse codigo faz o mesmo que o seu.

Só olhe o caminho do banco de dados.

Esse modo usa 'mappath, ou seja.. usa caminho lógico, e não físico.

Se quiser o caminho físico, troca toda a parte de conexao por isso:

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Inetpub\wwwroot\imovel\banco_de_dados\imoveis.mdb;"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConnString

Qualquer duvida, poste aí!

Abraços

Entrar

O Que Esta De Errado

Pergunta

Link para o comentário

Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns