<%
response.buffer
%>
<%
'Check for the email address
If trim(request("email")) = "" or isNull(Request("email")) or instr(1, Request("email") , "@") < 1 Then
Response.Write "
Email is a required field.
Please click the Back button (upper left corner), on your browser and try again.
"
else
'InStr(1, UserMail, "@")
'Check for first name
If Trim(Request("fname")) = "" or IsNull(Request("fname")) Then
Response.Write "
First Name is a required field.
Please click the Back button (upper left corner), on your browser and try again.
"
else
'Check for last name
If Trim(Request("lname")) = "" or IsNull(Request("lname")) Then
Response.Write "
Last Name is a required field.
Please click the Back button (upper left corner), on your browser and try again.
"
else
'====================================================================
'CDONT'S Mail
'====================================================================
'Create the mail object..
'
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From= Request("email") ' The person sending the email
'
'Change the below to your customers email address
'
MailObject.To="comments@professionalbeauty.org (Tito & Phyllis)"
'MailObject.cc=""
'
'Blind Copy
'
MailObject.Bcc="penzput@socal.rr.com (Pen BCC)"
'
'Subject
'
MailObject.Subject= "PB Question from " & Request("fname") & " " & Request("lname")
'
'Importance, A "0" being the lowest and a "2" being the most important type of message
'You can comment out the importance if you don't want to see this...
'
'MailObject.Importance = 2 'High importance!
'
'Get the message and format it correctly..
'
msg = "Name: " & Request("fname") & " " & Request("lname") & VbCrLf
msg = msg & "Email: " & Request("email") & VbCrLf & VbCrLf & "Interests:" & VbCrLf
for each interest in request.form("interests")
msg = msg & "* " & interest & vbcrlf
next
msg = msg & VbCrLf & "Question(s): " & Request("question") & VbCrLf & VbCrLf
'The message body
MailObject.Body=msg
'Send the mail
MailObject.Send
%>
Thank You - Your Message Has Been Sent
Thank you <%=Request("fname")%>!
We look forward to assisting you with all your beauty and career needs.
You will be contacted shortly by a Professional Beauty Representative.
