(Resolvido) [Erro] Não exibe a imagem...

Martinsrj · Julho 10, 2009

Olá pessoal, boa tarde!

Estou com dificuldade para exibir a imagem do banco e tb do formato da data!

Segue abaixo a tela com a imagem não aparecendo e tb a data.:

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsDados, strSQL, var_visualizadados, var_nomeprojeto, var_escopoprojeto, var_atividade, var_proximo, var_pontos, strSQLB, rsDadosB, var_acao, var_status, var_legenda, var_responsavel, var_data

var_visualizadados = Request.QueryString("cod_dados1")

Call AbreConexao
strSQL = "SELECT * FROM tab_dadosprojeto "
strSQL = strSQL & " WHERE cod_dados = " & var_visualizadados

strSQLB = "SELECT tab_dadosprojeto.cod_dados, tab_acoesprojeto.cod_acao, tab_acoesprojeto.cod_dadosprojeto, tab_acoesprojeto.acao, tab_acoesprojeto.status, tab_acoesprojeto.legenda, tab_acoesprojeto.responsavel, tab_acoesprojeto.data "
strSQLB = strSQLB & "FROM tab_dadosprojeto "
strSQLB = strSQLB & "INNER JOIN tab_acoesprojeto "
strSQLB = strSQLB & "ON tab_dadosprojeto.cod_dados = tab_acoesprojeto.cod_dadosprojeto "
strSQLB = strSQLB & " WHERE cod_dados = " & var_visualizadados


Set rsDados = conbd_gd.Execute(strSQL)
Set rsDadosB = conbd_gd.Execute(strSQLB)

'-- Variaveis da tabela: tab_dadosprojeto
var_nomeprojeto = rsDados("nome_projeto")
var_escopoprojeto = rsDados("escopo_projeto")
var_atividade = rsDados("atividades_realizadas")
var_proximo = rsDados("proximo_passo")
var_pontos = rsDados("pontos_atencao")

'-- Variaveis da tabela: tab_acoesprojeto
var_acao = rsDadosB("acao")
var_status = rsDadosB("status")
var_legenda = rsDadosB("legenda")
var_responsavel = rsDadosB("responsavel")
var_data = rsDadosB("data")


Response.Charset="ISO-8859-1"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<script type="text/javascript" src="../js/funcoes.js"></script>
<title>Gerência de Serviços de TI</title>

<link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" />

</head>

<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="topo.asp"--></td>
  </tr>
</table>
<%
Do While Not rsDados.Eof
Response.Charset="ISO-8859-1"   
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#f5f5f5"><div align="center"><br />
        <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
          <tr>
            <td height="200" class="tabelao_fundo_branco"><div align="center"> <br />
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="80%" height="20"><span class="titulo_mae"><% = rsDados.Fields("nome_projeto") %></span></td>
                    <td width="20%">Link: |<a href="java script:inclusao()" class="menu27"> Inclusão de Descrição</a> |</td>
                  </tr>
                </table>
                <br />
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><span class="subtitulo">Escopo da Demanda / Projeto</span></td>
                  </tr>
                </table>
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td class="tabela_branca"><% = rsDados.Fields("escopo_projeto") %></td>
                  </tr>
                </table>
                <table width="98%" border="0" cellspacing="0" cellpadding="0"><tr></tr>
                </table>
                <br />
                <table width="98%" border="0" cellspacing="4" cellpadding="0">
                  <tr>
                    <td width="50%"><span class="subtitulo">Atividade Realizadas</span></td>
                    <td width="50%"><span class="subtitulo">Pr&oacute;ximos Passos</span></td>
                  </tr>
                  <tr>
                    <td width="50%" class="tabela_branca"><% = rsDados.Fields("atividades_realizadas") %></td>
                    <td width="50%" class="tabela_branca"><% = rsDados.Fields("proximo_passo") %></td>
                  </tr>
                </table>
                <br />
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><span class="subtitulo">Pontos de Aten&ccedil;&atilde;o</span></td>
                  </tr>
                </table>
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td class="tabela_branca"><% = rsDados.Fields("pontos_atencao") %></td>
                  </tr>
                </table>
<%
rsDados.MoveNext
Loop
rsDados.Close
'Call FechaConexao
Set rsDados = Nothing
%>             
                <br />
                <table width="98%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td><span class="titulo">Descrição das Atividades</span></td>
                  </tr>
              </table>
              <br />
              
                <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                      <tr>
                        <td width="50%" height="20" class="tabela_verde">Ação</td>
                        <td width="16%" class="tabela_verde"><strong>Status</strong></td>
                        <td width="7%" class="tabela_verde">legenda</td>
                        <td width="17%" class="tabela_verde">Responsável</td>
                        <td width="17%" class="tabela_verde">Data</td>
                      </tr>
<%
Do While Not rsDadosB.Eof
%>                  
                      <tr>
                        <td class="tabela_branca"><% = rsDadosB.Fields("acao") %></td>
                        <td height="10" class="tabela_branca"><% = rsDadosB.Fields("status") %></td>
                        <td class="tabela_branca"><img border="0" src"<% = rsDadosB.Fields("legenda") %>" with="20" height="20"></td>
                        <td class="tabela_branca"><% = rsDadosB.Fields("responsavel") %></td>
                        <td class="tabela_branca"><% = rsDadosB.Fields("data") %></td>
                       </tr>
<%
rsDadosB.MoveNext
Loop
rsDadosB.Close
Call FechaConexao
Set rsDadosB = Nothing
%>                        
                 </table>
                                          
            
                    </table>
                   
              <br />
              <br />
            </div></td>
          </tr>
        </table>
        <br />
    </td>
  </tr>
</table><!--#include file="../rodape.asp"-->
</body>
</html>

Jonathan Queiroz · Julho 10, 2009

Ele dá algum erro ?

Se possível poste mais especificamente a dúvida e/ou o que está acontecendo

Martinsrj · Julho 10, 2009

A imagem tem que aparecer na coluna legenda, Veja na 1° imagem como aparece as linhas referenta a coluna LEGENDA.

a outra dúvida na é coluna Data, pois no banco está com as seguintes informações: 2009-07-09 conforme a segunda imagem que postei.

Abraços e obrigado pela ajuda.

Ele dá algum erro ?
Se possível poste mais especificamente a dúvida e/ou o que está acontecendo

Martinsrj · Julho 10, 2009

Olá pessoal!

A imagem já está aparecendo, o codigo ficou assim:

<td class="tabela_branca"><img border="0" src="<% = rsDadosB.Fields("legenda") %>"</td>

porem a data não consegui identificar o porque que na tela aparece da seguinte forma: 7/10/aaaa se no banco está dessa forma: 2009-07-10

Jonathan Queiroz · Julho 10, 2009

O problema está no formato dd-mm-aaaa ao invés de dd/mm/aaaa ?

Se for isso, não era pra existir problemas, já que isso não interfere na comparação

Martinsrj · Julho 10, 2009

Não entendi quando você colocou no post: O problema está no formato dd-mm-aaaa ao invés de dd/mm/aaaa

Jonathan, o que ocorre é o seguinte no Banco Mysql está dessa forma: 2009-07-10, porem quando eu coloco para exibir em tela através do comando: <% = rsDadosB.Fields("data") %> aparece na tela assim: 7/10/aaaa

Desejo que seja impresso não 7/10/aaaa e sim: 10-07-2009

Abraços e obrigado pela ajuda desde já.

O problema está no formato dd-mm-aaaa ao invés de dd/mm/aaaa
Se for isso, não era pra existir problemas, já que isso não interfere na comparação

Jonathan Queiroz · Julho 10, 2009

Foi mal... Era pra ser uma pergunta

Faltou uma interrogação

Não sei se existe uma função correta para fazer essa correção, mas você pode tentar assim:

sData=day(data) & "-" & month(data) & "-" & year(data)

Martinsrj · Julho 10, 2009

Valeu Jonathan pela ajuda e a ideia que me deste. Com o seu código a data fica dessa forma: 10-7-2009

Utilizei uma função interessante, veja o código:

var_data = rsDadosB("data")
' sData=day(var_data) & "-" & month(var_data) & "-" & year(var_data)
Function ConvertDataBanco(var_data)   
    var_data = Right("0"&Day(var_data),2) &"-"& Right("0"&Month(var_data),2) &"-"& Year(var_data)   
    ConvertDataBanco = var_data  
End Function

Abraços.

Foi mal... Era pra ser uma pergunta Faltou uma interrogação Não sei se existe uma função correta para fazer essa correção, mas você pode tentar assim:
sData=day(data) & "-" & month(data) & "-" & year(data)

Jonathan Queiroz · Julho 10, 2009

Vou marcar o tópico como resolvido então !

Mas se já está convertendo as datas da forma de falei pode remover as função right do código

Entrar

(Resolvido) [Erro] Não exibe a imagem...

Pergunta

Martinsrj

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

Martinsrj

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades