<%
' Declare our vaiables
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim bUseImages ' boolean whether or not to use images
Dim I ' standard looping var
strCountFileName = Server.MapPath("admin\guestcount.cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 666
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
'Response.Write iCount
%>
"
Gypsy Horse World Show "
at Fort Worth Stock Show
We
are so VERY PROUD of our clients who bought horses
from
A Wizards Spell Ranch.
They have spent many hours at clinics and
private sessions at our ranch
( no charge for this service to our clients )
learning how to show, how to groom, and the "tricks of the trade" to succeed
at shows.
Clearly, they have risen to the top !
THANK YOU
for making me a proud breeder.
Linda Brown
2010 Gypsy
Horse World Show
Photos and info HERE
2009
Gypsy Horse World Show
Photos and info HERE
Purchase your future Gypsy Show Horse from us and
learn and join the fun !
On a side note.........regarding the GHRA Registry.
The
Gypsy Horse Registry of America, Inc. took on the massive responsibility of
putting on our World Show.
The number of hours put in by Jan Easter and
Priscilla Cox so that the membership of this registry
could shine in front of
the public as well as providing a one of a kind show opportunity cannot be truly
acknowledged.
We THANK YOU for what you do for the entire membership on a
VOLUNTEER basis !
Back
to HOME