<% If Request.QueryString("storyid") = "" Then response.redirect "our-news.asp" End If %> <% Set dataRS = Server.CreateObject("ADODB.RecordSet") pageID= Chr(34) & Request.QueryString("storyid") & Chr(34) dataSQL= "Select * FROM tblsailingnews WHERE ID =" & pageID & "LIMIT 1;" dataRS.Open dataSQL, whtConn, 1 %> <% Response.Write dataRS("Title") %>


<% Response.Write "

" Response.Write dataRS("Title") Response.Write "

" Response.Write dataRS("Date") Response.Write "

" Response.Write dataRS("Story") Response.Write "

Posted by: " Author = dataRS("Author") If Author = "Helen" Then Response.Write "Helen --- http://www.helenmackenzie.co.uk" Else If Author = "PR" Then Response.Write "Helen" Else Response.Write dataRS("Author") End If Response.Write "

" relatedID = Chr(34) & dataRS("Category") & Chr(34) 'close connections,etc.. dataRS.Close Set dataRS = Nothing Response.Write "

" Set relatedRS = Server.CreateObject("ADODB.RecordSet") relatedSQL= "Select * FROM tblsailingnews WHERE Category = " & relatedID & " ORDER BY ID DESC LIMIT 1,5" relatedRS.Open relatedSQL, whtConn, 1 Response.Write "

Related Stories

" Do while NOT relatedRS.EOF Response.Write "" Response.Write relatedRS("Date") Response.Write "  " Response.Write relatedRS("Title") Response.Write "
" relatedRS.MoveNext Loop 'close connections,etc.. relatedRS.Close Set relatedRS = Nothing %>

Send us your news stories. E-mail them to: mail@sea-dreamer.com