%'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
%>
|
|
|||||||||
Safe and Simple typify Frank Bell’s approach to Natural Horsemanship. His horse training techniques embrace gentle handling with advanced communication. Frank’s methods are being taught by his certified partners and mastered by horse people worldwide. Frank’s unique 7-Step Safety System is truly placing the horse and rider on higher ground as they do indeed " Discover Horses They Never Knew."
The Natural Horsemanship Movement embodies a revolution in horse-handling techniques that gained momentum as the last century came to a close. Today horsemen and women are rapidly embracing this evolved movement. No trainer has made this revolutionary philosophy more accessible than Frank Bell. What makes Bell’s approach so different? He has single-handedly taken the mystery out of the natural horsemanship movement and created a logical set of exercises that put a solid foundation underneath the horse and rider. Most importantly, it is easy to understand and implement immediately! And you do not need a round pen! This does not take years of practice and multiple tests. It's about having a plan and working it right now. If the horse is ready, he'll invite the ride. If he isn't ready to ride, don't. This is about safety! When the invitation does come from the horse, a true partnership exists that will carry them both to amazing places. The results of Frank Bell's training are showing up in riding programs and stables throughout the world. His success in curing the most difficult problems is truly legendary. Frank Bell’s ability to share his gift with riders by giving them a distinct starting place with all horses has brought him wide acclaim and a rapidly growing following. Join Frank Bell’s Gentle Solution Revolution ™
|
| |||||||||
|
Copyright © 2000-2005 by Dances With Horses, Inc., P.O. Box 819, Rexburg, ID 83440, Phone & Fax: (800) 871-7635, E-Mail: frankbell@horsewhisperer.com |