<%@ Language="VBScript" %> <% Option Explicit %> <% Dim oConnection Dim oRecordset Dim strQryGetNews Dim intCounter Dim errorFlag Dim intRecordCount On Error Resume Next ' create SQL String to get all current news where the current date between start and end dates strQryGetNews = "SELECT A.NewsID, A.Title, A.Summary, A.DateEntered, B.DisplayName " strQryGetNews = strQryGetNews & "FROM News A, AdminUsers B " strQryGetNews = strQryGetNews & "WHERE A.published <> 0 " strQryGetNews = strQryGetNews & "AND A.UserID = B.UserID " strQryGetNews = strQryGetNews & "AND (Now() >= a.StartDate and a.EndDate >= Now() )" strQryGetNews = strQryGetNews & "ORDER BY a.DateEntered Desc " Set oConnection = Server.CreateObject("ADODB.Connection") Set oRecordset = Server.CreateObject("ADODB.RecordSet") oConnection.open g_strDSN oRecordset.ActiveConnection = oConnection oRecordset.Source = strQryGetNews oRecordset.CursorType = adOpenStatic oRecordset.CursorLocation = adUseClient oRecordset.LockType = adLockReadOnly oRecordset.Open intRecordCount = oRecordset.RecordCount %> Ronald McDonald House - Newcastle

What's New...

<% if intRecordCount <> 0 then Response.Write("

") Response.Write("" & oRecordset("Title") & "
") Response.Write("") Response.Write("Posted By:" & oRecordset("DisplayName")) Response.Write(" | Date Posted: " & FormatTheDate(oRecordset("DateEntered"),"%d-%b-%Y") & "
") Response.Write(oRecordset("Summary") & "
") Response.Write("[Read more]") if session("loggedIn") = true then Response.Write(" | [Edit Article]") end if Response.Write("

") else Response.Write("

There is no news available. Try again later

") if session("loggedIn") = true then Response.Write("Click here to administer news.") end if end if %> <% If Err <> 0 Then response.clear() %> <% end if %>

<% ' Close and destroy recordset if oRecordset.state = adStateOpen then oRecordset.Close end if if oConnection.state = adStateOpen then oConnection.Close end if Set oRecordset = nothing Set oConnection = nothing %>