<% 'Option Explicit %> *** VFMAC 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;" ISQL = "Select * from Images" Set IRS = Conn.Execute(ISQL) SQL = "Select * from PressRelease Where IsHidden <> True order by DatePosted DESC" Set RS = Conn.Execute(SQL) %>
VFMAC

NEWS

" Width="200" Hspace="30" Align="left"> <% If RS("Subject") <> "" Then %>

<% = RS("Subject") %>

<% End If %> <% = left(RS("Content"),292) %>... ">(more) <% RS.Movenext %>

" Width="200" Hspace="30" Align="left"> <% If RS("Subject") <> "" Then %>

<% = RS("Subject") %>

<% End If %> <% = left(RS("Content"),202) %>... ">(more) <% RS.Movenext %>

" Width="200" Hspace="30" Align="left"> <% If RS("Subject") <> "" Then %>

<% = RS("Subject") %>

<% End If %> <% = left(RS("Content"),256) %>... ">(more) <% RS.Movenext %>

" Width="200" Hspace="30" Align="left"> <% If RS("Subject") <> "" Then %>

<% = RS("Subject") %>

<% End If %> <% = left(RS("Content"),268) %>... ">(more) <% RS.Movenext %>

Have a News story for us? Use the link below to "Submit a News Story."

News & Events Navigation
Calendar | News | News Archives | The Forge Magazine |
Chapel Speaker Schedule | Submit a News Story