<% Server.MapPath("\DBNoticias\DBNoticias.mdb") Dim oConn,strSQL, objRS Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2,sMarquee Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\DBNoticias\DBNoticias.mdb") strSQL = "SELECT TituloNoticia, TextoNoticia FROM NoticiasValldecamprodom where visible=True Order By Orden " Set objRS = oConn.Execute(strSQL) %> <%Do while not objRS.eof%>

<%=objRS.Fields("TituloNoticia").Value %> <%=objRS.Fields("TextoNoticia").Value %>

<%objRS.movenext%> <%Loop%> <% oConn.Close set objRS = nothing set oConn = nothing %>