thm = Array("","ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.", "มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.")
Dim i
Response.write("<script language='JavaScript'>")
For i = 0 To UBound(thm)
Response.write("alert('"&thm(i)&"')")
Next
Response.write("</script>")