News Now logo

Latest News

<% Set newsRS = Server.CreateObject("ADODB.RecordSet") newsSQL= "Select * FROM tblsailingnews ORDER BY ID DESC LIMIT 5" newsRS.Open newsSQL, whtConn, 1 newsRS.MoveFirst Do while NOT newsRS.EOF Response.Write "

" Response.Write newsRS("Date") Response.Write "

" Response.Write newsRS("Title") Response.Write "

" Response.Write newsRS("Story") Response.Write "
Posted by: " Response.Write newsRS("Author") Response.Write "

" newsRS.MoveNext Loop 'close connections,etc.. newsRS.Close Set newsRS = Nothing %>