<% 'Server-side Visual Basic Script for current date Dim DateData Dim DateMonth Dim DateDay Dim DateYear DateMonth = Month(Date()) DateDay = Day(Date()) DateYear = Year(Date()) Select Case DateMonth Case "1" DateMonth = "January" Case "2" DateMonth = "February" Case "3" DateMonth = "March" Case "4" DateMonth = "April" Case "5" DateMonth = "May" Case "6" DateMonth = "June" Case "7" DateMonth = "July" Case "8" DateMonth = "August" Case "9" DateMonth = "September" Case "10" DateMonth = "October" Case "11" DateMonth = "November" Case "12" DateMonth = "December" Case Else DateMonth = DateMonth End Select DateData = DateMonth & " " & DateDay & ", " & DateYear response.write DateData %>