VBScript / ASP Date Formatter Function

Function FDate(dateval, mode)
 Select Case mode
  Case "MM/DD/YYYY": 
   FDate = FormatDateTime(dateval, vbShortDate)
  Case "YYYY-MM-DD": 
   FDate = Year(dateval) & "-" & _
    PadString(Month(dateval), "0", 2, "Left") & "-" & _
    PadString(Day(dateval), "0", 2, "Left")
  Case "Mmm D, YYYY":
   FDate = FormatDateTime(dateval, vbLongDate)
  Case "Mmm D, YYYY HH:MM:SS":
   FDate = FormatDateTime(dateval, vbLongDate) & " " & FormatDateTime(dateval, vbLongTime)
  Case "MM/DD":
   FDate = Month(dateval) & "/" & Day(dateval)
  Case "Mmm DD":
   FDate = MonthName(Month(dateval), True) & " " & Day(dateval)
  Case "MMM DD":
   FDate = MonthName(Month(dateval), False) & " " & Day(dateval)
  Case Else:
   FDate = "[FDate] invalid option parameter specified"
 End Select
End Function