<%@ Language="VbScript" %>
<% Option Explicit%>
<%
'Dichiarazione variabili e scopo
Dim dDataOdierna
Dim iGiornoSettimana
Dim dDataConsegna

dDataOdierna = Now()
Response.write ("La data odierna è: " & dDataOdierna)

'Iniziamo ad aggiungere 15 giorni alla data odierna
dDataConsegna = DateAdd("d",15,dDataOdierna)

Response.write ("<BR>La data tra 15 giorni sarà: " & dDataConsegna)

'Memorizziamo in una variabile il numero del giorno della settimana che sarà tra 15 giorni da oggi
'1 LUNEDI'
'2 MARTEDI'
'3 MERCOLEDI'
'4 GIOVEDI'
'5 VENERDI'
'6 SABATO
'7 DOMENICA

iGiornoSettimana = datePart("w",dDataConsegna,2)
Response.write ("<BR>Il giorno della settimana tra 15 giorni sarà: " & iGiornoSettimana)

'Se il giorno della settimana è già lunedì allora la data va bene,
'altrimenti bisogna aggiungere tanti giorni quanti sono necessari per arrivare al lunedì.
If iGiornoSettimana = 1 Then
  'La data di consegna è lunedì
  Response.write ("<BR>La data di consegna sarà: " & dDataConsegna)
  
else
  'La data di consegna NON è lunedì
  dDataConsegna = DateAdd("d",8-iGiornoSettimana,dDataConsegna)
  Response.write ("<BR>La data di consegna sarà: " & dDataConsegna)

end if
%>