Mostrar semana del año

[AlZuwaga]

Hola, fijate éste código:

Código:

<% 
    today = Date() 
 
    thisMonth = month(today) 
    thisDay = day(today) 
    refd = today + 1 - thisDay 
 
    response.write "Today:<br>" 
    response.write today & "<br>" 
    response.write "(" & fdate(today) & ")" 
 
    response.write "<p>First day of last year:<br>" 
    fdly = dateadd("yyyy", -1, dateadd("m", 1-thisMonth, refd))  
    response.write fdly & "<br>" 
    response.write "(" & fdate(fdly) & ")" 
 
    response.write "<p>Last day of last year:<br>" 
    ldly = dateadd("m", 1-thisMonth, refd) - 1 
    response.write ldly & "<br>" 
    response.write "(" & fdate(ldly) & ")" 
 
    response.write "<p>First day of this year:<br>" 
    fdty = dateadd("m", 1-thisMonth, refd) 
    response.write fdty & "<br>" 
    response.write "(" & fdate(fdty) & ")" 
 
    response.write "<p>Last day of this year:<br>" 
    ldty = dateadd("yyyy", 1, dateadd("m", 1-thisMonth, refd)) - 1 
    response.write ldty & "<br>" 
    response.write "(" & fdate(ldty) & ")" 
 
    response.write "<p>First day of next year:<br>" 
    fdny = dateadd("yyyy", 1, dateadd("m", 1-thisMonth, refd)) 
    response.write fdny & "<br>" 
    response.write "(" & fdate(fdny) & ")" 
 
    response.write "<p>Last day of next year:<br>" 
    ldny = dateadd("yyyy", 2, dateadd("m", 1-thisMonth, refd)) - 1 
    response.write ldny & "<br>" 
    response.write "(" & fdate(ldny) & ")" 
 
    response.write "<p>First day of last month:<br>" 
    fdlm = dateadd("m", -1, refd) 
    response.write fdlm & "<br>" 
    response.write "(" & fdate(fdlm) & ")" 
 
    response.write "<p>Last day of last month:<br>" 
    ldlm = refd - 1 
    response.write ldlm & "<br>" 
    response.write "(" & fdate(ldlm) & ")" 
 
    response.write "<p>Number of days in last month:<br>" 
    numdlm = day(refd - 1) 
    response.write numdlm & "<br>" 
 
    response.write "<p>First day of this month:<br>" 
    fdtm = refd 
    response.write fdtm & "<br>" 
    response.write "(" & fdate(ldny) & ")" 
 
    response.write "<p>Last day of this month:<br>" 
    ldtm = dateadd("m", 1, refd) - 1 
    response.write ldtm & "<br>" 
    response.write "(" & fdate(ldtm) & ")" 
 
    response.write "<p>Number of days in this month:<br>" 
    numdtm = day(dateadd("m", 1, refd) - 1) 
    response.write numdtm & "<br>" 
 
    response.write "<p>First day of next month:<br>" 
    fdnm = dateadd("m", 1, refd) 
    response.write fdnm & "<br>" 
    response.write "(" & fdate(fdnm) & ")" 
 
    response.write "<p>Last day of next month:<br>" 
    ldnm = dateadd("m", 2, refd) - 1 
    response.write ldnm & "<br>" 
    response.write "(" & fdate(ldnm) & ")" 
 
    response.write "<p>Number of days in next month:<br>" 
    numdnm = day(dateadd("m", 2, refd) - 1) 
    response.write numdnm & "<br>" 
 
    function fdate(dt) 
        fdate = formatdatetime(dt, 1) 
    end function 
%>

Lo saqué de aspfaq.com.

Saludos