|
|
 |
<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
Dim FontFace
Dim NewsDate
Dim NewsLink
Dim SplitArray
Dim DateArray
FontFace = "Arial,Helvetica,SansSerif,Sans"
' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))
' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files. If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
' strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
strCountFileName = (Server.MapPath(CNewsDir & "/index"))
' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
Do Until objCountFile.AtEndOfStream
iCount = objCountFile.ReadLine
SplitArray = split(iCount, "|",4)
If Ubound(SplitArray)>1 Then
NewsLink = SplitArray(0)
DateArray = split(SplitArray(1), ".", 3)
If Ubound(DateArray) = 2 Then
SELECT CASE DateArray(0)
CASE "1"
NewsDate = "January " & DateArray(1) & ", " & DateArray(2)
CASE "2"
NewsDate = "February " & DateArray(1) & ", " & DateArray(2)
CASE "3"
NewsDate = "March " & DateArray(1) & ", " & DateArray(2)
CASE "4"
NewsDate = "April " & DateArray(1) & ", " & DateArray(2)
CASE "5"
NewsDate = "May " & DateArray(1) & ", " & DateArray(2)
CASE "6"
NewsDate = "June " & DateArray(1) & ", " & DateArray(2)
CASE "7"
NewsDate = "July " & DateArray(1) & ", " & DateArray(2)
CASE "8"
NewsDate = "August " & DateArray(1) & ", " & DateArray(2)
CASE "9"
NewsDate = "September " & DateArray(1) & ", " & SplitArray(2)
CASE "10"
NewsDate = "October " & DateArray(1) & ", " & DateArray(2)
CASE "11"
NewsDate = "November " & DateArray(1) & ", " & DateArray(2)
CASE "12"
NewsDate = "December " & DateArray(1) & ", " & DateArray(2)
CASE ELSE
NewsDate = SplitArray(1)
END SELECT
Else
NewsDate = SplitArray(1)
End If
Response.Write ("")
Response.Write (SplitArray(3) & "
")
Response.Write ("")
If Ubound(SplitArray) > 2 Then
If SplitArray(3) <> "" Then
Response.Write(SplitArray(2) & " - ")
End If
End If
Response.Write ("" & NewsDate & "
")
End If
Loop
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
%>
Observations to the Twelfth Report of the Standing Senate Committee on
Energy, the Environment and Natural Resources (This report concerned Bill C-33, which will the Regulate the content of biofuels in gasoline, diesel fuel and heating oil)
-
June 26, 2008
Observations to the Eleventh Report of the Standing Senate Committee on
Energy, the Environment and Natural Resources
(This report concerned Bill C-474, the development and implementation of a National Sustainable Development Strategy)
-
June 26, 2008
Senate Committee Reports that much more needs to be done to implement and enforce the Canada Envirnomental Protection Act effectively
-
March 4, 2008
Senate Committee Reports on The Tackling Violent Crime Act, Bill C-2
-
February 27, 2008
Senate Committee Reports on Non-Derogation Clauses
-
December 13, 2007
Senate Committee Reports on Senate Tenure Legislation
-
June 12, 2007
Senator Milne Increases Accountability by Introducing Bill S-223
-
March 1, 2007
Environment Minister Skips Out on Senate Committee
- November
7, 2006
Liberals Decry Fisheries Minister’s Irresponsible Response to
European Parliament Seal Hunt Declaration
- September
7, 2006
Liberal Senators defeat Conservative plans to limit accountability
hearings
- September
6, 2006
Canada-Europe Parliamentary Association to Host Ottawa Conference
- October
20, 2005
Government introduces bill to release Historic Census Records
- November
3, 2004
Cancer Findings in Rural Ontario
- July 11,
2003
Post 1901 Census Bill Announcement Press Release
Press Release -
October 3, 2002
National Post Supports Release of Historic Census Records
- March 13,
2002
Stats Can is Breaking the Law
- October
29, 2001
Industrial hemp production legalized
Health Canada -
March 13, 1998 |
