<% Set Conntemp = Server.CreateObject("ADODB.Connection") dbPath = Server.Mappath("/db/noticias.mdb") Conntemp.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath sql="select * from news order by date desc" set rsnews = conntemp.execute(sql)%> Sport Transfers
 
   
 
 
 
 




<%do while not rsnews.eof%> <%rsnews.movenext loop%>
" class="bodystyle">


" class="bodystyle"> <%=rsnews("title")%>
<% texto = rsnews("text") texto2 = mid(texto, 1, 165) response.Write(texto2) %> ... " class="reserveLink">más información
" class="bodystyle"><%=rsnews("resumen")%>