Select a news story from our archives, or select one of the categories listed on the left.
<% Set newsRS = Server.CreateObject("ADODB.RecordSet") categoryID = Chr(34) & Request.QueryString("category") & Chr(34) If Request.QueryString("group") = "" Then varLimit = 0 Else VarLimit = Request.QueryString("group") End If If Request.QueryString("category") ="" Then newsSQL= "Select * FROM tblsailingnews ORDER BY ID DESC LIMIT " & varLimit & ",20" Else newsSQL= "Select * FROM tblsailingnews WHERE Category = " & categoryID & " ORDER BY ID DESC LIMIT " & varLimit & ",20" End If newsRS.Open newsSQL, whtConn, 1 If newsRS.EOF Then Response.Write "You have reached the end of the News Archive!
" Else If Request.QueryString("category") <>"" Then Response.Write ""
Do while NOT newsRS.EOF
Response.Write ""
Response.Write newsRS("Date")
Response.Write " "
Response.Write newsRS("Title")
Response.Write "
"
Response.Write Left(newsRS("Story"), 75)
Response.Write "...Read More
" If varLimit > 19 Then backLimit = varLimit-20 If Request.QueryString("category") ="" Then Response.Write "Back " End If varLimit = varLimit + 20 If Request.QueryString("category") ="" Then Response.Write "Next 20" Response.Write "
" End If %>