News
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" &server.mappath("db/vfmac.mdb")& ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;User Id=admin;" SQL = "Select * from PressRelease Order by DatePosted DESC" Set RS = Conn.Execute(SQL) %> <% Do While Not RS.EOF %> "><% = RS("Subject") %> - <% = RS("DatePosted") %>

<% RS.movenext Loop RS.Close Set RS = nothing Conn.Close Set Conn = nothing %>