04. januar 2006 - 03:19
Der er
1 løsning
farveskift på helligdage
Hey E
hvordan ændre jeg baggrundsfarve på helligdage?
min kode ser således ud nu:
<% Dim antaldage, startdag
helligdage = Weekday(Now,VbMonday)
antaldage = DateAdd("d", -7, (FormatDateTime(Now, vbShortDate)))
For i = 0 to 100
antaldage = DateAdd("d", 1, antaldage)
%>
<td class="lodret" style="border:solid 1px #000000; height:90px;" nowrap id="overskrifter" <%if helligdage = 6 or helligdage = 7 then%>bgcolor="#FF66FF"<%end if%>>
<%=antaldage%>
</td>
<% next %>
04. januar 2006 - 09:59
#1
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 %>
