Welcome to The New Auto Yard Website

<%@LANGUAGE="VBSCRIPT"%> <% Dim Inventory_Qry Dim Inventory_Qry_numRows Set Inventory_Qry = Server.CreateObject("ADODB.Recordset") Inventory_Qry.ActiveConnection = MM_AYNew_STRING Inventory_Qry.Source = "SELECT * FROM inventory WHERE location LIKE 'A%' AND sold = 0 ORDER BY make ASC, model, year" Inventory_Qry.CursorType = 0 Inventory_Qry.CursorLocation = 2 Inventory_Qry.LockType = 1 Inventory_Qry.Open() Inventory_Qry_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Inventory_Qry_numRows = Inventory_Qry_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Inventory_Qry_total Dim Inventory_Qry_first Dim Inventory_Qry_last ' set the record count Inventory_Qry_total = Inventory_Qry.RecordCount ' set the number of rows displayed on this page If (Inventory_Qry_numRows < 0) Then Inventory_Qry_numRows = Inventory_Qry_total Elseif (Inventory_Qry_numRows = 0) Then Inventory_Qry_numRows = 1 End If ' set the first and last displayed record Inventory_Qry_first = 1 Inventory_Qry_last = Inventory_Qry_first + Inventory_Qry_numRows - 1 ' if we have the correct record count, check the other stats If (Inventory_Qry_total <> -1) Then If (Inventory_Qry_first > Inventory_Qry_total) Then Inventory_Qry_first = Inventory_Qry_total End If If (Inventory_Qry_last > Inventory_Qry_total) Then Inventory_Qry_last = Inventory_Qry_total End If If (Inventory_Qry_numRows > Inventory_Qry_total) Then Inventory_Qry_numRows = Inventory_Qry_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Inventory_Qry_total = -1) Then ' count the total records by iterating through the recordset Inventory_Qry_total=0 While (Not Inventory_Qry.EOF) Inventory_Qry_total = Inventory_Qry_total + 1 Inventory_Qry.MoveNext Wend ' reset the cursor to the beginning If (Inventory_Qry.CursorType > 0) Then Inventory_Qry.MoveFirst Else Inventory_Qry.Requery End If ' set the number of rows displayed on this page If (Inventory_Qry_numRows < 0 Or Inventory_Qry_numRows > Inventory_Qry_total) Then Inventory_Qry_numRows = Inventory_Qry_total End If ' set the first and last displayed record Inventory_Qry_first = 1 Inventory_Qry_last = Inventory_Qry_first + Inventory_Qry_numRows - 1 If (Inventory_Qry_first > Inventory_Qry_total) Then Inventory_Qry_first = Inventory_Qry_total End If If (Inventory_Qry_last > Inventory_Qry_total) Then Inventory_Qry_last = Inventory_Qry_total End If End If %> <% Dim NewArrivals Dim NewArrivals_numRows Set NewArrivals = Server.CreateObject("ADODB.Recordset") NewArrivals.ActiveConnection = MM_AYNew_STRING NewArrivals.Source = "SELECT * FROM inventory WHERE date_rec between Now()-15 AND Now() AND sold = 0 ORDER BY make" NewArrivals.CursorType = 0 NewArrivals.CursorLocation = 2 NewArrivals.LockType = 1 NewArrivals.Open() NewArrivals_numRows = 0 %> <% Dim Featured Dim Featured_numRows Set Featured = Server.CreateObject("ADODB.Recordset") Featured.ActiveConnection = MM_AYNew_STRING Featured.Source = "SELECT * FROM inventory WHERE location LIKE 'A%' AND sold = 0 AND sug_price > 10000 ORDER BY date_rec DESC, make , model, year" Featured.CursorType = 0 Featured.CursorLocation = 2 Featured.LockType = 1 Featured.Open() Featured_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 NewArrivals_numRows = NewArrivals_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 Featured_numRows = Featured_numRows + Repeat2__numRows %> Welcome to The New Auto Yard Website

Buy Cars Directly from Auctions Nationwide!

JOIN OUR RESELLER PROGRAM: When you sign up for Auction Buying Services with us, you'll be able to bid at Copart Auto Auctions nationwide (in all 50 states) within minutes... No need to ask any dealer to buy cars on your behalf anymore... "With our program, You Search, You Find, You Bid, You Buy!" It's that easy! If you need additional information, feel free to call us at 603-898-9702.

Our registration process will take less than ten minutes. Once your registration fee and security deposit has been processed, an automatic email with your BUYER ID and PASSWORD will be emailed to you at the address you provided.

Other Services...

	Vehicle Dismantling: We provide staff and tools needed to dismantling your vehicles to be loaded into container. vehicles could be dismantled different way into the containers. Please call us Tel: 1-603-898-9702

	Vehicle Transport: We provide staff and tools needed to dismantling your vehicles to be loaded into container. vehicles could be dismantled different way into the containers. Please call us Tel: 1-603-898-9702

	Container Loading and Shipping: To transport your vehicle from the auctions to the departure ports direct, or to our facilities for it to be loaded into containers. We arrange from single car movements to full load of vehicle nation wide.

	Roll On Roll Off (RoRo): This is by far the easiest way to ship your vehicles. Driven into the ships fastend and secured inside the covered car deck by a series of straps and braces. Safe & secure. Call us Tel: 1-603-898-9702 for prices and service location to your destination.