แหล่งรวบรวมผู้ผลิต ผู้จำหน่ายสินค้าอุตสาหกรรม และบริการ เครื่องมือ อุปกรณ์ รถยก โซ่ สายพาน ปั๊ม วาล์ว อุปกรณ์ไฟฟ้า อุปกรณ์อิเล็กทรอนิกส์ บรรจุภัณฑ์ Sitemap
  <%=today%>
 
 
 
 
 
  FAQ
Apply E-News Letter   Career My Mail   Thai I ENG
 
   
  THAILAND BUSINESS PAGES  
   
 
หัวข้อเรื่อง
รายละเอียด
ชื่อ
นามสกุล
ชื่อบริษัท
ที่อยู่
เบอร์โทรติดต่อ
E-Mail Address
   
   
     
     
     
     
     
   
     
 
Copyright Thailand Business Pages
แหล่งรวบรวมผู้ผลิต ผู้จำหน่ายสินค้าอุตสาหกรรม และบริการ เครื่องมือ อุปกรณ์ รถยก โซ่ สายพาน ปั๊ม วาล์ว อุปกรณ์ไฟฟ้า อุปกรณ์อิเล็กทรอนิกส์ บรรจุภัณฑ์ คู่มือซื้อขายสินค้าอุตสาหกรรม
<% function GetDate() Dim DateStr,DayName,MyDate,MyWeekDay MyDate=CStr(Date) 'ใช้ฟังก์ชั่น CStr แปลงค่า ฟังก์ชั่น Date (26/3/2551) ให้อยู่ในรูป String MyWeekDay=Weekday(MyDate,1) select case MyWeekDay case 1 DayName = "Sunday" case 2 DayName = "Monday" case 3 DayName = "Tuesday" case 4 DayName = "Wednesday" case 5 DayName = "Thursday" case 6 DayName = "Friday" case 7 DayName = "Saturday" end select select case Month(Date) case 1 MonthNameEN = "January" case 2 MonthNameEN ="Feburuary" case 3 MonthNameEN = "March" case 4 MonthNameEN ="Apirl" case 5 MonthNameEN ="May" case 6 MonthNameEN ="June" case 7 MonthNameEN ="July" case 8 MonthNameEN ="August" case 9 MonthNameEN ="September" case 10 MonthNameEN ="October" case 11 MonthNameEN ="November" case 12 MonthNameEN ="December" end select DateStr = DayName&", "&MonthNameEN&" "&Day(Date)&", "&Year(Date) GetDate = DateStr end function %>