Contact Us
Testimonials
|
 |
|
<% If Not Replicate_Info.EOF Or Not Replicate_Info.BOF Then %>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
' EMAIL TO PERSON WHO HAS REP SITE
' *********************************************************************************
if Replicate_Info.Fields.Item("Email").Value > "" then
var_sendto_email = (Replicate_Info.Fields.Item("Email").Value)
'var_sendto_email = "briang@imatrixmail.com"
'var_sendto_email = "shaunjb@earthlink.net"
else
var_sendto_email = "support@peopleshealthchoice.com"
end if
if Replicate_Info.Fields.Item("Email").Value > "" then
var_sendto_name = (Replicate_Info.Fields.Item("MemberName").Value)
else
var_sendto_name = "Support"
end if
var_sendfrom_email = cStr(Request.Form("email"))
var_sendfrom_name = cStr(Request.Form("firstname")) & " " & cStr(Request.Form("lastname"))
var_subject = "Peoples Health Choice - New Contact!"
var_body_from_file = 0
var_email_body = ""
var_body_folder = ""
'Start Mail Body
MailBody = MailBody + ""
MailBody = MailBody + " "
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + " | "
MailBody = MailBody + " "
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + "" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "You have a new contact from your personal site." + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "On " & cStr( Date() ) & " at " & cStr( Time() ) & ", " & cStr( Request.Form("firstname") ) & " " & cStr( Request.Form("lastname") ) & " submitted a request for more information." + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "" + VbCrLf
MailBody = MailBody + "" & cStr( Request.Form("firstname") ) & " " & cStr( Request.Form("lastname") ) & "" + VbCrLf
MailBody = MailBody + "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "" & cStr( Request.Form("email") ) & "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "" & cStr( Request.Form("phone") ) & "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "Best Time to Call: " & cStr( Request.Form("time") ) & " " & cStr( Request.Form("time2") ) & "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "Additional Comments:" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "" & Replace(Request.Form("comments"), VbCrLf, "
") & "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + ""'EndlineNoBreak
MailBody = MailBody + " | "
MailBody = MailBody + "
| "
MailBody = MailBody + ""
MailBody = MailBody + "| | "
MailBody = MailBody + " "
MailBody = MailBody + " "
MailBody = MailBody + ""
MailBody = MailBody + ""
'End Mail Body
var_body_text = MailBody
var_body_html = 1
var_email_log = "contactform"
var_log_body = 1
var_log_folder = "logs"
var_wrap = 1
var_wrap_length = 75
var_redirect = 0
var_redirect_url = "phc_c_contact.asp?sent=Y"
var_smtp_server = "smtp.peopleshealthchoice.com"
var_smtp_server_user = "smtp@peopleshealthchoice.com"
var_smtp_server_pass = "gold91"
var_client_folder = "PHC/LIVE/newsite/"
var_client_name = "Peoples Health Choice"
Call func_SendMail(var_sendto_email, var_sendto_name, var_sendfrom_email, var_sendfrom_name, var_subject, var_body_from_file, var_email_body, var_body_folder, var_body_text, var_body_html, var_email_log, var_log_body, var_log_folder, var_wrap, var_wrap_length, var_redirect, var_redirect_url, var_smtp_server, var_smtp_server_user, var_smtp_server_pass, var_client_folder, var_client_name)
' EMAIL TO PERSON SENDING CONTACT FORM
' *********************************************************************************
var_sendto_email = cStr(Request.Form("email"))
'var_sendto_email = "briang@imatrixmail.com"
'var_sendto_email = "shaunjb@earthlink.net"
var_sendto_name = cStr(Request.Form("firstname")) & " " & cStr(Request.Form("lastname"))
var_sendfrom_email = cStr(Request.Form("email"))
var_sendfrom_name = "Peoples Health Choice"
var_subject = "Thanks From Peoples Health Choice!"
var_body_from_file = 0
var_email_body = ""
var_body_folder = ""
'Start Mail Body
MailBody = ""
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + " | "
MailBody = MailBody + " "
MailBody = MailBody + ""
MailBody = MailBody + ""
MailBody = MailBody + "" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "Thank you for your interest in Peoples Health Choice." + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "Thank you very much indeed for your interest in the PHC program. To provide you with the best possible service, one of our Advocates will be contacting you very soon, again, thanks for your interest in People's Health Choice." + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "---------------------------------------------------------------------------------------------" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "Your Message:" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + "" & Replace(Request.Form("comments"), VbCrLf, "
") & "" + VbCrLf
MailBody = MailBody + "
" + VbCrLf
MailBody = MailBody + ""'EndlineNoBreak
MailBody = MailBody + " | "
MailBody = MailBody + "
| "
MailBody = MailBody + ""
MailBody = MailBody + "| You are receiving this email because you sent a message from an Advocates personal website. If you did not submit this email please contact support@peopleshealthchoice.com If you wish to opt-out from receiving further emails please send a blank email message with the subject "REMOVE" to support@peopleshealthchoice.com |
| "
MailBody = MailBody + " "
MailBody = MailBody + " "
MailBody = MailBody + ""
MailBody = MailBody + ""
'End Mail Body
var_body_text = MailBody
var_body_html = 1
var_email_log = "contactform"
var_log_body = 1
var_log_folder = "logs"
var_wrap = 1
var_wrap_length = 75
var_redirect = 1
var_redirect_url = "phc_c_contact.asp?sent=Y"
var_smtp_server = "smtp.peopleshealthchoice.com"
var_smtp_server_user = "smtp@peopleshealthchoice.com"
var_smtp_server_pass = "gold91"
var_client_folder = "PHC/LIVE/newsite/"
var_client_name = "Peoples Health Choice"
Call func_SendMail(var_sendto_email, var_sendto_name, var_sendfrom_email, var_sendfrom_name, var_subject, var_body_from_file, var_email_body, var_body_folder, var_body_text, var_body_html, var_email_log, var_log_body, var_log_folder, var_wrap, var_wrap_length, var_redirect, var_redirect_url, var_smtp_server, var_smtp_server_user, var_smtp_server_pass, var_client_folder, var_client_name)
end if
%>
<% else %>
|
Start Saving Now!
Click Here to Join People's Health Choice and receive your card.
Point...Click...Save! |
|
| |
(If you know someone who is an Advocate with People's Health Choice, that person can invite you to sign up for your PHC membership. If you don't know a People's Health Choice Advocate, wait a bit and most likely you soon will.)
We look forward to having you as part of the People's Health Choice community.
Mailing Address:
People's Health Choice
131 S. Avon Street, Suite 208
Burbank, CA 91505
Phone: 818-567-2343
FAX: 818-563-1203
E-Mail Address: mail@peopleshealthchoice.com
<% end if %>
|
|
