<% 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 %>

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