<% DIM blnPost If Request.ServerVariables("REQUEST_METHOD")="POST" then blnPost=True Else blnPost=False End If Dim MailBody Dim sch Err.Clear if blnPost=True then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig 'Set cdoMessage = Server.CreateObject ("CDONTS.NewMail") If (Err.number <> 0) then Response.Write(Err.Description) Else MailBody = "Name : " & Request.Form("Name") & vbcrlf MailBody = MailBody & "Email : " & Request.Form("email") & vbcrlf MailBody = MailBody & "Fax Number : " & Request.Form("fax_no") & vbcrlf MailBody = MailBody & "By Drukair from : " & Request.Form("AirSelect") & vbcrlf MailBody = MailBody & "Address : " & Request.Form("add") & vbcrlf MailBody = MailBody & "-----------------------------------------------------------" & vbcrlf & vbcrlf MailBody = MailBody & "Kind of Tour : " & vbcrlf If Request.Form("Cultural")="TRUE" Then MailBody = MailBody & Space(10) & "Cultural" & vbcrlf End If If Request.Form("Trekking")="TRUE" Then MailBody = MailBody & Space(10) & "Trekking" & vbcrlf End If If Trim(Request.Form("Other_Tour"))<>"" Then MailBody = MailBody & Space(10) & "Other : " & Request.Form("Other_Tour") & vbcrlf End If MailBody = MailBody & "-----------------------------------------------------------" & vbcrlf & vbcrlf MailBody = MailBody & "No of People : " & Request.Form("Total_No_People") & vbcrlf MailBody = MailBody & "-----------------------------------------------------------" & vbcrlf & vbcrlf MailBody = MailBody & "Possible Visit Date (mm/dd/yyyy) : " & Request.Form("Arrive_month") & "/" & Request.Form("Arrive_day") & "/" & Request.Form("Arrive_year") & vbcrlf MailBody = MailBody & "Possible Departure Date (mm/dd/yyyy) : " & Request.Form("Depart_Month") & "/" & Request.Form("Depart_Day") & "/" & Request.Form("Depart_Year") & vbcrlf MailBody = MailBody & "-----------------------------------------------------------" & vbcrlf & vbcrlf MailBody = MailBody & "General comments : " & vbcrlf & Request.Form("General_comments") & vbcrlf 'Response.write MailBody 'cdoMessage.To = "btskoko@druknet.bt" cdoMessage.To = "info@bhutantraveller.com" IF Request.Form("email")="" Then cdoMessage.From = "webform@druknet.bt" ELSE cdoMessage.From = Request.Form("email") END IF cdoMessage.Subject = "Tour Request" cdoMessage.TextBody = MailBody 'cdoMessage.Body = MailBody 'Response.Write MailBody '----- Send the message using the mailer object ----------- cdoMessage.Send '----- Destroy the mailer object ---------- Set cdoMessage = Nothing Set cdoConfig = Nothing %> <% End If End If %>
 
Home
About Us
Services
General Info
About Bhutan
Contact Us
Flight Schedule
Sitemap



1. Please enter the required information below ::
Name
Email address
Fax number
( include country & area codes)
 
By Drukair from
Your snail-mail address
 2. Please check the kind of tour your interested in ::
Cultural
Trekking
  others (describe below)
 3. Tour package for the amount of people? ::
 
 4. Your possible visit date? ::
 
Possible departure date
 
 6. Enter any general comments below ::
 

 
Kindly send a draft in favour of BTS, payable at Thimpu, Bhutan

Bhutan Travel Service
Telephone - 00975-2-325785
Fax - 00975-2-325786
Postal Address - P.O. Box 919,
Clock Tower,
Thimphu, Bhutan
btskoko@druknet.bt