scroll horizontal

[Cameron_2006]

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

[JuanRAPerez]

ummm
tu pregunta creo que no esta relacionada con programacion ASP dado que si se hace de una forma mas no asi de otra

un moderador evaluara tu duda y probablemente te meuvan al foro correspondiente

suerte