The Greatest

Spa Giveaway

Win 25 Spa Bucks now!

We'll give you 25 Spa Bucks right now for your first visit to Radiant MedSpa.

<% If Request("MM_insert") = "" Then %>

Enter To Receive 25 Spa Bucks Today   First Name   Last Name           Email Address                 Yes, call me to set up a free consultation   Yes, email me to schedule up a free consultation     Telephone number   Best time to call       -select- 8am - 11am 11am - 2pm 2pm - 5pm 5pm - 8pm after 8pm

 

<% else %>

We received your submission, and will be responding quickly!

<% Set Mailer = Server.CreateObject("CDO.Message") Mailer.To ="info@radiantmedspa.net" Mailer.From = "lethalwit@hotmail.com" Mailer.Subject = "25 Spa Bucks Request" Mailer.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 Mailer.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.webmystyle.com" Mailer.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 Mailer.Configuration.Fields.Update Mailer.TextBody= chr(13) & "First name: " & Request("fname") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "Last name: " & Request("lname") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "Telephone: " & Request("tele") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "Email: " & Request("email") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "CallMe = " & Request("callme") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "EmailMe = " & Request("emailme") Mailer.TextBody= Mailer.TextBody & chr(13) & chr(13) & "Call Time: " & Request("calltime") Mailer.Send() Set objSendMail = Nothing Response.Redirect "http://www.radiantmedspa.net/thank-you.html" end if %>