<%

public function ReturnDate(mdate)
	
	dim Rdate
	Rdate = ""
	Rdate = Rdate & day(mdate)
	Rdate = Rdate & "-"
	select case month(mdate)
		case 1
			Rdate = Rdate & "Jan"
		case 2
			Rdate = Rdate & "Feb"
		case 3
			Rdate = Rdate & "Mar"
		case 4
			Rdate = Rdate & "Apr"
		case 5
			Rdate = Rdate & "May"
		case 6
			Rdate = Rdate & "Jun"
		case 7
			Rdate = Rdate & "Jul"
		case 8
			Rdate = Rdate & "Aug"
		case 9
			Rdate = Rdate & "Sep"
		case 10
			Rdate = Rdate & "Oct"
		case 11
			Rdate = Rdate & "Nov"
		case 12
			Rdate = Rdate & "Dec"
	end select	
	
	Rdate = Rdate & "-"
	Rdate = Rdate & year(mdate)

	ReturnDate = Rdate
end function


%>