konverter en fed asp kalender til danske dage, måneder, år.

her er den.. http://scripts.ocean12tech.com/asp/calendar/

åhhh jeg har fundet en fed kalender som jeg har lavet om så den passer mig men kan ik finde ud af at konverter den til danske dage, måneder, år.
den køre USA tid tror jeg,  eks.. den 25 er en søndag i kalenderen :o( det er jo en mandag her i danmark.....
så måske en der kunne hjælpe lidt...
her er der lidt kode måske svaret kan findes her??
Tak
BG
<%
navmonth = request.querystring("month")
navyear = request.querystring("year")
If navmonth = "" Then
  navmonth = Month(Date)
End If
If navyear = "" Then
  navyear = Year(Date)
End If
firstday = Weekday(CDate(navmonth & "/" & 1 & "/" & navyear))

leapTestNumbers = navyear / 4
leapTest = (leapTestNumbers) - Round(leapTestNumbers)
If navmonth = 2 Then
  If leapTest <> 0 Then
    lastDate = 28
  Else
    lastDate = 29
  End If
ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then
  lastDate = 30
Else
  lastDate = 31
End If
lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
  lastMonth = 12
  lastYear = lastYear - 1
End If
nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
  nextMonth = 1
  nextYear = nextYear + 1
End If

dateCounter = 1
weekCount = 1
DateEnd = lastDate
DateBegin = firstDate
Weekday_Font = RSBODY("Weekday_Font")
Weekday_Font_Size = RSBODY("Weekday_Font_Size")
Weekday_Font_Color = RSBODY("Weekday_Font_Color")
Weekday_Background_Color = RSBODY("Weekday_Background_Color")
Date_Font = RSBODY("Date_Font")
Date_Font_Size = RSBODY("Date_Font_Size")
Date_Font_Color = RSBODY("Date_Font_Color")
Date_Background_Color = RSBODY("Date_Background_Color")
Event_Font = RSBODY("Event_Font")
Event_Font_Size = RSBODY("Event_Font_Size")
Event_Font_Color = RSBODY("Event_Font_Color")
Cell_Width = RSBODY("Cell_Width")
Cell_Height = RSBODY("Cell_Height")
Cell_Background_Color = RSBODY("Cell_Background_Color")
Border_Size = RSBODY("Border_Size")
Border_Color = RSBODY("Border_Color")
%>