<%@ Language=VBScript %> <% Session.LCID = 2058 %> <% sSQL = "SELECT * FROM gfi_noticias_industria ORDER BY fecha DESC" Set RS = Server.CreateObject("ADODB.Recordset") Set RS = Conn.Execute(sSQL) sHtml1 = "

" sHtml2 = "" sHtml4 = " Más info [>]

" sTxt = " " RS.movefirst Do While Not RS.EOF sTxt = sTxt & sHtml1 & RS("fecha") & " - " & sHtml2 & _ RS("id_noticia") & sHtml3 & RS("titulo_completo") & ". " & sHtml4 RS.MoveNext Loop rs.close set rs = nothing iSpeed = 90 iTop = 0 iLeft = 0 iWidth = 500 iHeight = 89 marco_scroll = "" & sTxt & "" %>

<%=marco_scroll%>