<%
Function DateThai(strDate)
DateNew=Day(strDate)
MonthThai=Month(strDate)
YearNew=Year(strDate)
Select Case MonthThai
case "1"
strMonth="มกราคม"
case "2"
strMonth="กุมภาพันธ์"
case "3"
strMonth="มีนาคม"
case "4"
strMonth="เมษายน"
case "5"
strMonth="พฤษภาคม"
case "6"
strMonth="มิถุนายน"
case "7"
strMonth="กรกฏาคม"
case "8"
strMonth="สิงหาคม"
case "9"
strMonth="กันยายน"
case "10"
strMonth="ตุลาคม"
case "11"
strMonth="พฤศจิกายน"
case "12"
strMonth="ธันวาคม"
End Select