Es para un scroll de noticias, las ULTIMAS NOTICIAS ingresadas a la base de datos.
me funciona bien em IE pero tengo problemas con Netscape y debe funcar en Netscape.
De pronto lo pueda solucionar con JS, o de alguna manera, que no sé como hacerlo.
Saludos Cordiales
Este es el codigo.
<%
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 noticias.hora DESC;"
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
sTxt = sTxt & sHtml1 & rstCurrent("hora") & " - " & 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 ' Ancho
iHeight = 125 ' Alto
'*********************************
'Aquí está el problema, problemas con netscape
'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>
