<% Function Month_Name(inputdate) intMonth=Month(inputdate) Select Case intMonth Case "1" strMonth="Jan" Case "2" strMonth="Feb" Case "3" strMonth="Mar" Case "4" strMonth="Apr" Case "5" strMonth="May" Case "6" strMonth="June" Case "7" strMonth="July" Case "8" strMonth="Aug" Case "9" strMonth="Sep" Case "10" strMonth="Oct" Case "11" strMonth="Nov" Case "12" strMonth="Dec" Case "" strMonth=Month(Date()) End Select Month_Name=strMonth End Function %>