Kalender?

Jeg har en kalender side med kalender for et år frem se koden her nedderst...
Jeg ønsker nu at man skal kunne trykke på datoen alle mandage hele året igennem, og dette skal så være en link til en anden side, men hvordan får jeg den til at finde ud af hvilke af dagene der er lørdage?

På forhånd TAK for hjælpen :-)

<%
dtmDate = Date

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)

%>

<div align="center"><center>

<table cellspacing="0" cellpadding="2" border="0" valign="top">

<%
sub mddr
  intFirstDay = 1
  Response.Write "<tr>"
  Response.Write "<td>" & MonthName(Month(dtmDate)) & " " & Year(dtmDate) & "</td>"
  Response.Write "<td width=10></td>"
  For y = 1 to 2
      If blnLast <> True Then
        For x = 1 to 31
            intLoopDay = intLoopDay + 1
              dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                  if dtmCurDate =< date then
                      Response.Write "<td align=center width=17 bgcolor='#C0C0C0'><font face=verdana size=2>" & Day(dtmCurDate) & "</td></font>"
                    Else
'                      if dag reserveret i databasen =< date then
'                        Response.Write "<td align=center width=17 bgcolor='#FF0000'><font face=verdana size=2>" & Day(dtmCurDate) & "</td></font>"
'                        Else
                        Response.Write "<td align=center width=17 bgcolor='#00FF00'><font face=verdana size=2>" & Day(dtmCurDate) & "</td></font>"
'                      end if
                  end if
                  blnLast = False
                Else
                    blnLast = True
                End If
        Next
      End If
  Next
  Response.Write "</tr>"
  dtmDate = DateAdd("m",1,dtmFirstDate)
  dtmToday = Date
  dtmDate = CDate(dtmDate)
  intYear = Year(dtmDate)
  strMonth = MonthName(Month(dtmDate))
  intDayOfMonth = Day(dtmDate)
  dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
  intFirstDay = Weekday(dtmFirstDate, vbMonday)
  blnLast = False
  intFirstDay = 1
end sub


For q = 1 to 12
  call mddr
Next
%>