<%'Vince's cool stuff%><% ' Horse Whisperer ' Affiliate ID tracking script ' Vince Withee - revisted 06/09/2005 ' store/get variables ' sitedomain = "horsewhisperer.com" ' uncomment this when going to production sitedomain = "cart32.com" ' delete this line when going to production cartdomain = "cart32.com" referrer = lcase(Request.ServerVariables("HTTP_REFERER")) IP = Request.ServerVariables("REMOTE_ADDR") affID = request("aid") ' make valid MySQL date m = CStr(Month(date)) d = CStr(Day(date)) y = CStr(Year(date)) if len(m) < 2 Then m = "0" & m if len(d) < 2 Then d = "0" & d newdate = y & "-" & m & "-" & d 'write info to affiliates db 'connect to db Set globaldb = Server.CreateObject("ADODB.Connection") globaldb.Open "Provider=MSDASQL.1;Extended Properties=""DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=horsewhisperer;SERVER=localhost;UID=horsewhisperer;PASSWORD=a8234ra;PORT=3306;OPTION=0;STMT=;""" set rs = Server.CreateObject("ADODB.RecordSet") ' Referrer doesn't come from site domains If InStr(referrer, sitedomain) = 0 Or InStr(referrer, cartdomain) = 0 Then sSQL = "INSERT INTO AffiliateOrders (affID, OrderNum, TotalSale,url, ip, date, time) VALUES ('" & affID & "', '', '', '" & referrer & "', '" & ip & "', '" & newdate & "', '" & time & "')" ' response.write sSQL & "

" & vbcrlf globaldb.execute sSQL End If // Delete old entries, but not every time Randomize x = CInt(rnd * 100) ' x = 50 If x = 50 then ' just a random number to help eliminate it running the delete query every time sSQL = "DELETE FROM AffiliateOrders WHERE ordernum = '' AND date < '" m = CStr(Month(date)) d = CStr(Day(date)) y = CStr(Year(date)) if len(m) < 2 Then m = "0" & m if len(d) < 2 Then d = "0" & d newdate = y & "-" & m & "-" & d ssQL = sSQL & newdate & "'" ' response.write sSQL & "

" & vbcrlf globaldb.execute sSQL End If %> Horse Training Videos, Horse Training Equipment & Natural Horsemanship Clinics by Frank Bell, Horsewhisperer

Get Free E-Newsletters  |  Products  |  Site Search    

   

Site Menu

<% page = Request.ServerVariables("SCRIPT_NAME") p = split(page, "/") CurrentPage = P(Ubound(p)) 'Response.write currentpage %>

<%if Currentpage="index.html" then%> Home Home
<%else%> Home Home
<%end if%>
<%if Currentpage="about_frank_bell.htm" then%> About Frank Bell About Frank Bell
<%else%> About Frank Bell About Frank Bell
<%end if%> <%if Currentpage="natural_horsemanship.htm" then%> Natural Horsemanship Natural Horsemanship
<%else%> Natural Horsemanship Natural Horsemanship
<%end if%> <%if Currentpage="philosophy.htm" then%> Horse Training Philosophy Horse Training Philosophy
<%else%> Horse Training Philosophy Horse Training Philosophy
<%end if%> <%if Currentpage="horse_training_methods.htm" then%> Horse Training Methods Horse Training Methods
<%else%> Horse Training Methods Horse Training Methods
<%end if%>
<%if Currentpage="horse_training_videos.htm" then%> Horse Training Videos Horse Training Videos
<%else%> Horse Training Videos Horse Training Videos
<%end if%> <%if Currentpage="equipment.htm" then%> Horse Training Equipment Horse Training Equipment
<%else%> Horse Training Equipment Horse Training Equipment
<%end if%> <%if Currentpage="horse_training_packages.htm" then%> Horse Training Packages Horse Training Packages
<%else%> Horse Training Packages Horse Training Packages
<%end if%>
<%if Currentpage="training_and_event_schedule.htm" then%> Clinic and Event Schedule Clinic and Event Schedule
<%else%> Clinic and Event Schedule Clinic and Event Schedule
<%end if%>
<%if Currentpage="clinics_and_training.htm" then%> About Clinics and Training About Clinics and Training
<%else%> About Clinics and Training About Clinics and Training
<%end if%> <%if Currentpage="demonstrations.htm" then%> Horse Shows and Expos Horse Shows and Expos
<%else%> Horse Shows and Expos Horse Shows and Expos
<%end if%> <%if Currentpage="executive.htm" then%> Executive Development Executive Development
<%else%> Executive Development Executive Development
<%end if%> <%if Currentpage="keynote_speaker.htm" then%> Keynote Speaking Keynote Speaking
<%else%> Keynote Speaking Keynote Speaking
<%end if%>
<%if Currentpage="certified_horse_trainers.htm" then%> Certified Horse Trainers Certified Horse Trainers
<%else%> Certified Horse Trainers Certified Horse Trainers
<%end if%> <%if Currentpage="horse_training_tips.htm" then%> Horse Training Tips Horse Training Tips
<%else%> Horse Training Tips Horse Training Tips
<%end if%> <%if Currentpage="horse_problems.htm" then%> Horse Problems Horse Problems
<%else%> Horse Problems Horse Problems
<%end if%> <%if Currentpage="working_wild_horses.html" then%> Working With Wild Horses Working With Wild Horses
<%else%> Working With Wild Horses Working With Wild Horses
<%end if%> <%if Currentpage="testimonials.htm" then%> Testimonials Testimonials
<%else%> Testimonials Testimonials
<%end if%>
<%if Currentpage="articles_by_frank_bell.htm" then%> Articles By Frank Bell Articles By Frank Bell
<%else%> Articles By Frank Bell Articles By Frank Bell
<%end if%> <%if Currentpage="newsletters.htm" then%> Newsletters Newsletters
<%else%> Newsletters Newsletters
<%end if%> <%if Currentpage="news_and_press.htm" then%> News and Press News and Press
<%else%> News and Press News and Press
<%end if%> <%if Currentpage="horse_links.htm" then%> Horse Links Horse Links
<%else%> Horse Links Horse Links
<%end if%>
<%if Currentpage="AffiliateProgram.asp" then%> Affiliate Program Affiliate Program
<%else%> Affiliate Program Affiliate Program
<%end if%> <%if Currentpage="charitable.html" then%> Charitable Fund Charitable Fund
<%else%> Charitable Fund Charitable Fund
<%end if%>
<%if Currentpage="contact_us.htm" then%> Contact Us Contact Us
<%else%> Contact Us Contact Us
<%end if%>

 

 

Translate This Site!

This site may be translated into any of these eight languages:

 

ChineseGermanJapaneseKorean

FrenchItalianPortugueseSpanish

Translate Now

Image

Image

Image

Dances With Horses  
Gentle Solutions

Frank R. Bell

www.horsewhisperer.com

800-871-7635

 

Image

Image

Thank you for your interest in our charitable fund.

 

With numerous requests for donations coming in every year, we’ve decided to establish our own fund in conjunction with an existing strong community foundation. This frees us up from the troublesome paperwork required by law and allows us to focus on giving to appropriate organizations that are 501c3 entities. The following are organizations that we will focus on.

  • Horse rescue programs
  • Therapeutic riding programs
  • Pro-horse legislation
  • Trail improvement programs
  • Land conservation and preservation
  • Global crises situations

 

While our major interest is horse related, we will not shy away from a major crisis such as hurricane Katrina and the New Orleans debacle or the tsunami of several years ago.

 

Preservation of land from development is another one of our goals. We are working with landowners, horse related and otherwise in setting up conservation easements that will preserve open land in perpetuity. We are eager to work with you on this and any conservation related issue.

 

When the day comes that I am gone, hopefully my books and DVDs will continue to sell at a brisk rate and the proceeds will go into this fund, as will the bulk of my own estate.  

We strongly encourage you to help make this a success. All donations are tax deductible and our records are available online.

 

Please make your tax deductible check to:  Community Foundation of Jackson Hole.  

Designate Dances With Horses Charitable Fund on the memo line.

 

Send to:

Dances With Horses Charitable Fund

Box 819
Rexburg,
Idaho 83440

 

IN Spirit, Frank Bell

 

 

 

 

 

 

 

 

 

 

 

 

 

Privacy Policy   |   Terms of Use

Copyright 2000-2005 by Dances With Horses, Inc., P.O. Box 819, Rexburg, ID  83440, Ph: (800) 871-7635, Fax: (208) 356-7817, E-Mail: frankbell@horsewhisperer.com