<%@LANGUAGE="VBSCRIPT"%> <% set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_connDUclassified_STRING 'rsCat.Source = "SELECT CATS.CAT_ID, CAT_NAME, CAT_IMAGE, (SELECT COUNT (*) FROM ADS WHERE ADS.CAT_ID = CATS.CAT_ID AND AD_APPROVED = 1) AS TOTAL FROM CATS ORDER BY CAT_NAME ASC" rsCat.Source = "SELECT CATS.CAT_ID, CAT_NAME, CAT_IMAGE, (SELECT COUNT (*) FROM ADS WHERE ADS.CAT_ID = CATS.CAT_ID ) AS TOTAL FROM CATS ORDER BY CAT_NAME ASC" rsCat.CursorType = 0 rsCat.CursorLocation = 2 rsCat.LockType = 3 rsCat.Open() rsCat_numRows = 0 %> <% set rsSub = Server.CreateObject("ADODB.Recordset") rsSub.ActiveConnection = MM_connDUclassified_STRING rsSub.Source = "SELECT * FROM SUBS ORDER BY SUB_NAME ASC" rsSub.CursorType = 0 rsSub.CursorLocation = 2 rsSub.LockType = 3 rsSub.Open() rsSub_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsCat_numRows = rsCat_numRows + HLooper1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> LAZY J Classifieds

Horse Hauling - Horse Shipping
Find a Ride - Find a Load
Horse Transportation
CLASSIFIED ADS

ADS HOME | PLACE AN AD | MANAGE YOUR ADS | REGISTER

SEARCH

SEARCH AND RESPOND TO ADS FREE
Only Members may Place or Modify Ads !

<% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = -1 while((numrows <> 0) AND (Not rsCat.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsCat.EOF)) %> <% startrw = startrw + 1 rsCat.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" align="absmiddle" border="0" alt="<%=(rsCat.Fields.Item("CAT_NAME").Value)%>">

<%=(rsCat.Fields.Item("CAT_NAME").Value)%> (<%=(rsCat.Fields.Item("TOTAL").Value)%>)
<% varID = rsCat.Fields.Item("CAT_ID").Value rsSub.Filter = "CAT_ID = " & varID While (NOT rsSub.EOF) %> <% =(DoTrimProperly((rsSub.Fields.Item("SUB_NAME").Value), 10, 1, 0, " "))%> <% rsSub.MoveNext() Wend %>...

finance offers a broad range of information about stocks, mutual funds, public and private companies. In addition, Google Finance.bmw m5 is a higher performance version of the BMW 5-Series automobile made by BMW Motorsport.Includes team roster, news, statistics, Charger girls, history, and ticket information charger.The Munich company's flagship sedan was nothing less than everything the company knew about car building, and that was quite a lot. 2002 bmw.Search through thousands of used 2000 nissan.Britannica online encyclopedia article onfinance company.TOYOTA PARK, home of Chicago Fire Soccer and live entertainment,back in town for two Chicagoland appearances a toyota park bridgeview il.suzuki katana GSX-F Discussion Forums - KatRiders.com KatRiders.com Suzuki.Joomla! - the dynamic portal engine and content management system. shoping.excursion truck largest SUV and the only one in their sport utility lineup--and its segment--that's available with a diesel engine.Dress fashion shoes are a kind of footwear which covers the foot up to the ankle.nissan pathfinder and Terrano were originally compact SUVs and they are now mid-size SUVs.We have 413 used BMW 330 cars for sale in UK. Search for your next used bmw 330.Online classifieds reserved exclusively for jeeps.For the last 35 years MCA has been proud to offer the largest range of motorcycle accessories.View all new and usedtoyota.Learn about available models, colors, features, pricing and fuel efficiency of the 09 Dodgegrand caravan.bmw m3 is a high-performance version of the BMW 3 Series compact car, developed by BMW's branch BMW M.Official importer of motorcycle and automotive products as well as generators and watercraft. Also contains latest news and sports results. 2006 suzuki.Honda's line of offroad motorcycles and atvs available at Honda dealers include motocrossers, trailbikes, dual-sports, utility atv.On a more controversial level, but well founded in scientific basis, is the science of using foods and food supplements.bmw m3 convertible price, specs and more. Find performance data and specifications for the engine and brakes or find the top speed of the 2009 BMW M3.The 325is was an upgrade from the standard bmw 325xi.Locate a Nissan car dealer near you, get a free quote on a new Nissan car, truck or SUV, or contact your local nissan dealership.Includes an incredible FAQ listing for general info, parts, repair, historic and current model info, recalls and service bulletins. The bmw repair.Print out a personalized cruise travel.Dodge - 2009 Ram 2500 and Ram 3500 - 4x4 truck