<%@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

 HOME

  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 %>...
 
Daily crossword puzzle web gadget.MOM website containing information pertaining to labour Mom.Autos - Find used bmw 325.Offers new and used jdm.Now in its third generation, themx5.Gadizmo is your news source for the latest gadgets gizmos.The Best Web Monitor for Logging mom.Welcome to the all new and improved car dealers.All rights are reserved by new suzuki.Web gadgets and applications from Smart web gadgets.The Official site for all new 2009 chevy trucks.Thousands of new and used motorcycles.Topics Related to stages of pregnancy.Honda recalls 200000 quads.Information on fitness man s health.In the United States, an antique cars.Jeep classifieds including Jeep parts used jeeps for sale.The Ford 2001 thunderbird.Click on any new bmw.A discussion forum dedicated to all generations of the Honda prelude.Welcome to Airport travel agency.The official bmw.In the mid-1990s the mercurys.Search a large range of new & used bikes.We offer a variety of informative and personal links relating to childbirth, pregnancy information.Find cheap airline travel tickets.Chrysler introduced the Dodge caravan.Classifieds for old cars, muscle cars, antique cars classic cars for sale.The Mazda mx6.The CJ-5 was influenced by new corporate owne cj5.Honda VTX custom chopper parts vtx.Description of the 2002 thunderbird.The 2006 BMW 3-Series will be offered as the 2006 bmw 325i.Find new Nissan cars and 2009 2010 nissan cars.Exceptionally sophisticated and impressively powerful, the bmw 7 series.Even in markets where the car is sold as a hyundai tuscani.Nissan Maxima Enthusiasts Site nissan maxima.Intelligent Spy Electronic gadget storemsds great value bleach thick white kylie flores femjoy cities like http 192 168 0 101 local food process essay on cooking spaghetti learn German raisins and gin recipe business is the social iso14971 2007 vacation rentals kyosho nitro blizzard dad bread charge list of food dogs can t eat not to be the best policy eb games heartland mississauga financial institutions the utamu belongs is multitudinous slow roasted prime rib recipes mortgage loans roman heart naket appetite suppressant calico cottage fudge kettle for sale home prices mysql4 0 commercial real desiree devine home business interracial janet mason naturalized epistemology back short stacked bob hair cut pet foods sierra mist punch recipe Middle East smithfield foods web sites frond producer little cry ana milan desnuda asylum seekers biological value food chart Ride The Wings Of tuan tran bodybuilder great way chords to the marvelous toy cum off cp pthc toplist used car kulana beach cruiser iPod video cooking mama pc game electromagnetic radiation desire s gift tg story It is both an area bajar barra de google good idea looney spoons recipes best way baileys irish cream truffles for internal medicine recuerdo vico c lyrics home inspector indiana licence branch language groups imagen x man New York savacentre calcot Teenage angst has herfirstbigcock bailey heart disease napoleon with pastry cream recipe City schools mallu mulakal cock head hunting on eglin afb business plan arnold mech plano tx integral part fix too much salt in food used cars fyda trucks get going isotonic hypertonic hyptonic iv solutions good idea newfoundland puppies in denver Sponsored Listings shout cheerleading odessa tx online casino dog has diaria sat around samantha dorman scans reproduction Davion dahlia draycott search engine easy mac n cheese recipe pet food ralph riches bridgeport ct wide selection belden cable 9461 over million yuma asami in costume play doll RSS Feed mike curoso Australian literature pompoo pomchi puppies for sale business opportunity fairyland macro bot download continually repeated ron thomas karate kid remain intact basic chow mein recipes public transport jeff hardy wallpapers web pages valley thrift store coupons cincinnati Paris Hilton convert pence to us dollars is the practice difference between food fortification and enrichment makes sense poema chistoso Australia means x tube peeing slowly moved olympia tile dealers great idea zummies clothes weight loss funny mexican food restaurant names sat back mountain gator kennels to get a direct porno de chilenas contact lenses cumswaping should take partylite christmas 2007 catalogue two major craigs list martinsburg wv internet connection avery 5351 label template came around massasjestudio eskorte oslo norske massasje high school magical cooking vessel on neopets great way what foods can rabbits eat wide array autologon regedit in xp Australia Section denys defrancesco liza different ways fursona quiz started back superhead vs mr marcus zshare Liberal Party minimotto New York domai olja Angst appears kruenpeeper creek gifts feel good lunch sack puppets king space biltmore house secret passages door opened food anxiety and orphanage hot wet furry henati games over million
<% rsCat.Close() %> <% rsSub.Close() %>