3 replies to this topic

[Piano]

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

[Renan L. Queiroz]

Tenta usar o response.write desta forma:

<% 
    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
%>
        <tr onmouseover="this.bgcolor=gold" onmouseout="this.bgColor='#FFFFFF'" >
            <td align="center"> <%=tabela("Codigo")%> </td>
            <td> <%=tabela("Empresa")%> </td>
            <td align="center"> <%=tabela("Receptor")%> </td>
            <td> <%=tabela("Assunto")%> </td>
            <td align="center"> <%=tabela("Data")%> </td>
            <td align="center"> <%=tabela("Pasta")%> </td>
            <td> <%=tabela("Por")%> </td>
            <td align="center">
                <a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Editar Registro' border="0" src="images\editar.gif" />
                </a>
            </td>
            <td align="center">
                <a href='excluir_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Excluir Registro' border="0" src="images\excluir.gif" />
                </a>
            </td>
        </tr>
<%
        tabela.movenext
    Wend
%>

Caso desconheça a forma simplicicada <%= é igual a <% response.write!

Ah percebi algumas </td> faltando e coloquei a impressão dos dados dessa para
evitar problemas com as áspas dentro da string a serem impressas.
Veja se isso ajuda!

Edição feita por: Renan L. Queiroz, 19/02/2010, 16:11.

[Piano]

Olá,

Muito obrigado pelas dicas, realmente não sabia haha

Todos os dados são exibidos corretamente, mas continua sem funcionar onMouserOver/out.
O que será?

[Renan L. Queiroz]

Tenta fazer assim:

onmouseover="this.style.bgcolor='gold'"

Edição feita por: Renan L. Queiroz, 22/02/2010, 11:39.