%'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 is a one man revolution in the horse world. He has single-handedly taken the mystery out of the natural horsemanship movement by developing a straightforward system that is rapidly sweeping through the equine community. Why is Frank Bell’s 7-step safety system gaining so much recognition? It is simple and about safety, first. Bell gives riders a place to start with every single horse, regardless of age or issue. There is a definite plan with a beginning, a middle and an end. Most importantly, the system dramatically heightens horse and rider confidence. Horse owners are truly discovering horses they never knew! Bell’s career has unfolded in a variety of directions including working with Indian youth in northern Montana, prisoners who start mustangs, at-risk teens, and handicapped riding programs throughout the country. His HorsesHealingHumans Program combines these groups as wild horses find their way to carrying handicapped riders after gentling prisoners and teens along the way. " My mission," Bell says, " is to help horses and humans on all levels become more grounded in a world that is ever more rapidly headed in the opposite direction." In Bell’s demonstrations he is challenged with a variety of difficult horses he has never seen. Typically one horse will have never been ridden while others exhibit a variety of problems including extreme nervousness, foot handling, ears, bitting, bucking, rearing, kicking, biting, and charging. He patiently works his safety system while enlightening audiences as he explains the 3-T’s - theory, techniques, and timing necessary to succeed. A gifted and charismatic speaker, he delights crowds with his gentle and humane methods of dealing not only with horses, but all living creatures. His message is truly universal and inspiring. His emphasis on a straightforward system for horse and rider is the first of its kind. He gives riders the tools to determine if and when their horse is ready to ride. " Only when the rider gets a clear 'invitation' is it time to mount-up, and not one second before. What is your safety worth?" says Bell. " It’s all about riding in confidence. When both the horse and rider are confident and trust each other, amazing things open up as the partnership blossoms. When I can give this to people, I’ve succeeded," adds Bell. Event tag here____________________ Date & time, location, directions.
|
|||
|
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 |