<% set conexao=server.CreateObject("Adodb.connection") set tabela=server.CreateObject("Adodb.recordset") dim banco banco="driver={driver do microsoft access (*.mdb)}; dbq="& server.MapPath ("bancod.mdb") conexao.open banco dim sql, ano ano = Year(now) sql="SELECT * FROM cartas WHERE Data LIKE '%" & ano & "%' ORDER BY codigo DESC" tabela.open sql,conexao,3,3 SetLocale("pt-br") while not tabela.eof response.write "<tr onMouseOver=""this.bgcolor=gold"" onmouseout=""this.bgColor='#FFFFFF'"" >" response.write("<td align=center>" & tabela("Codigo")) response.Write("<td>" & tabela("Empresa")) response.Write("<td align=center>" & tabela("Receptor")) response.Write("<td>" & tabela("Assunto")) response.Write("<td align=center>" & tabela("Data")) response.Write("<td align=center>" & tabela("Pasta")) response.Write("<td>" & tabela("Por")) response.Write("<td align=center><a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'><img alt='Editar Registro' border=0 src=images\editar.gif></a></td>") response.Write("<td align=center><a href='excluir_cartas.asp?codigo=" & tabela("codigo") &"'><img alt='Excluir Registro' border=0 src=images\excluir.gif></a></td>") tabela.movenext response.Write("</tr>") wend %>
onMouseOver e onMouseOut não funcionam, o que fazer?
Obrigado.