<% response.buffer = true response.expires = 0 %> <% lnbr = chr(13) & chr(10) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request("name") Mailer.FromAddress = "work@showcasestudios.com" Mailer.ReplyTo = request("email") Mailer.RemoteHost = "mail.showcasestudios.com" Mailer.AddRecipient "Bestravel","btinfo@bestravel.com" Mailer.Subject = "Contact Page Inquiry" strbody = strbody & "Name: " & request("name") & lnbr strbody = strbody & "Daytime Phone: " & request("daytimephone") & lnbr strbody = strbody & "Evening Phone: " & request("eveningphone") & lnbr strbody = strbody & "Email address: " & request("email") & lnbr & lnbr strbody = strbody & "Inquiry: " & request("comments") & lnbr Mailer.BodyText = strbody if not Mailer.SendMail then sentmail = false Response.Write " Mailing Failed... Error is:
" Response.Write Mailer.Response end if %> Thank You from Bestravel.com
 
home All Inclusives Club Med Cruises Europe Golf Packages Special Travel Deals Join our Travel Mailing List Contact us
 



Home News
Club Med Club Med Specials
All Inclusives Travel Specials
Cruises
Europe Contact Us
Golf & Spa Packages



 
© 2009 Bestravel.com is owned by Travelmart Services, Inc.
site map
Site Design by: Dream 9 Media