Buenos días, estoy trabajando en código con scroll para noticias en forma horizontal, lo tengo configurado para que solo muestre en este scroll las noticias correspondientes a la última fecha, verticamente funciona bien porque los muestra todos, uno tras otro, pero horizaontalmente los muestra también todos pero al mismo tiempo, este es el código, espero que alguien pueda ayuradme y de una vez gracias.
<%
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee
Dim conCurrent
Dim rstCurrent
Set conCurrent = CreateObject("ADODB.Connection")
Set rstCurrent = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 1 * FROM noticias ORDER BY fecha DESC"
Set rstCurrent = conCurrent.Execute(strSQL)
sHtml1 = "<P><FONT SIZE='-1' COLOR='Black'>"
sHtml2 = "<A HREF='../../masnoticia.asp?noti="
sHtml3 = "'>"
sHtml4 = "</A></FONT></P>"
sTxt = ""
rstCurrent.movefirst
do while not rstCurrent.eof
sTxt = sTxt & sHtml1 & rstCurrent("fecha") & " - " & sHtml2 & _
rstCurrent("id") & sHtml3 & rstCurrent("titulo") & sHtml4
rstCurrent.movenext
loop
iSpeed = 1
iTop = 0
iLeft = 0
iWidth = 600
iHeight =30
sMarquee="<MARQUEE onmouseover='this.stop();' " & _
"onmouseout='this.start();'direction=' left ' scrollamount='1' " & _
"scrolldelay='" & iSpeed & "' top='" & iTop & "' left='" & iLeft & _
"' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>"
conCurrent.close
set conCurrent = Nothing
%>
<%=sMarquee%>