<%@ Language=VBScript %> Order Papers of Dail Éireann and Seanad Éireann <% ' Function to check if a file exists Function Exists(sFileName) Dim FS Set FS = Server.CreateObject("Scripting.FileSystemObject") if FS.FileExists(sFileName) then Exists = true else Exists = false end if set FS = Nothing end function ' Function to output 1 digit number with leading zero function TwoNumStr(aNum) if aNum < 10 then TwoNumStr = "0" & aNum else TwoNumStr = trim(aNum) end if end function ' Function to Format the date in European style function NiceDate(aDate) ' FM 4-Nov-2004 if not isdate(adate) then NiceDate = "" else NiceDate = Day(aDate) & "-" & Monthname(Month(aDate),true) & "-" & Year(aDate) end if end function %>

Oireachtas home page

Order Papers of Dáil Éireann and Seanad Éireann

Experimental Publication of Order Papers.
Order papers are published on the sitting day.

<% ' ASP Code to display links to relevant documents aDate = Now() DateStr = request("Date") if Len(DateStr) = 8 then if isdate(right(DateStr,2) & "/" & mid(DateStr,5,2) & "/" & Left(DateStr,4)) then aDate = dateserial(Left(DateStr,4),mid(DateStr,5,2),right(DateStr,2)) end if end if While WeekDay(aDate) <> 1 aDate = DateAdd("d",-1, aDate) wend sDate = aDate ' Remember Start Date GrandTotal = 0 for i = 0 to 6 ' for each day in week DTotalQ = 0 DTotalA = 0 STotal = 0 ' Setup root names QName = trim(MonthName(Month(ADate),true)) & TwoNumStr((Year(ADate) - 2000)) & "/Questions/pq" 'Jun03/Questions/pq QName = QName & TwoNumStr(day(aDate)) & TwoNumStr(Month(ADate)) & TwoNumStr((Year(ADate) - 2000)) '010603 AName = trim(MonthName(Month(ADate),true)) & TwoNumStr((Year(ADate) - 2000)) & "/Business/op" 'Jun03/Business/op AName = AName & TwoNumStr(day(aDate)) & TwoNumStr(Month(ADate)) & TwoNumStr((Year(ADate) - 2000)) '010603 SName = trim(MonthName(Month(ADate),true)) & TwoNumStr((Year(ADate) - 2000)) & "/Seanad/op" 'Jun03/Seanad/op SName = SName & TwoNumStr(day(aDate)) & TwoNumStr(Month(ADate)) & TwoNumStr((Year(ADate) - 2000)) '010603 SName = SName & "s" ' Count htm, doc, rtf & pdf files ' Dail Questions fName = server.MapPath(QName & ".htm") if exists(fName) then DTotalQ = DTotalQ + 1 end if fName = server.MapPath(QName & ".doc") if exists(fName) then DTotalQ = DTotalQ + 1 end if fName = server.MapPath(QName & ".rtf") if exists(fName) then DTotalQ = DTotalQ + 1 end if fName = server.MapPath(QName & ".pdf") if exists(fName) then DTotalQ = DTotalQ + 1 end if ' Dail Answers fName = server.MapPath(AName & ".htm") if exists(fName) then DTotalA = DTotalA + 1 end if fName = server.MapPath(AName & ".doc") if exists(fName) then DTotalA = DTotalA + 1 end if fName = server.MapPath(AName & ".rtf") if exists(fName) then DTotalA = DTotalA + 1 end if fName = server.MapPath(AName & ".pdf") if exists(fName) then DTotalA = DTotalA + 1 end if ' Seanad fName = server.MapPath(SName & ".htm") if exists(fName) then STotal = STotal + 1 end if fName = server.MapPath(SName & ".doc") if exists(fName) then STotal = STotal + 1 end if fName = server.MapPath(SName & ".rtf") if exists(fName) then STotal = STotal + 1 end if fName = server.MapPath(SName & ".pdf") if exists(fName) then STotal = STotal + 1 end if ' Display results if DTotalQ + DTotalA + STotal > 0 then ' if anything for day GrandTotal = GrandTotal + DTotalQ + DTotalA + STotal response.write "

  • " response.write WeekdayName(WeekDay(aDate),false) & " " & twonumstr(day(adate)) & " " response.write monthname(month(adate)) & " " & Year(adate) response.write "

    • " if DTotalQ + DTotalA > 0 then ' If anything for Dail response.write "
    • " response.write "Dáil Éireann" response.write "
      • " response.write "
        " ' Start QA if DTotalA > 0 then ' If any Order Paper response.write "
      • " if Exists(server.MapPath(AName & ".htm")) then ' html exists response.write "Order Paper" else response.write "Order Paper" end if if Exists(server.MapPath(AName & ".pdf")) then ' Link to pdf document response.write " " response.write "" end if if Exists(server.MapPath(AName & ".doc")) then ' Link to word document response.write " " response.write "" end if if Exists(server.MapPath(AName & ".rtf")) then ' Link to rtf document response.write " " response.write "" end if response.write "
        • " end if if DTotalQ > 0 then ' If any Questions response.write "
      • " if Exists(server.MapPath(QName & ".htm")) then ' html exists do link response.write "Questions" else ' No html, just display text response.write "Questions" end if if Exists(server.MapPath(QName & ".pdf")) then ' Link to pdf document response.write " " response.write "" end if if Exists(server.MapPath(QName & ".doc")) then ' Link to word document response.write " " response.write "" end if if Exists(server.MapPath(QName & ".rtf")) then ' Link to rtf document response.write " " response.write "" end if response.write "
        • " end if response.write "
      " ' End QA response.write "
    " ' Finish Dáil end if if STotal > 0 then ' If anything for Seanad response.write "
    • " response.write "Seanad Éireann" response.write "
      • " response.write "
      • " if Exists(server.MapPath(SName & ".htm")) then ' html exists response.write "Order Paper" else response.write "Order Paper" end if if Exists(server.MapPath(SName & ".pdf")) then ' Link to pdf document response.write " " response.write "" end if if Exists(server.MapPath(SName & ".doc")) then ' Link to Word document response.write " " response.write "" end if if Exists(server.MapPath(SName & ".rtf")) then ' Link to rtf document response.write " " response.write "" end if response.write "
      " response.write "
    " ' Finish Seanad end if response.write "
" ' Finish Day end if aDate = DateAdd("d", 1, aDate) ' Next Day next if GrandTotal = 0 then ' Message for none found response.write "

  • " response.write "Nothing found for the period " response.write NiceDate(sDate) response.write " to " & NiceDate(aDate) response.write "

" end if %>

Enter a date and click Find to view a particular week

Date
Month
Year
 

    

This is an experimental Web publication of the Order Papers of Dáil Éireann and Seanad Éireann. Order Papers are only available the evening before the sitting day, after the adjournment of the house (if the house was sitting that day). As this is an experimental publication, the formatting may not be totally accurate, and some characters may appear incorrectly.

Note: The Order paper pages for a sitting day will appear blank until after the House has adjourned the previous day. In order to see the order paper, you may need to refresh the order paper page on the sitting day. Occasionally, an order paper may not be available until the morning of a sitting day. Supplementary order papers may be issued on occasion.

The Government Minister taking oral questions on any sitting day is also indicated. The Taoiseach takes oral questions on Tuesdays and Wednesdays.

The Questions Paper is produced by the Questions Office, the Dáil Order Paper is produced by the Journal Office, the Seanad Order paper is produced by the Seanad Office, and the lists of documents laid before the Dáil and Seanad are produced by the Library of the Houses of the Oireachtas.

Comments on this experimental publication are welcome. Contact the eDemocracy Unit at webmaster@oireachtas.ie

See also This Week in the Houses of the Oireachtas.

Note: in the Order paper, (a) before a Bill title indicates that amendments to the Bill were received, that is, (a) means amendments or in Irish (l) means leasuithe.

Note: in the Questions paper, * before the question number means question for written answer.


Oireachtas home pageContact Page

HomeSearchHelpInformation on IrelandLinks