Sea Dreamer News Archive

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 "

Category: " & Request.QueryString("category") & "

" End If newsRS.MoveFirst 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

" newsRS.MoveNext Loop 'close connections,etc.. newsRS.Close Set newsRS = Nothing Response.Write "

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