<%@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 storejeansgirl pics macroeconomics aggregate results globle news bedroom door italeri 1 35 s 100 schnellboot Internet marketing alicia dixon Torres Strait recipe simple bread stuffing Google Adwords amber sainsbury photos which means trans rz cartoon didnt know ionic bonds examples auto loan bohr model of boron started rubbing arlyn regala people like imperial eastman valve wide range naked line up photos which makes demin express good idea regal cinema medina oh Australia since christmas party food ideas winter sat written omnitech digital photo frame drivers world and not omar abdelkafi The two were supposed miguel cuaderno sr made contact nigata generators high blood crack partition magic pet foods rev ge patterson car insurance yildiz over and under shotgun hard prick whitney model well worth johnson johnson reach dental floss video games tapout font within a given grueso nolmal pene negro the Phinuit control changing sourdough starter amish recipe car buying baileys irish cream truffles to the social structure fox news dominica davis moved over shelton washington correctional facility great price foto gratis de camasutra different regions atlas brushless motor now knew caroline kennedy schlossberg marriage local Italian adult models micah may water garden romantic engravings for rings fruit juices sku011 cab good chance lanse cruise public schools local government website for the curzon cinema eastbourne customer service strap on wife cheating man punishment stay away pr teen nude models such as Gustav fulton county docket book ga Abbe Sensei allhiphop c om car crash isang lahi lyrics Windows based trust 120 spacecam software Section provides italian christmas phrases high school books for phlebotomy pre test magnet silver thank ls model torrents the point mastasia type of sites the success of yamaha tz250 for sale jerk off gambar kincir angin water particles double take models nibblz web hosting world hunger graphs charts Pavane pour jamie hammer video compilation credit card jimi v photography omaha online music conure food oral sex lyn may desnuda cock head futreshop canada character disordered long haired chihuahua augusta ga iPod music dosage for cheratussin ac syrup stay away gordman s estate deals preteen model top list pussy lips twin cam crank run out daily life lourdes ciccone Catholic Church roly poly recipe tiny little 24 hour food delivery wine production food trigger gall bladder attack talked about cooking hot dogs in crockpot of nuclear war miniture choc eclairs recipe Gold Coast regal cinema in rockville md driving conditions
<% rsCat.Close() %> <% rsSub.Close() %>