<%@LANGUAGE="VBSCRIPT"%> <% Dim calendar__MMColParam calendar__MMColParam = "1" if (Application("now()") <> "") then calendar__MMColParam = Application("now()") %> <% set calendar = Server.CreateObject("ADODB.Recordset") calendar.ActiveConnection = MM_pahull_STRING calendar.Source = "SELECT * FROM calender WHERE calender_date >= now() ORDER BY calender_date ASC" calendar.CursorType = 0 calendar.CursorLocation = 2 calendar.LockType = 3 calendar.Open() calendar_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 calendar_numRows = calendar_numRows + Repeat1__numRows %> P A HULL & Co Chartered Accountants

P A Hull & Co Financial Calendar.

<% If calendar.EOF And calendar.BOF Then %>

No dates have been found.

<% End If ' end calendar.EOF And calendar.BOF %>
Colour Code
 
Corporation Tax  
 
Payroll  
 
Self Assessment
<% Dim thisMonth thisMonth = "" %> <% While ((Repeat1__numRows <> 0) AND (NOT calendar.EOF)) myarray = Split((calendar.Fields.Item("calender_date").Value),"/") If thisMonth <> myarray(1) Then thisMonth = myarray(1) %> <% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 calendar.MoveNext() Wend %>
 
<% If myarray(1) = "01" Then Response.Write("January ") ElseIf myarray(1) = "02" Then Response.Write("February ") ElseIf myarray(1) = "03" Then Response.Write("March ") ElseIf myarray(1) = "04" Then Response.Write("April ") ElseIf myarray(1) = "05" Then Response.Write("May ") ElseIf myarray(1) = "06" Then Response.Write("June ") ElseIf myarray(1) = "07" Then Response.Write("July ") ElseIf myarray(1) = "08" Then Response.Write("August ") ElseIf myarray(1) = "09" Then Response.Write("September ") ElseIf myarray(1) = "10" Then Response.Write("October ") ElseIf myarray(1) = "11" Then Response.Write("November ") ElseIf myarray(1) = "12" Then Response.Write("December ") End If If myarray(2) < 100 Then myarray(2) = "20" & myarray(2) End If %> <%= myarray(2) %>
<%=(calendar.Fields.Item("calender_date").Value)%> ><%=(calendar.Fields.Item("calender_title").Value)%>

 

<% calendar.Close() %>