Kan man tilføje årstal til dette script

Hej

Jeg har dette gode stykke kode, som viser indholdet i en database sorteret efter måned.
november
Her kommer data for den måned

december
Her kommer data for den måned

Er det muligt at ændre så det i steder står:
November 2006

December 2007

Kode:
<%
function ugedag(Wstreng)
    if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "sø"
elseif Wstreng = 2 then
Wstreng = "ma"
elseif Wstreng = 3 then
Wstreng = "ti"
elseif Wstreng = 4 then
Wstreng = "on"
elseif Wstreng = 5 then
Wstreng = "to"
elseif Wstreng = 6 then
Wstreng = "fr"
elseif Wstreng = 7 then
Wstreng = "lø"
end if
ugedag = Wstreng & " " & day(tid) & "/" & month(tid)
' ugedag = Wstreng & " " & day(tid)

    else
ugedag = ""
    end if
end function
session.lcid = 1030
strSQL = "Select * from calender order by opstart"
' strSQL = "Select * from calender where opstart >= #" &date()&"# order by opstart"
set calender = Conn.Execute(strSQL)
do while not calender.eof
if month(calender("opstart")) <> nuvmd then
response.write "<tr><td colspan = ""3"" class=""menutextbold"">" & monthname(month(calender("opstart"))) &"</td></tr>"
' response.write "<tr><td colspan = ""3"">" & monthname(month(calender("opstart"))) &"</td></tr>"
nuvmd = month(calender("opstart"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>