%@ language='vbscript' %> <% Set conn = Server.CreateObject("ADODB.Connection") Set rs = server.createobject("ADODB.RecordSet") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/QuickNews.mdb") rs.open "SELECT ArticleID, ArticleName, ArticleActive FROM tblQNArticles WHERE (((tblQNArticles.ArticleActive) Between Now() And (Now()-30))) ORDER BY ArticleActive DESC;", conn, 3, 3 %>
|
|||||||||||||
|
|
|
||||||||||||