% ' 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") %>
eHorseHotline.com Electronic Horse Network receives over 2 million hits a month! (218) 743-6477 Email eHorseHotline.com |
eHorseHotline.com Directory Listings |
Horse Products and Service Directory by Category |
|||||||||||||||||||||||||||||||||||||
|
|
Affiliate Network |
|
Find what you need... | |
|