ASP/VBScript DateThai()

<% 
Function DateThai(strDate)
	Setlocale("en-us")
	Dim strDay,strMonth,strYear,strHour,strMinute,strSecond
	Dim arrMonth
	strDay = Day(strDate)
	strMonth = Month(strDate)
	strYear = Year(strDate)
	strHour = Hour(strDate)
	strMinute = Minute(strDate)
	strSecond = Second(strDate)
	arrMonth = Array("ม.ค","ก.พ","มี.ค","เม.ษ","พ.ค","มิ.ย","ก.ค","ส.ค","ก.ย","ต.ค","พ.ย","ธ.ค")	
	DateThai = strDay &" "&arrMonth(strMonth-1) &" "&strYear &" "&strHour &":"&strMinute &":"&strSecond
End Function

Response.write DateThai("09/09/2008 15:16:17")
%>