Nyheter Kallblodsklassikern http://www.kallblodsklassikern.se <% '�a databasen Set Databas = Server.CreateObject( "Adodb.Connection" ) Databas.Provider = "Microsoft.Jet.OLEDB.4.0" MdbFilePath = Server.MapPath("db\theDB.mdb") Databas.ConnectionString = "Data Source='" & MdbFilePath & "'" Databas.open Set RecSet = Databas.Execute("SELECT TOP 5 * FROM theTable WHERE theType='news' ORDER BY theDate DESC") If Not RecSet.Eof Then Do until RecSet.Eof %> http://www.kallblodsklassikern.se/viewNews.asp?id=<%=RecSet("theID")%> <%=Left(RecSet("theText"),200)%>... <% RecSet.MoveNext Loop End If RecSet.Close : Set RecSet = Nothing Databas.Close set Databas = nothing 'st㭧er databasen f�ela sidan %>