come o dove posso trovare qualche tutorial o script per fare un calendario settimanale?

con questo trovo il numero di settimana.
codice:
<%
function settimane()
dim dtAnno
dtAnno = datepart("yyyy",now())
settimane = "Settima dell'anno numero : "
settimane = settimane & dateDiff("ww","1/1/"&dtAnno,now() ) + 1
end function
%>
<% 
response.write settimane()
%>
come posso estrapolare la data dal numero si settimana?