<% ' 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=dba1814; Password=gpo943"
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, Horse Events...
The United Barrel Racing Association is proud to sponsor the
Featured Barrel Racer & Featured Horse
<%
'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
%>
