<% ' this indicates vb script dim conn dim rsdir dim ssql dim catid dim cat dim bid dim bus dim con dim state dim prod ' get the value of the category id sent in from either the directorylistingindex page or this page calling itself catid = request("n") if catid = "" then catid = "0" catid = clng(catid) cat = request("l") bid = request("bid") if bid = "" then bid = "0" state =request("state") bus = request("bus") con = request("con") prod = request("prod") ' open a connection to the database set conn = createobject("ADODB.CONNECTION") conn.ConnectionString = "Provider=SQLOLEDB; Data Source=216.235.170.82; Initial Catalog=ehorsehotline; User Id=eHorseHotlineReader_user; Password=r3ad0nly" conn.Open ' open a recordset which is used to get the data from the database set rsdir = createobject("ADODB.RECORDSET") %> Horses Products, Horse Services, Horse Clubs, Horse Associations...
eHorseHotline.com - The online source for all things horse. Horses for sale, horse products and horse services.
Affiliate Network
Find what you need...
eHorseHotline.com
Electronic Horse Network
recieves over 2 million
hits a month!

(715) 796-2200
Email eHorseHotline.com

eHorseHotline.com
Next 30 Day
Events Calendar
View by various options using links
below & at the bottom of this page.

eHorseHotline.com - The online source for all things horse. Horses for sale, horse products and horse services.

eHorseHotline.com - The online source for all things horse. Horses for sale, horse products and horse services.
View by......
View Only...
Barrel Races
Rodeos
Ropings
Futurities
Mounted Shooting




February
S
M
T
W
T
F
S
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

March
S
M
T
W
T
F
S
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


Please scroll to the bottom of the page for additional views by: Event Type, State or Sanction.
This page shows only events for the next 30 days and changes daily.
Every effort is made to post accurate information however we recommends you CALL BEFORE YOU HAUL!
Special Thanks to our paid advertisers who make this events calendar possible!


<% 'clean up all objects opened if not (rsdir is nothing) then if rsdir.State = 1 then rsdir.Close set rsdir = nothing end if if not (conn is nothing) then if conn.State = 1 then conn.Close set conn = nothing end if %>