<% Dim MailBody, strEmail, strSubject, strName strName = GetRequest("mail_name") strEmail = GetRequest("mail_from") strSubject = GetRequest("mail_subject") MailBody = GetRequest("mail_body") %> Arena Garden
 

  สำนักงานใหญ่
499 ถ.ศรีนครินทร์ แขวงสวนหลวง เขตสวนหลวง กรุงเทพฯ 10250
โทรศัพท์ 02 704 - 4244 โทรสาร 02 704 - 4249
e-mail : contact@arena-garden.com

อารีนา การ์เด้น บางนา - สุวรรณภูมิ
ถนนจัตุรโชคชัย ต.บางพลีใหญ่ อ.บางพลี จ.สมุทรปราการ 10540
โทรศัพท์ 02 325 - 1888 โทรสาร 02 325 - 0861

อารีนา การ์เด้น บางกะปิ, ประชาชื่น, สุขุมวิท
ติดต่อ อารีนา การ์เด้น สำนักงานบางกะปิ
ถ.สุขาภิบาล 2 เขตบึงกุ่ม กรุงเทพฯ 10240
โทรศัพท์ 02 375 - 0055 โทรสาร 02 375 - 0059

 




  เพียงคุณกรอกแบบฟอร์มด้านล่าง ทางทีมงานจะทำการตอบข้อสงสัยไปยังอีเมล์ของท่าน อย่างเร็วที่สุด

<% if MailBody <> "" and strEmail <> "" and strSubject <> "" and strName <> "" then response.write "

ขอบคุณที่สนใจในบริการของเรา

" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strName &"("&strEmail&")" 'objCDOMail.From =strEmail objCDOMail.To = Application("CONTACT_EMAIL") objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Subject = "ติดต่อสอบถาม: " & strSubject objCDOMail.Body = MailBody objCDOMail.Send() Set objCDOMail = Nothing else %>
  ชื่อ
  อีเมล์
  หัวข้อ
  รายละเอียด
   
<% end if %>