%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim Line_Feed dim StrEmailBody StrEmailBody = "" Line_Feed = chr(13) & chr(10) if (Request.Form("Submit") <> "") then %> <% strEmailBody = strEmailBody & "First Name: " & Request.Form("Firstname") & Line_Feed strEmailBody = strEmailBody & "Last Name: " & Request.Form("Lastname") & Line_Feed & Line_Feed strEmailBody = strEmailBody & "Date: " & Request.Form("submit_date") & Line_Feed & Line_Feed strEmailBody = strEmailBody & "Address1: " & Request.Form("Address1") & Line_Feed strEmailBody = strEmailBody & "City: " & Request.Form("City") & Line_Feed strEmailBody = strEmailBody & "State: " & Request.Form("State") & Line_Feed strEmailBody = strEmailBody & "Zip: " & Request.Form("Zip") & Line_Feed & Line_Feed strEmailBody = strEmailBody & "Phone: " & Request.Form("Voice") & Line_Feed strEmailBody = strEmailBody & "Fax: " & Request.Form("Fax") & Line_Feed strEmailBody = strEmailBody & "Email: " & Request.Form("Email") & Line_Feed & Line_Feed strEmailBody = strEmailBody & "Comments: " & Request.Form("Comments") set Mail = Server.CreateObject("Persits.MailSender") Mail.AddAddress ("info@bahamasinstituteofplasticsurgery.com") mail.addBCC ("alopez@fnscom.com") mail.addBCC ("webmaster@fnscom.com") Mail.Host = "mail.runcentral.com" Mail.From = Request.Form("email") Mail.FromName = Request.Form("name") Mail.Subject = "BahamasInstituteOfPlasticSurgery.com - Web Contact Form" Mail.Body = StrEmailBody Mail.Send() set Autoresponse = Server.CreateObject("Persits.MailSender") Autoresponse.IsHtml = true Autoresponse.Host = "mail.runcentral.com" Autoresponse.AddAddress (Request.Form("email")) Autoresponse.Subject = "Thank you for your inquiry" Autoresponse.From = "info@bahamasinstituteofplasticsurgery.com" Autoresponse.AppendBodyFromFile "c:\inetpub\vhosts\bahamasinstituteofplasticsurgery.com\httpdocs\autoresponse.html" Autoresponse.Send() Response.Redirect("thankyou.html") end if %>
OUR PROCEDURES BODY CONTOURING . FACIAL COSMETIC SURGERY . FACIAL REJUVENATION . INJECTABLE FILLERS . LASER HAIR REMOVAL |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||