<%@LANGUAGE="VBSCRIPT"%> <% if request("action")="click to send" then Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = "203.121.182.210" Mail.Host = "203.121.182.210" Mail.From = "info@royalnaturalspa.com" 'Mail.From = request("email") 'Mail.FromName = "The Royal Natural Spa" Mail.FromName = request("name") 'Mail.FromName = request("Email") Mail.AddAddress "info@royalnaturalspa.com" 'Mail.AddAddress "nachai@yahoo.com" 'Mail.AddReplyTo request("Email") Mail.Subject = "Contact us : The Royal Natural Spa" Mail.IsHTML = True str=""&chr(13)&chr(10) str=str&""&chr(13)&chr(10) str=str&""&chr(13)&chr(10) str=str&""&chr(13)&chr(10) str=str&""&chr(13)&chr(10) str=str&"
"&chr(13)&chr(10) str=str&"Here is the contact.

" & chr(13)&chr(10) str=str&"Name : "&request("Name")& chr(13)&chr(10) str=str&"
Address : "&request("Address")& chr(13)&chr(10) str=str&"
Email : "&request("Email")& chr(13)&chr(10) str=str&"
Message : "&chr(13)&chr(10) str=str&request("Message")& chr(13)&chr(10) str=str&"

"&chr(13)&chr(10) str=str&"

"&chr(13)&chr(10) str=str&""&chr(13)&chr(10) Mail.Body = str On Error Resume Next Mail.Send If Err <> 0 Then msg="Error encountered: " & Err.Description else msg="Your comment has been sent.
Thank you for your comment." end If end if %> contact us

   

A place where you will embrace by the most affectionate welcome,
enabling you to revive your body balance and rejuvenate your soul.
Revitalize with a feeling of healthy and radiant, be a new you with
every visit.

878 Rama 4 Rd., Sriphraya, Bangrak, Bangkok 10500 Fax : 02-6371034
E-mail : info@royalnatura lspa.com Reservation 02-6371032-3

Recommend : www.advancednaturalthai.com