Gracias

| |||
Marquesina en ASP Hola.A ver si me podeis echar una mano, tengo un pagina donde he introducido una marquesina que al pasar el raton por encima se pare el texto.Esta marquesina esta echa en javaScript, esta funcion de javascript me la pasaron, la persona que me la paso metia los datos a pelo pero mi problema es sacar estos datos de una base de datos. Gracias ![]() |
| |||
Re: Marquesina en ASP Mira aquí te paso el codigo completo del marquee que utilizo, Espero te sirva de algo. <%' Problemas con Netscape Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, SQL_scroll,sMarquee Dim rstCurrent Set rstCurrent = Server.CreateObject("ADODB.Recordset") SQL_scroll = "SELECT * FROM noticias WHERE fecha = now() ORDER BY hora Desc LIMIT 5" Set rstCurrent = titular.Execute(SQL_scroll) sHtml1 = "<P><font class='tercera3' color='#000000' face='arial' size='1'>" sHtml2 = "<A class = tercera3 color='#000000' face='arial' size='1' HREF='sistema/noticias/ver_noticia.asp?id_noticias=" sHtml3 = "'>" sHtml4 = "</A></FONT></P>" sTxt = "" rstCurrent.movefirst do while not rstCurrent.eof horanoti = rstCurrent("hora") horadisplay = FormatDateTime(horanoti, vbShortTime) sTxt = sTxt & sHtml1 & horadisplay & " - " & sHtml2 & _ rstCurrent("id_noticias") & sHtml3 & rstCurrent("titular") & sHtml4 rstCurrent.movenext loop iSpeed = 55 ' Speed of Marquee (higher = slower) iTop = 0 ' Y Location Within Object iLeft = 0 ' X Location"""" iWidth = 167 ' Width iHeight = 125 ' Height 'Insert marquee into objects innerHtml Property (in this Case a table cell) sMarquee="<MARQUEE onmouseover='this.stop();' " & _ "onmouseout='this.start();'direction='up' scrollamount='1' " & _ "scrolldelay='" & iSpeed & "' top='" & iTop & "' left='" & iLeft & _ "' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>" %> <table> <tr> <td> <%=sMarquee%> </td> </tr> </table> |