Function CheckDateThai(NumberDate)
Select Case NumberDate
case "1"
Response.write("มกราคม")
case "2"
Response.write("กุมภาพันธ์")
case "3"
Response.write("มีนาคม")
case "4"
Response.write("เมษายน")
case "5"
Response.write("พฤษภาคม")
case "6"
Response.write("มิถุนายน")
case "7"
Response.write("กรกฏาคม")
case "8"
Response.write("สิงหาคม")
case "9"
Response.write("กันยายน")
case "10"
Response.write("ตุลาคม")
case "11"
Response.write("พฤศจิกายน")
case "12"
Response.write("ธันวาคม")
End Select
End Function
For i = 1 to 12
Response.write CheckDateThai(i)
next