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
%>