Månedsoversigt med ugenr.?

Prøv med:

Start = 1
For i = 1 To 12
  Response.Write MonthName(i) & " " & Start & " - " & Start + 3 & "<br>"
  Start = Start + 4
Next

for f=1 to 12
  response.write monthName(f) &" "
  response.write datePart("ww",dateserial(2004,f,1)) &" - "
  response.write datePart("ww",dateserial(2004,f+1,0)) &"<br>"
next

... Der manglede lige vbMonday og vbFirstFourDays på funktionen

for f=1 to 12
  response.write monthName(f) &" "
  response.write datePart("ww",dateserial(2004,f,1),vbMonday,vbFirstFourDays) &" - "
  response.write datePart("ww",dateserial(2004,f+1,0),vbMonday,vbFirstFourDays) &"<br>"
next

Er det korrekt at fennecs tager ugenumrene fra kalenderen, mens netros finder dem manuelt?

I så fald er det fennecs der er den rigtige :)

Min finder ikke ugenumre.

Du skal bare være opmærksom på at der er en bug i funktionen. Den kan finde uge 53, selv om det er uge 1. Det er altså kun den sidste uge, der kan være problemer med, og kun hvis andre betingelser også er opfyldt. Der findes et workarround, men nu kan jeg selvfølgelig ikke huske hvor (på MSDN et eller andet sted).