Visualizzazione del giorno della settimana corrispondente alla data

Questo script visualizza il giorno della settimana corrispondente alla data dell'operazione

Option Explicit
 
Dim NomeGiorno
Dim DataGiorno
Dim Giorno
NomeGiorno = ""
DataGiorno = Rdy.toDate(RowItem.CustomField(15))
Giorno = WeekDay(DataGiorno)
 
Select Case Giorno
 Case 1
   NomeGiorno = "Domenica"
 
 Case 2
   NomeGiorno = "Lunedi"
 
 Case 3
   NomeGiorno = "Martedi"
 
 Case 4
   NomeGiorno = "Mercoledi"
 
 Case 5
   NomeGiorno = "Giovedi"
 
 Case 6
   NomeGiorno = "Venerdi"
 
 Case 7
   NomeGiorno = "Sabato"
End Select
 
Response.Write(NomeGiorno)