<% Response.Expires = -1 response.write "" response.write "" response.write "" response.write "" Dim oConn, sConnection Set oConn = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\sites\Single19\mmcgehee\db\nad.mdb;" & _ "Persist Security Info=False" oConn.Open(sConnection) Set rst = oConn.Execute("select * from LR_news order by news_date desc") Do while not rst.EOF response.write "" & _ "" & _ "" & _ "" rst.MoveNext Loop rst.close response.write "
DateArticle title (Link)SourceWhy it's important to you
" & rst("news_date") & "" & rst("headline") & " " & rst("source") & "" & rst("why_iimportant") & "
" %>