%'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
%>
|
Frank Bell's Gentle Solution Revolution™ Natural horsemanship clinics, horse training techniques and unique horse training products using Horsewhisperer Frank Bell's acclaimed Gentle Solutions. Frank's Safe and Simple techniques for training horses can achieve instant results - even with problem horses! Making it Simple! Making It Safe! Get There Now! |
|
|
|
Site Menu |
|
|
|
|||
<%
page = Request.ServerVariables("SCRIPT_NAME")
p = split(page, "/")
CurrentPage = P(Ubound(p))
'Response.write currentpage
%>
|
|
|||||
Frank Bell performs for crowds in an interesting variety
of venues; some involve horses and some don't.
Bell's message truly applies to all walks of life from family to business and most importantly to relationships. The 7-Step Safety System he designed to help horses makes perfect sense in the human realm because it begins with giving. We invite you to explore our options equine and otherwise.The sequence of exercises that works so well for Frank Bell with horses is amazingly applicable in the human realm. These principals make perfect sense relating in business, with family, co-workers, friends, and life in general. With horses Frank begins by trying to make the most incredible first impression and melting the horse with his keen sense of touch. Years ago a man named Dale Carnegie understood the huge importance of first impressions and made a career with his training and best seller, "How to Win Friends and Influence People.” These timely principals make perfect sense in today’s challenging times. When we watch Frank approach a wild stallion and within 45 minutes have the animal eating out of his hands, we wonder why this would not work with our toughest clients. The truth of the matter is it can. Frank weaves his winning philosophy into his interesting variety of venues. Option 1Frank’s captivating style is captured in a spellbinding documentary A Day in the Life of a Horsewhisperer. This work is as fascinating to lay people as it is to horse people. Watch as he gentles several "difficult horses," then makes the logical transition right into our everyday lives. Bell then opens the floor to a predictably interesting variety of questions. This venue is ideal before or after dinner.
Option 2Frank actually transforms a difficult horse into a trusting riding partner and explains the journey in laymen’s terms. The exact principles he uses to help the horse face his fears carry over right into our everyday lives. The importance of trust building, goal setting, advanced problem solving, and exacting preparation make this demonstration one not easily forgotten. Frank’s documentary A Day in the Life of a Horsewhisperer compliments this venue before or after a meal. A period of question and answer is built into this venue as well.
Option 3Frank performs an actual hands-on clinic with your clients as they learn the subtle art of communicating with horses first on the ground, then ultimately in the saddle. This total emersion for your clients requires serious focus and a keen appreciation of the exacting timing necessary to succeed with horses. This same level of forced concentration will tune up your clients and better prepare them for upcoming challenges. Frank’s documentary A Day in the Life of a Horsewhisperer is available on either side of dinner with this venue. Frank is available for the lively questions that follow this highly successful day of real experience.
To reserve a date for a speaking engagement with Frank Bell, please contact our booking office at 1-800-871-7635 or email frankbell@horsewhisperer.com
|
|
|||||
|
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 |