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
Trådstart#1
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\> Vecka Nr:" & Vecka + i & " \</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
__