Antal dage i en given måned

koder du i VB?

ja

<%
dato = date()
select case month(dato)
case 2
if year(dato) mod 4 = 0 then
if not year(dato) mod 100 = 0 then
response.write "der er 29 dage i denne måned"
else
response.write "der er 28 dage i denne måned"
end if
else
response.write "der er 28 dage i denne måned"
end if


case 1,3,5,7,8,10,12
response.write "der er 31 dage i denne måned"
case 4,6,9,11
response.write "der er 30 dage i denne måned"
case else
response.write "ikke en måned"
end select
%>

noget i denne stil...?