<%@ LANGUAGE="VBSCRIPT" %> Labour Holme Valley in the Colne Valley Parliamentary Constituency - news items and press releases

Welcome

Latest News from the Colne Valley Parliamentary Constituency

<% if Request.QueryString("ID")<>"" then GetNewsEntryDetails(Request.QueryString("ID")) else %>

Our News and Press Releases section is updated regularly to provide details of News & Events.
Please select any posting from the list below for further information :

<% GetNewsEntries() %> <% end if %>

 

<% Function GetNewsEntries() intCounter = 0 set Conn=Server.CreateObject("ADODB.Connection") set Cmd=Server.CreateObject("ADODB.Command") set Rst=Server.CreateObject("ADODB.Recordset") 'response.write(strConnectionString) 'response.write("

") Conn.CommandTimeout=40 Conn.ConnectionString = strConnectionString2 Conn.Open Cmd.ActiveConnection = Conn Cmd.CommandType = adCmdText ' 1 = text cmdSQL_select = "SELECT * FROM tbl_News_Items " & _ "WHERE bitActive = TRUE " & _ "ORDER BY datDatePosted DESC" Rst.Open cmdSQL_select, Conn, adOpenDynamic, adLockOptimistic if Not(Rst.EOF) then while NOT(Rst.EOF) intCounter = intCounter + 1 intNoticeID = Rst("cntNoticeID_PK") strNoticeTitle = Rst("strTitle") strNoticeText = Rst("strNotice") datPostDate = FormatDateTime(Rst("datDatePosted"), vbShortDate) strHref = Rst("strHref") DisplayNewsEntryTitle intNoticeID, strNoticeTitle, datPostDate Rst.MoveNext wend else ' no entries ? Response.Write("

There are currently no entries in the Noticeboard section.

") end if Rst.Close set Rst = nothing Conn.Close set Conn = nothing End Function %> <% Function DisplayNewsEntryTitle(intNoticeID, strNoticeTitle, datPostDate) strLinkURL = Trim(strLinkURL) strHTTPUrl = "http://" & strLinkURL %>

 <%=strNoticeTitle%>

    posted : <%=datPostDate%>

<% End Function %> <% Function GetNewsEntryDetails(intID) intCounter = 0 set Conn=Server.CreateObject("ADODB.Connection") set Cmd=Server.CreateObject("ADODB.Command") set Rst=Server.CreateObject("ADODB.Recordset") 'response.write(strConnectionString) 'response.write("

") Conn.CommandTimeout=40 Conn.ConnectionString = strConnectionString2 Conn.Open Cmd.ActiveConnection = Conn Cmd.CommandType = adCmdText ' 1 = text cmdSQL_select = "SELECT * FROM tbl_News_Items " & _ "WHERE cntNoticeID_PK = " & intID & " " & _ "ORDER BY datDatePosted DESC" Rst.Open cmdSQL_select, Conn, adOpenDynamic, adLockOptimistic 'response.write(cmdSQL_select) 'response.write("

") if Not(Rst.EOF) then while NOT(Rst.EOF) intCounter = intCounter + 1 intNoticeID = Rst("cntNoticeID_PK") strNoticeTitle = Rst("strTitle") strNoticeText = Rst("strNotice") datPostDate = FormatDateTime(Rst("datDatePosted"), vbShortDate) strHref = Rst("strHref") strProjectImage = Rst("strImage") 'bitActive = Rst("bitActive") DisplayNewsEntryDetails intNoticeID, strNoticeTitle, strNoticeText, datPostDate, strHref, strProjectImage Rst.MoveNext wend else ' no entries ? Response.Write("
There are currently no entries in the Noticeboard section.") end if Rst.Close set Rst = nothing Conn.Close set Conn = nothing End Function %> <% Function DisplayNewsEntryDetails(intNoticeID, strNoticeTitle, strNoticeText, datPostDate, strLinkURL, strProjectImage) strLinkURL = Trim(strLinkURL) strHTTPUrl = "http://" & strLinkURL %>

 <%=strNoticeTitle%>

   posted : <%=datPostDate%>

<%=strNoticeText%>
<% if strLinkURL <> "" then %>

For more information visit this Related Website :
<%=strLinkURL%>

<% end if %> <% if strProjectImage <> "" then %> <% end if %>

» more News Items …

<% End Function %>