(Resolvido) [ERRO] Registro do campo data repetido...

[Martinsrj]

Ola pessoal, boa noite!

Tenho uma tabela conforme o modelito abaixo:

tab_acoesprojeto  CREATE TABLE `tab_acoesprojeto` (                                                                                
                    `cod_acao` INT(11) NOT NULL AUTO_INCREMENT,                                                                    
                    `cod_dadosprojeto` INT(11) NOT NULL COMMENT 'Campo relacionado ao cod_dados da Tabela tab_dadosprojeto',       
                    `acao` TEXT,                                                                                                   
                    `status` VARCHAR(60) DEFAULT NULL,                                                                             
                    `legenda` VARCHAR(100) DEFAULT NULL,                                                                           
                    `responsavel` VARCHAR(100) DEFAULT NULL,                                                                       
                    `data` DATE DEFAULT NULL,                                                                                      
                    PRIMARY KEY (`cod_acao`,`cod_dadosprojeto`),                                                                   
                    UNIQUE KEY `cod_acao` (`cod_acao`),                                                                            
                    KEY `FK_tab_acoesprojeto` (`cod_dadosprojeto`),                                                                
                    CONSTRAINT `FK_tab_acoesprojeto` FOREIGN KEY (`cod_dadosprojeto`) REFERENCES `tab_dadosprojeto` (`cod_dados`)  
                  ) ENGINE=INNODB AUTO_INCREMENT=10 DEFAULT CHARSET=utf8

Reparei que se eu colocar pra imprimir dessa forma: <%= var_acao %> o laco repete varias vezes, porem com os nomes repetido. A solucao para esse campo e dos demais foi colocar dessa forma: <% = rsDadosB("acao") %>, <% = rsDadosB("status") %>... . Existe um campo onde eu utilizo uma funcao para formatacao da data que esse: <% = (ConvertDataBanco(Date())) %>, porem aparece a mesma data onde não corresponde ao registro. Veja na imagem abaixo o campo data repetido: O inicio do meu codigo esta assim:

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

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")
' 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   
' Response.Write(ConvertDataBanco(Date()))   


'-- 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">

Aqui vem a minha outra parte do codigo:

<%
Do While Not rsDadosB.Eof
%>                  
                      <tr>
                        <td class="tabela_branca"><% = rsDadosB("acao") %> </td>
                        <td height="10" class="tabela_branca"><% = rsDadosB("status") %></td>
                        <td class="tabela_branca"><img border="0" src="<% = rsDadosB("legenda") %>"</td>
                        <td class="tabela_branca"><% = rsDadosB("responsavel") %></td>
                        <td class="tabela_branca"><% = (ConvertDataBanco(Date())) %></td>
                       </tr>
<%
rsDadosB.MoveNext
Loop
rsDadosB.Close
Call FechaConexao
Set rsDadosB = Nothing
%>                        
                 </table>
                                          
            
                    </table>
                   
              <br />
              <br />
            </div></td>

OBS.: não coloquei o codigo todo, mas caso seja necessario e so falar.

Abracos galera!

[Martinsrj]

RESOLVIDO:

<% = (ConvertDataBanco(rsDadosB("data"))) %>