ciao a tutti, devo fare uno sxcript visualizzi l'elenco dei mesi e la durata di ogni mese in settimane partendo dal giorno corrente e indicando le settimane del mese che mancano.

dicembre - 2
gennaio - 5
febbraio - 4
marzo - 4
aprile - 4
maggio - 5
ecc...

come posso fare... ho provato a fare qualcosa:
codice:
			  <%
			  conta = 0
			  mese = Month(date)
			  anno = Year(date)
			  giorno = Day(date)
			  DataInizio = CDate(giorno &"/"& mese &"/"& anno)
			  do while conta < 24
  			  DataFine = DateAdd("m", 1, DataInizio)
			  DataFine = DateAdd("d",giorno-(giorno*2)+1,DataFine)
  			  settimane = DateDiff("ww", DataInizio, DataFine)
			  %>
				<td><%= settimane %></td>
			  <%
			  conta = conta + settimane
			  DataInizio = DataFine
			  giorno = "1"
			  loop
			  %>