Dim strdate As String = "06/11/2003"
Dim dt As DateTime = DateTime.Parse(strdate)
dt.Parse(strdate)

'Assign first 3 characters of Week Day to string
Dim whichday As String = Left(WeekdayName(Weekday(dt.Date)), 3)
'Assign month to String
Dim whichmonth As String = MonthName(Month(dt))

Dim whichdate As String = dt.ToString("dd")

Dim whichyear As String = dt.ToString("yyyy")
Response.Write(whichday & " " & whichmonth & " " & whichdate & " " & whichyear & "<BR>")