If Request.Cookies("PJ")("Email") <> "" Then
EmailBody= "" & vbCrLf
EmailBody=EmailBody & "PartnerJets.com Inquiry" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "Name: " & Trim(Request.Form("Name")) & "
" & vbCrLf
EmailBody=EmailBody & "Email: " & Trim(Request.Form("Email")) & "
" & vbCrLf
EmailBody=EmailBody & "Phone: " & Trim(Request.Form("Phone")) & "
" & vbCrLf
EmailBody=EmailBody & "Best Time to Call: " & Trim(Request.Form("BestTimeToCall")) & "
" & vbCrLf
EmailBody=EmailBody & "Previous Jet Program: " & Trim(Request.Form("PreviousJetProgram")) & "
" & vbCrLf
EmailBody=EmailBody & "Start Soon: " & Trim(Request.Form("StartSoon")) & "
" & vbCrLf
EmailBody=EmailBody & "Jet Program: " & Trim(Request.Form("JetProgram")) & "
" & vbCrLf
EmailBody=EmailBody & "Referred By: " & Request.Cookies("PJ")("FirstName") & " " & Request.Cookies("PJ")("LastName") & "
" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
Set objMail = CreateObject("CDONTS.Newmail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = LCase(Trim(Request.Form("Email")))
objMail.To = "" & Request.Cookies("PJ")("Email")
objMail.Bcc = "sales@partnerjets.com"
objMail.Subject = "PartnerJets.com Inquiry - " & Request.Cookies("PJ")("LastName") & " referral - " & Trim(Request.Form("Name")) & " - " & Date
objMail.Body = EmailBody
objMail.Send
Set objMail = Nothing
Else
'----------------------------------------
' Send email to "sales@partnerjets.com"
'----------------------------------------
EmailBody= "" & vbCrLf
EmailBody=EmailBody & "PartnerJets.com Inquiry" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
EmailBody=EmailBody & "Name: " & Trim(Request.Form("Name")) & "
" & vbCrLf
EmailBody=EmailBody & "Email: " & Trim(Request.Form("Email")) & "
" & vbCrLf
EmailBody=EmailBody & "Phone: " & Trim(Request.Form("Phone")) & "
" & vbCrLf
EmailBody=EmailBody & "Best Time to Call: " & Trim(Request.Form("BestTimeToCall")) & "
" & vbCrLf
EmailBody=EmailBody & "Previous Jet Program: " & Trim(Request.Form("PreviousJetProgram")) & "
" & vbCrLf
EmailBody=EmailBody & "Start Soon: " & Trim(Request.Form("StartSoon")) & "
" & vbCrLf
EmailBody=EmailBody & "Jet Program: " & Trim(Request.Form("JetProgram")) & "
" & vbCrLf
EmailBody=EmailBody & "" & vbCrLf
Set objMail = CreateObject("CDONTS.Newmail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = LCase(Trim(Request.Form("Email")))
objMail.To = "sales@partnerjets.com"
objMail.Subject = "PartnerJets.com Inquiry - " & Trim(Request.Form("Name")) & " - " & Date
objMail.Body = EmailBody
objMail.Send
Set objMail = Nothing
End If