Marquesina en ASP

[dajacevit]

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>