%Dim strbody
Dim message
If (Request.Form("Submit")) > "" Then
Set myMail=Server.CreateObject("CDO.Message")
myMail.Subject="Request Mail"
myMail.From=Request.Form("email")
myMail.To="nev@facesbynev.com"
'myMail.To="avadhesh@dimensioni.net"
strbody = "
| Name: | " & Request.Form("name") & " |
| Phone No.: | " & Request.Form("phone") & " |
| Email Address: | " & Request.Form("email") & " |
| Service Request(s) : |
"
If (Request.Form("facial")) > "" Then
strbody = strbody & "| " & Request.Form("facial") & " |
"
End If
If (Request.Form("lash-tinting")) > "" Then
strbody = strbody & "| " & Request.Form("lash-tinting") & " |
"
End If
If (Request.Form("full-set")) > "" Then
strbody = strbody & "| Xtreme Lashes: |
"
strbody = strbody & "| " & Request.Form("full-set") & " |
"
End If
strbody = strbody & "| Waxing: |
"
If (Request.Form("brow")) > "" Then
strbody = strbody & "| " & Request.Form("brow") & " |
"
End If
If (Request.Form("lip")) > "" Then
strbody = strbody & "| " & Request.Form("lip") & " |
"
End If
If (Request.Form("chin")) > "" Then
strbody = strbody & "| " & Request.Form("chin") & " |
"
End If
If (Request.Form("bikini")) > "" Then
strbody = strbody & "| " & Request.Form("bikini") & " |
"
End If
strbody = strbody & "
"
myMail.HTMLBody = strbody
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpout.secureserver.net"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nev@facesbynev.com"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "lashes111400"
myMail.Configuration.Fields.Update
myMail.Send
message= "Thank you for your request. We will get back to you soon."
%>