codice:Dim dp As New DateTime(2007, 7, 3) Dim da As New DateTime(2007, 7, 6) Dim sb As New StringBuilder() Do While da >= dp If sb.Length > 0 Then sb.Append(", ") End If sb.Append(dp.ToString("d")) dp = dp.AddDays(1) Loop Response.Write(sb.ToString())