farveskift på helligdage

her er løsningen:

                        <%    Dim antaldage, startdag, arrDAGE
                            arrDAGE = Array(VbMonday, VbTuesday, VbWednesday, VbThursday, VbFriday, VbSaturday, VbSunday)
                            antaldage = DateAdd("d", -7, (FormatDateTime(Now, vbShortDate)))
                            For i = 0 to 100
                            antaldage = DateAdd("d", 1, antaldage)
                            helligdage = Weekday(antaldage,arrDAGE(l))
                            %>
                            <td class="lodret" style="border:solid 1px #000000; height:90px;" nowrap id="overskrifter" <%if helligdage = 6 or helligdage = 7 then%>bgcolor="#CCCCCC"<%end if%>>
                                <%=antaldage%>
                            </td>
                        <%    next %>