Jump to content


Photo

O Que Esta De Errado


  • Faça o login para participar
5 replies to this topic

#1 Holy Demons

Holy Demons

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado

Posted 07/07/2004, 14:36

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">&nbsp;<%=(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">&nbsp;<%=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">&nbsp;</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">&nbsp;</td>
    <td width="160" height="90">&nbsp;</td>
    <td height="90">&nbsp;</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
%>



#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 07/07/2004, 14:46

Faltou o "=" antes.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 Holy Demons

Holy Demons

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado

Posted 07/07/2004, 15:04

Antes de onde?

#4 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 07/07/2004, 15:42

<td width="150" height="90" align="center" valign="middle"><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/1-foto_pequena.jpg" width="90" height="60" border="0"></td>
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#5 Holy Demons

Holy Demons

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado

Posted 07/07/2004, 16:04

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
%>


Edição feita por: Holy Demons, 07/07/2004, 16:15.


#6 Holy Demons

Holy Demons

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado

Posted 08/07/2004, 13:44

Alguem pode me ajudar?




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq