Jump to content


Photo

Javascript No Asp


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

#1 Piano

Piano

    Novato no fórum

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

Posted 19/02/2010, 15:45

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

#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 19/02/2010, 16:08

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.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 Piano

Piano

    Novato no fórum

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

Posted 19/02/2010, 16:24

Olá,

Muito obrigado pelas dicas, realmente não sabia haha

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

#4 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 22/02/2010, 10:30

Tenta fazer assim:
onmouseover="this.style.bgcolor='gold'"

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

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image





0 user(s) are reading this topic

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

IPB Skin By Virteq