<% ' Open the Inventory Database Dim accessdb, cn, rs, sql accessdb="inventory" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) sql = "SELECT * FROM Inventory" Function CheckFileExists(sFileName) Dim FileSystemObject, Mappath_FileName Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Mappath_FileName = Server.MapPath(sFileName) If (FileSystemObject.FileExists(Mappath_FileName)) Then CheckFileExists = True Else CheckFileExists = False End If Set FileSystemObject = Nothing End Function %> Truck's , Van's & SUV'sAre you looking for a particular vehicle? Then  let us know, we can help you? (304) 267-7172 <% ' Open database set rs = server.createobject("ADODB.Recordset") rs.Open sql, cn ' Loop through database and look for specific items Do While Not rs.EOF If rs.Fields("Type").Value = "SUV" OR rs.Fields("Type").Value = "Van" then If rs.Fields("From").Value = "D" then %> <% End If End If ' Move to next record rs.MoveNext ' Continue Loop Loop ' Close our recordset and connection and dispose of the objects rs.Close Set rs = Nothing %> Make/Model & Details (Photo) Click on link below Year Photo & Details Stock # Chrysler Aspen Limited Sport Utility 4D 2007 2737A Dodge Dakota Quad Cab SLT Pickup 4D 5 1/2 ft 2007 2750 Dodge Ram 1500 Quad Cab SLT Pickup 4D 6 1/3 ft 2009 2686 Dodge Ram 1500 Quad Cab SLT Pickup 4D 6 1/3 ft 2010 2698 Dodge Nitro SXT Sport Utility 4D 2010 2733 Ford Ranger Regular Cab XL Pickup 2D 6 ft 2008 2723 GMC Acadia SLE Sport Utility 4D 2009 2688 Honda CR-V EX Sport Utility 4D 2005 2721A Jeep Wrangler Unlimited X Sport Utility 4D 2009 2722A Kia Sportage LX Sport Utility 4D 2009 2757 Lexus RX 350 Sport Utility 4D 2009 2642 Mercedes-Benz R-Class R350 Sport Wagon 4D 2006 2718a Suzuki XL7 Sport Utility 4D 2007 2714a Toyota FJ Cruiser Sport Utility 2D 2007 2713 <% End If End If ' Move to next record rs.MoveNext ' Continue Loop Loop ' Close our recordset and connection and dispose of the objects rs.Close Set rs = Nothing %>  Heffle Motor Company 993 HEDGESVILLE RD Martinsburg, WV 25402 Phone: (304) 267-7172, Fax: (304) 267-9522