Veckonummer i kalender

Jag har fått ett dumt problem som jag inte ser lösningen på.
Jag har "rättat" ut en kalender, så att man ser månaden i en rak följd, för att man skall kunna få in veckonumren ovanför.
Veckonumren tar jag fram så här:
vecka = DatePart("ww",dFirstDay,2,2)
Inga problem.
Sen delar jag in den "raka" kalenden i 5 bitar (kan ju vara så att det finns 5 veckor i månaden(nästan) eller att datumet kommer mitt i veckan)

Dim i

FOR i = 1 TO 5
Response.Write "\<TD  colspan=7   WIDTH=""100%"" ALIGN=CENTER\>"

IF Vecka  + i = DatePart("ww",Date(),2,2)  THEN

 Response.Write "\<FONT COLOR=""#000080"" size= 2 TITLE="" Aktuell vecka"" CLASS='vitText'\>\<B\>&nbsp;Vecka Nr:" & Vecka + i & "&nbsp;\</B\>\</FONT\>\</TD\>"
ELSE
Response.Write "\<FONT SIZE=2\>Vecka Nr: " & Vecka + i & "\</FONT\>\</TD\>"
End If
Next

Response.Write "</TR>"
DVS, att jag vill att den aktuella veckan skall få CLASS vitText.

Någonstans så missar jag, men jag ser inte hur, någon?

__
Benni
saw@songer.com www.saw.songer.com
__

------------------
__
saw@songer.com
www.saw.songer.com
__

Skall du inte bara ha "i" i if-satsen?

IF i = Cint(DatePart("ww",Date(),2,2)) THEN

Eller så kan jag ha missupfattat det hela.... då kan du bara testa att sätta Cint på datumet... så att datatypen stämmer överens med i:s...

Mvh, Vide

------------------
Jourhavande @e SweQuake.com

Tack för hjälpen, men det skulle visst vara så här:
if cint(vecka) + cint(i) = DatePart("ww",Date(),2,2) then

Nu fungerar den kanon.

------------------
saw
__
saw@songer.com
www.saw.songer.com
__