<% action = request.form("action") if len(action) > 0 and action = "Send" then message = request.form("msg") name = request.form("name") email = request.form("email") '------------------------------------------------------------------------------------------------ASPMail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.RemoteHost = "mail.swdsbd.com" Mailer.FromName = "Contact from swdsbd.com" Mailer.FromAddress = "sales@swdsbd.com" Mailer.AddRecipient "Sales", "sales@swdsbd.com" Mailer.AddBCC "pirun", "pirun@swdsbd.com" Mailer.Subject = "You're got contract from " & name HTML = HTML & "" HTML = HTML & "Name : " & name & "
" HTML = HTML & "Email : " & email & "

" HTML = HTML & "Message : " & message & "

" Mailer.BodyText = HTML if Mailer.SendMail then actMsg = 1 else actMsg = "" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "error_robot@swdsbd.com" objMail.to = "chaiyut@advanceserver.com" objMail.Subject = "àªç¤ µÑÇ /www/contactus.asp ´éÇ ·Ó§Ò¹¼Ô´»¡µÔ" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = "àªç¤ µÑÇ contactus.asp ´éÇ ·Ó§Ò¹¼Ô´»¡µÔ (swdsbd.com)" objMail.Send Set objMail = Nothing end if end if %>
 
<% if len(actMsg) > 0 then %> <% end if %>
   We' ve got your message, Thank you very much.
   
Name :
  
E-mail :
  
Message :
 
   
   
   
Head Office :
151/8 Phaholyothin Soi 34
Ladyao Jatujak Bangkok 10900
Tel: +662-5761526
Fax: +662-5761527
Email : sales@swdsbd.com
Lao Branch Office :
117 Payasi Rd. Unit 10,
Ban Sithan neua
Sikhotabong District
Vientiane Lao PDR.
Tel : +856 20 560 5174