Privacy Policy

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM pref_paypal_account, LOG_FILE, VENDOR_IDENTITY, VENDOR_NAME, VENDOR_EMAIL, VENDOR_EMAIL_CC, VENDOR_EMAIL_BCC, DATABASE_PATH, MM_connection_STRING '*** CHANGE THE FOLLOWIN TO YOUR OWN CONFIGURATION *** pref_paypal_account = "services@ericthetrainer.com" pref_private_path = "../private" paypal_notify_url = "http://www.EricTheTrainer.com/ipn_processor.asp" return_url = "http://www.ericthetrainer.com/purchase_confirm.asp" cancel_url = "http://www.ericthetrainer.com/purchase_cancel.asp" login_url = "http://www.EricTheTrainer.com/login.asp" VENDOR_NAME = "ERIC THE TRAINER" '*--> NAME OF YOUR COMPANY VENDOR_EMAIL = "services@ericthetrainer.com" '*--> YOUR PRIMARY EMAIL REGISTERED WITH PAYPAL VENDOR_EMAIL_CC = "" '*--> CC EMAIL - FOR ADDITIONAL NOTIFICATION EMAIL - OPTIONAL VENDOR_EMAIL_BCC = "" '*--> BCC EMAIL - FOR ADDITIONAL NOTIFICATION EMAIL - OPTIONAL CONST TERMINATE_ON_SYSTEM_ERROR = FALSE '*IF THERE IS A SERIOUS SYSTEM ERROR TRAPPED BY THE SYSTEM SUCH AS FAILURE TO '*CREATE A SERVER OBJECT, YOU MAY CHOOSE TO TERMINATE THE SCRIPT RIGHT AWAY. '*JUST SET TERMINATE_ON_SYSTEM_ERROR TO "TRUE" CONST AUDIT_TRAIL_ON = False ' SET THIS TO TRUE TO ENABLE TEXT LOG FILE LOG_FILE = "PAYPAL.txt" '*PAYPAL AUDIT TRAIL LOG FILE '*NOTE: FOR ADDED SECURITY, IT IS BEST TO STORE THE LOG FILE OUTSIDE THE ROOT FOLDER '*EX. "../Private/paypal.txt" --> here folder "Private" is outside the HTTP REACH const remote_admin_login = "ett" const remote_admin_password = "ettadmin" %> <% 'Dim MM_connection_STRING 'dim DB 'editted MapPath and removed .. from "../private/ett_db.mdb" 'the ".." convention is not available 'DB = Server.MapPath("/private/ett_db.mdb") DB = Server.MapPath("/access_db/ett_db.mdb") 'MM_connection_STRING = "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DB MM_connection_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB %> Privacy Policy

SIGN-UP/LOGIN

<% '1. function parse (str) : parse all incoming submissions '2. function unparse (str) : opposite of parse '3. function record_exists( tbl_name, column_name, the_value) ' : checks for duplicate record based on 1 primary column -- used in adding records '4. function record_exists_ext( tbl_name, column_name_1, column_name_2, the_value_1, the_value_2) ' : checks for duplicate record based on 2 columns -- used in updating records '5. function insert_command(tbl_name, arr_cols, arr_values) ' : constructs an insert command ' : makes insertions of quotes and commas a breeze '6. function update_command(tbl_name, idcol, idval, arr_cols, arr_values) ' : constructs and edit command ' : makes insertions of quotes and commas a breeze %> <% function parse (str) parse = trim(replace(replace(str, "'", "''"), "|", "")) end function function unparse (str) if str <> "" then unparse = trim(replace(str, "''", "'")) else unparse = "" end if end function function record_exists( tbl_name, column_name, the_value, isInteger) Dim quote quote = "'" if isInteger=1 then quote = "" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_Connection_STRING rs.Source = "SELECT * FROM " & tbl_name & " WHERE " & column_name & " = " & quote & the_value & quote 'response.write rs.Source 'response.End() rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if rs.eof then record_exists = false else record_exists = true end if rs.Close() Set rs = Nothing end function function record_exists_ext( tbl_name, column_name_1, column_name_2, the_value_1, value_1_isInt, the_value_2, value_2_isInt) Dim quote1 Dim quote2 quote1 = "'" quote2 = "'" if value_1_isInt = 1 then quote1 = "" if value_2_isInt = 1 then quote2 = "" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_Connection_STRING rs.Source = "SELECT * FROM " & tbl_name & " WHERE " & column_name_1 & " = " & quote1 & the_value_1 & quote1 & " AND " & column_name_2 & " = " & quote2 & the_value_2 & quote2 ' response.write rs.Source ' response.end() rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if rs.eof then record_exists_ext = false else record_exists_ext = true end if rs.Close() Set rs = Nothing end function function record_exists_edit_level_1( tbl_name, column_name_1, column_name_2, the_value_1, value_1_isInt, the_value_2, value_2_isInt) Dim quote1 Dim quote2 quote1 = "'" quote2 = "'" if value_1_isInt = 1 then quote1 = "" if value_2_isInt = 1 then quote2 = "" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_Connection_STRING rs.Source = "SELECT * FROM " & tbl_name & " WHERE " & column_name_1 & " = " & quote1 & the_value_1 & quote1 & " AND " & column_name_2 & " <> " & quote2 & the_value_2 & quote2 ' response.write rs.Source ' response.end() rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if rs.eof then record_exists_edit_level_1 = false else record_exists_edit_level_1 = true end if rs.Close() Set rs = Nothing end function function record_exists_edit_level_2( tbl_name, column_name_1, column_name_2, column_name_3, the_value_1, value_1_isInt, the_value_2, value_2_isInt, the_value_3, value_3_isInt) Dim quote1 Dim quote2 quote1 = "'" quote2 = "'" quote3 = "'" if value_1_isInt = 1 then quote1 = "" if value_2_isInt = 1 then quote2 = "" if value_3_isInt = 1 then quote3 = "" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_Connection_STRING rs.Source = "SELECT * FROM " & tbl_name & " WHERE " & column_name_1 & " = " & quote1 & the_value_1 & quote1 & " AND " & column_name_2 & " <> " & quote2 & the_value_2 & quote2 & " AND " & column_name_3 & " = " & quote3 & the_value_3 & quote3 ' response.write rs.Source ' response.end() rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() if rs.eof then record_exists_edit_level_2 = false else record_exists_edit_level_2 = true end if rs.Close() Set rs = Nothing end function function insert_command(tbl_name, arr_cols, arr_values) dim i cols = split(arr_cols, "|") vals = split(arr_values, "|") ub_arr = ubound(cols) str = "INSERT INTO " & tbl_name & "(" scol = "" sval = "" for i = 0 to ub_arr if i < ub_arr then scol = scol & cols(i) & "," sval = sval & "'" & vals(i) & "'," else scol = scol & cols(i) sval = sval & "'" & vals(i) & "'" end if next str = str & scol & ") VALUES (" & sval & ")" insert_command = str end function function update_command(tbl_name, idcol, idcol_isInt, idval, arr_cols, arr_values) dim i if idcol_isInt = 1 then quote1 = "" else quote1 = "'" end if cols = split(arr_cols, "|") vals = split(arr_values, "|") ub_arr = ubound(cols) str = "UPDATE " & tbl_name & " SET " s = "" for i = 0 to ub_arr if i < ub_arr then s = s & cols(i) & "='" & vals(i) & "'," else s = s & cols(i) & "='" & vals(i) & "'" end if next str = str & s & " WHERE " & idcol & "=" & quote1 & idval & quote1 update_command = str end function function update_all_command(tbl_name, arr_cols, arr_values) dim i cols = split(arr_cols, "|") vals = split(arr_values, "|") ub_arr = ubound(cols) str = "UPDATE " & tbl_name & " SET " s = "" for i = 0 to ub_arr if i < ub_arr then s = s & cols(i) & "='" & vals(i) & "'," else s = s & cols(i) & "='" & vals(i) & "'" end if next str = str & s & " " update_all_command = str end function function delete_command(tbl_name, idcol, idval ) if isnumeric(idval) then str = "DELETE FROM " & tbl_name & " WHERE " & idcol & "=" & idval else str = "DELETE FROM " & tbl_name & " WHERE " & idcol & "='" & idval & "'" end if delete_command = str end function Function IsValidEmail(sText) 'validate email address Dim i Dim iTmpChar Dim sDomainExt Dim vEmail Dim vDomain IsValidEmail = False 'check for 1 @ symbol vEmail = Split(sText, "@") If UBound(vEmail) <> 1 Then Exit Function If vEmail(0) = "" Or vEmail(1) = "" Then Exit Function 'validate account For i = 1 To Len(vEmail(0)) 'check for valid characters iTmpChar = Asc(Mid(LCase(vEmail(0)), i, 1)) 'test for letters If Not (iTmpChar >= Asc("a")) And (iTmpChar <= Asc("z")) Then 'test for numbers If Not IsNumeric(Chr(iTmpChar)) Then 'test for exceptions If Chr(iTmpChar) <> "." And Chr(iTmpChar) <> "_" And Chr(iTmpChar) <> "-" Then Exit Function End If End If Next 'validate domain For i = 1 To Len(vEmail(1)) 'check for valid characters iTmpChar = Asc(Mid(LCase(vEmail(1)), i, 1)) 'test for letters If Not (iTmpChar >= Asc("a")) And (iTmpChar <= Asc("z")) Then 'test for numbers If Not IsNumeric(Chr(iTmpChar)) Then 'test for exceptions If Chr(iTmpChar) <> "." And Chr(iTmpChar) <> "-" Then Exit Function End If End If Next 'validate domain extension vDomain = Split(vEmail(1), ".") sDomainExt = vDomain(UBound(vDomain)) If Len(sDomainExt) < 2 Or Len(sDomainExt) > 4 Then Exit Function 'test for letters For i = 1 To Len(sDomainExt) iTmpChar = Asc(Mid(LCase(sDomainExt), i, 1)) If Not (iTmpChar >= Asc("a")) And (iTmpChar <= Asc("z")) Then Exit Function Next IsValidEmail = True End Function %> <% dim subs_error_msg subscribe = trim(request("subscribe")) if subscribe <> "" then name = trim(request("name")) email = trim(request("email")) if name = "" then subs_push_error "Please enter your name." if NOT IsValidEmail(email) then subs_push_error "Please enter a valid email address." if record_exists( "tbl_subscriber", "email", email, 0) then subs_push_error "This email address is already subscribed." if subs_error_msg <> "" then subs_error_msg = "" & subs_error_msg & "

" else Set rsSubs = Server.CreateObject("ADODB.Recordset") rsSubs.ActiveConnection = MM_connection_STRING rsSubs.Source = "insert into tbl_subscriber(name,email) values ('" & name & "', '" & email & "')" rsSubs.CursorType = 0 rsSubs.CursorLocation = 2 rsSubs.LockType = 1 rsSubs.Open() rsSubs.Source = "SELECT max(subscriber_id) as id FROM tbl_subscriber" rsSubs.Open() id = rsSubs("id") rsSubs.Close set rsSubs = Nothing name = "" email = "" response.Redirect("subsribed_confirm.asp?id=" & id ) response.End() end if end if %>

Sign up to be part of the Eric the Trainer fitness community: receive newsletters, chat with Eric, join community chats & forums, be alerted to events and special opportunities.

<%=subs_error_msg%>NAME:

EMAIL:

<%if trim(session("memberid")) = "" then %>

Existing Clients: <%else%>
My Account

Logout <%end if%>

<% sub subs_push_error (str) if subs_error_msg = "" then subs_error_msg = "* " & str else subs_error_msg = subs_error_msg & "
* " & str end if end sub %>

THE FITCALL

Introducing the NEW Fitcall:

Do The Sleeping Beauty Workout from the comfort of your own home!

Sign Up.
Call in.
Get Fit.
Be Beautiful.

>more

Eric the Trainer, Corp ("ETTC") Privacy Policy

ETTC’s privacy policy covers the collection and use of personal information that may be collected by ETTC anytime you interact with ETTC, such as when you visit our website, when you purchase ETTC products and services, or when you call our support associates. Please take a moment to read the following to learn more about our information practices, including what type of information is gathered, how the information is used and for what purposes, to whom we disclose the information, and how we safeguard your personal information. ETTC considers your privacy a top priority and we will take every measure to protect it.

Why we collect personal information
Why do we collect your personal information? Because it helps us deliver a superior level of customer service. It enables us to give you convenient access to our products and services and focus on categories of greatest interest to you. In addition, your personal information helps us keep you posted on the latest product announcements, software updates, special offers, and events that you might like to hear about.

What information we collect
There are a number of situations in which your personal information may help us give you better service. For example, we may ask for your personal information when you’re discussing a service issue on the phone with an associate, downloading a software update, registering for a seminar, participating in an online survey, registering your products, or purchasing a product. At such times, we may collect personal information relevant to the situation, such as your name, mailing address, phone number, email address, and contact preferences; your credit card information and information about the ETTC products you own, such as their serial numbers, and date of purchase; and information relating to a support or service issue. We collect information for market research purposes — such as your occupation and where you use your computer — to gain a better understanding of our customers and thus provide more valuable service. We also collect information regarding customer activities on our website. This helps us to determine how best to provide useful information to customers and to understand which parts of our websites and Internet services are of most interest to them.

The ETTC website, as well as ETTC services such as FITCALL, allows you to create an “ETT ID” based on your personal information. This convenient service saves you time and allows for easier use of our web services. Here’s how it works: You create a personal profile — providing your name, phone number, email address, and in some cases your mailing address or a credit card number — and choose a password and password hint (such as the month and day of your birth) for security. The system saves your information and assigns you a personal ETTC ID — in many cases simply your email address, because it’s unique and easy to remember. The next time you order from the ETTC Store or register a new product, all you need to do is enter your ETTC ID and password; the system looks up the information it needs to assist you.

If you use a bulletin board or chat room on the ETTC website you should be aware that any information you share is visible to other users. Personally identifiable information you submit to one of these forums can be read, collected, or used by other individuals to send you unsolicited messages. ETTC is not responsible for the personally identifiable information you choose to submit in these forums.

When we disclose your information
ETTC takes your privacy very seriously. Be assured that ETTC does not sell or rent your contact information to other marketers. At times we may be required by law or litigation to disclose your personal information. We may also disclose information about you if we determine that for national security, law enforcement, or other issues of public importance, disclosure is necessary.

How we protect your personal information
ETTC takes precautions — including administrative, technical, and physical measures — to safeguard your personal information against loss, theft, and misuse, as well as unauthorized access, disclosure, alteration, and destruction.

The ETTC Online Store uses Secure Sockets Layer (SSL) encryption on all web pages where personal information is required. To make purchases from the ETTC online store you must use an SSL-enabled browser such as Safari, Netscape Navigator 3.0 or later, or Internet Explorer. Doing so protects the confidentiality of your personal and credit card information while it’s transmitted over the Internet.

You can help us by also taking precautions to protect your personal data when you are on the Internet. Change your passwords often using a combination of letters and numbers, and make sure you use a secure web browser like Safari.

Integrity of your personal information
ETTC has safeguards in place to keep your personal information accurate, complete, and up to date for the purposes for which it is used. Naturally, you always have the right to access and correct the personal information you have provided. You can help us ensure that your contact information and preferences are accurate, complete, and up to date by logging into your account page at www.EricTheTrainer.com.

Cookies and other technologies
As is standard practice on many corporate websites, ETTC’s website uses “cookies” and other technologies to help us understand which parts of our websites are the most popular, where our visitors are going, and how much time they spend there. We also use cookies and other technologies to make sure that our online advertising is bringing customers to our products and services, such as iTunes. We use cookies and other technologies to study traffic patterns on our website, to make it even more rewarding as well as to study the effectiveness of our customer communications. And we use cookies to customize your experience and provide greater convenience each time you interact with us.

As is true of most Web sites, we gather certain information automatically and store it in log files. This information includes internet protocol (IP) addresses, browser type, internet service provider (ISP), referring/exit pages, operating system, date/time stamp, and clickstream data.

We use this information, which does not identify individual users, to analyze trends, to administer the site, to track users’ movements around the site and to gather demographic information about our user base as a whole. ETTC will not use the information collected to market directly to that person.

In some of our email messages we use a “click-through URL” linked to content on the ETTC website. When a customer clicks one of these URLs, they pass through our web server before arriving at the destination web page. We track this click-through data to help us determine interest in particular topics and measure the effectiveness of our customer communications. If you prefer not to be tracked simply avoid clicking text or graphic links in the email.

In addition we use pixel tags — tiny graphic images — to tell us what parts of our website customers have visited or to measure the effectiveness of searches customers perform on our site.

Pixel tags also enable us to send email messages in a format customers can read. And they tell us whether emails have been opened to assure that we’re only sending messages that are of interest to our customers. We store all of this information in a secure database located in Cupertino, California, in the United States.

Our companywide commitment to your privacy
As we said, ETTC takes protecting your privacy very seriously. In addition, ETTC supports industry initiatives — such as the Online Privacy Alliance and TRUSTe — to preserve privacy rights on the Internet and in all aspects of electronic commerce. And we do not knowingly solicit personal information from minors or send them requests for personal information.

ETTC’s website has links to the sites of other companies. ETTC is not responsible for their privacy practices. We encourage you to learn about the privacy policies of those companies.

Privacy questions
If you have questions or concerns about ETTC’s Customer Privacy Policy or data processing, please feel free to contact us at info@EricTheTrainer.com

Thank you.