codice:
<%
Function GetLunedi(data)
Select Case Weekday(data)
Case 1 : GetLunedi = data - 6
Case 2 : GetLunedi = data
Case 3,4,5,6,7 : GetLunedi = data - Weekday(data) + 2
End Select
End Function
Function GetDomenica(data)
GetDomenica = GetLunedi(data) + 6
End Function
data = #22/03/2001#
Lunedi = GetLunedi(data)
Domenica = GetDomenica(data)
Response.Write("Data Selezionata =" & data & "
Lunedi = " & Lunedi & "
Domenica = " & Domenica)
%>
[EDIT]
con le impostazioni del mio sistema funziona senza problemi , se con te non funzionasse, controlla i parametri facoltativi di weekday che io non ho specificato
[/EDIT]