<% ' Obtenemos las noticias en el lenguahe correcto ' Abrimos la conexión Set oSession = Server.CreateObject("ADODB.Connection") oSession.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("news.mdb")&";Persist Security Info=False" oSession.Open sql = "SELECT * FROM Noticias where idIdioma = " & Session("LID") Set rsNews = oSession.Execute(sql) %>

	<% Do While not rsNews.eof %> <% rsNews.MoveNext Loop %> ><%=rsNews("Titulo")%> <%=rsNews("DescLarga")%>