Brunel 200 - News Management System
<% if not IsNumeric(show_stories) then show_stories = "999" end if Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path 'showall = request.querystring("showall") showall = "yes" if showall <> "" then strSQL = "SELECT TOP " & show_stories & " expire, id, newsdate, newstitle, newsbody, active, linktitle, linkurl, imageurl from tblnews order by displayorder;" else strSQL = "SELECT TOP " & show_stories & " expire, id, newsdate, newstitle, newsbody, active, linktitle, linkurl,imageurl from tblnews where active = 1 order by displayorder;" end if %>
<%
Set newsRS = Server.CreateObject("ADODB.recordset")
newsRS.Open strSQL, dConn, 1, 3
Do while not newsRS.eof
news_expire = newsRS("expire")
news_id = newsRS("id")
news_dat = newsRS("newsdate")
news_title = newsRS("newstitle")
news_body = newsRS("newsbody")
news_linktitle = newsRS("linktitle")
news_linkurl = newsRS("linkurl")
news_image = newsRS("imageurl")
%>
<% end if %>
<% newsRS.MoveNext loop newsRS.Close Set newsRS = Nothing dconn.close Set dconn = nothing %>
<%=news_title %>
<%=news_dat%>
<% if news_image <> "" then %>
<%= news_body%>
<% if news_linktitle <> "" then %>
<%=news_linktitle%> <% end if response.write "
[edit] [delete]
" %>
<% if news_linktitle <> "" then %>
<%=news_linktitle%> <% end if response.write "
[edit] [delete]
" %>
<% newsRS.MoveNext loop newsRS.Close Set newsRS = Nothing dconn.close Set dconn = nothing %>