<% Sub Page_Body() If request("ID") <> "" Then sql = "SELECT * FROM news WHERE ID = " & SQLQuotes(request("ID")) & "" Else sql = "SELECT * FROM news WHERE show_article = 1 AND is_bicycle = 0 ORDER BY article_date DESC" End If set rs = server.createobject("adodb.recordset") rs.open sql, conn If rs.eof Then response.write "

Sorry, there are currently no News articles for viewing.

" Exit Sub End If %>

<% If rs("file_path") <> "" Then %>

" border="0"> <% End If %>

<%=rs("title")%>
Source: <%=rs("source")%>
Date: <%= rs("article_date") %>
<% If rs("link") <> "" Then %> Link: " target="blank"><%=rs("link")%>
<% End If %> <% If rs("introduction") <> "" Then response.write "
" & rs("introduction") & "
" %>

<% If rs("text") <> "" Then response.write replace(rs("text"),vbcrlf,"
")%>

<% End Sub %> <% Sub Page_Left() %> <% End Sub %> <% Sub Page_Right() sql = "SELECT * FROM news WHERE is_bicycle = 0 ORDER BY article_date DESC" set rs = server.createobject("adodb.recordset") rs.open sql, conn Do While Not rs.eof %>

"><%= rs("title") %>
<%= rs("article_date") %>

<% rs.movenext Loop End Sub %> <% Function Page_header() Page_header = "" End Function %>