%'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
%>
|
|
|||||||
Horse Bit/Bridling Problems: Introducing The Bit" ...how can I bit train him?"Howdy Mr. Bell First allow me to tell you that I am enjoying the heck out of your website. I have been glued to the screen for hours upon hours reading just about everything on it. Thank you so much for giving us the free 7 step training program. I, like your emailer Linda, also have a gelding who is out of control. I'm not sure if he is a Proud Cut or not or if the saying is even true. I have been searching the Net to find out about Proud Cuts and some seem to say it is a myth and others go in the opposite direction. Anyhow, the horse I acquired is a 7 year old Arab/QH Cross. According to the previous owner, he has been ridden by a 12 year old and her while she was pregnant although he hasn't been ridden in a year. I did some round pen work with him the other day, but he seemed to pop up his front legs because my mare is in heat and she was " calling" him and he wanted to be in the barn with her. He is absolutely beautiful and I am now falling in love with him. He has attacked my 4 year old son, has tried to bite my 9 year old daughter and even charged me, my mother, and my cousin. He only acts " crazy" when my mare is in heat. I have only had him since June so I am trying to get a feel for him. I truly believe your 7 steps will help us to gain trust between the two of us and things will only get better. My question to you is...How can I bit train him? He has only been ridden with a hackamore and I really want him to take the bit. And will you recommend what type of bit I should use with him. I am only going to trail ride him and then train him myself to racing western nest summer...i.e. barrels, poles...etc. I have read your response to Amber about putting molasses on the bit and about the pressure of lowering is head and releasing in praise (7 steps), but do you feel there is a possibility that I can bit train him and if so how? I hope this is not asking too much! Thank you Mr. Bell, I am so happy to have found your site! You are a true inspiration to all horses and horse lovers. Liz Marcozzi :)
|
|
|||||||
|
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 |