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())