%'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
%>
|
|
|||||||
Stallion Problems" The biting is so out of control, and the rearing up at me is ridiculous..."Good Evening, I'm writing you because I have invested in a horse that was not broken at all by no means, except had a harness on....make a long story short, I have been training him by myself, alone, and now I'm able to get a lead on him w/out having a horse cookie in the air to make him raise his head. The biting is so out of control, and the rearing up at me is ridiculous, well tonight was the night, as usual we go for a walk around the next door neighbors' pasture where he stays till my fencing is done which is in the next week or so, because I wasn't ready for him to start lunging at me and raring up in the air at me and when he did his front hoof slapped my hand, he was coming at me so fast and hard I just wasn't ready, yesterday when we were walking, I walk him on a lead everyday out of the pasture sometimes because I'm trying to let him see I love him and I'm trying to gain his trust. Anyway, I myself got caught in some barbed wire. Well I didn't want him to get hurt but by the time I even blinked his back leg was somewhat in it but as he pulled back and was scared I was holding the lead as he was freaking out till his back leg got out, if I would have let go I would have lost him because he would have ran, it went around me like a lasso, my leg is pretty bad but I didn't want him to get it so I let it happen to me instead, I just didn't know how bad off my leg was. There was blood everywhere and Little Joe is perfectly fine, and truthfully that's all I cared about, I did wind up in an emergency room though, but anyway how do I stop him from coming at me lunging in the air w/ his 2 front legs? Why does he do that? He hasn't ever had it so good trust me.....The lady that lives behind us never went and spent time w/ him or anything else at that matter, not even kept up w/ feeding him. So when I took over, he now gets two 4qt scoops of Horse and Mule feed (Sweet Feed) and some horse snacks everyday, he lets me kiss him on his head now, somewhat brush his mane now, lets me rub on him towards his belly but I haven't gone any further, he bruised my hand but I'm scared because that could have been my head, if I wasn't paying attention, we will be walking and everything is fine and all of a sudden he will just get around in front of me and lunge at me, I truly love him and have money invested already, I just want him to be gentle and sweet, I spend hours w/ him everyday sir, there isn't a day goes by that I'm not over next door feeding him, spending time with him, loving on him when he lets me, sometimes he is absolutely delicious w/ me but tonight really scared me. Please write me back. I'm 34yrs old and truly want to raise this horse and make him a sweet baby, I live on 5acres and I'm in the middle of building him a beautiful large space on my property w/ a barn and everything, I also have 5 dogs, 2 cats, 1 show bunny from the farmers of America and one baby angora like bunny, as you can see I'm an extreme animal lover, and Little Joe is already spoiled to the core but this is my first time ever breaking a horse. Below is my home address and my email address..............Hope you can help me. PS: Lady I got him from says he is a registered paint horse, she hasn't found the papers for me yet.....no biggie to me.......by the way he isn't gelded yet because I'm waiting for him to completely drop so when he does the vet will get it all and not leave any. Oh and he is about 1yrs old, not shoed yet either, nor has had a bit in his mouth yet, just harness and lead. Thank You, Desiree Leto, Texas
|
|
|||||||
|
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 |