O que esta de errado

[Holy Demons 0]

que puder me ajudar eu agradeço...erro que esta acontecendo...

Erro de compilação do Microsoft vb script: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> [/color]  <%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="java script: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="java script: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="java script: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%>

[Holy Demons 0]

e ai galera eu já achei o erro que tava dando só faltava o sinal de = mais 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

%>

[Holy Demons 0]

Ninguem pode me ajudar?

[Salgado 4]

O campo Destaque é numérico mesmo?