<%@ Language=VBScript %> <% Dim strConnect %> <% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConnect %> <% Dim objRS1, txtSql1 txtSql1 = "SELECT * FROM Inventory" Set objRS1 = Server.CreateObject("ADODB.Recordset") objRS1.Open txtSql1, objConn While NOT objRS1.EOF %> <% objRS1.MoveNext Wend objRS1.Close Set objRS1 = Nothing %>
Home

<% Dim objRS, txtSql txtSql = "SELECT * FROM Inventory ORDER BY MakeModel" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open txtSql, objConn While NOT objRS.EOF %> <% objRS.MoveNext Wend objRS.Close Set objRS = Nothing %> Image Stock # VIN # Year New / Used Make and Model Color Mileage Price Description Added ()">Picture <%= objRS("StockNumber") %> <%= objRS("VIN") %> <%= objRS("Year") %> <%= objRS("NewUsed") %> <%= objRS("MakeModel") %> <%= objRS("Color") %> <%= objRS("Mileage") %> <%= FormatCurrency(objRS("Price")) %> ()">Description <%= objRS("Added") %>

Home | View Inventory | Specials of the Week | Sales Staff | Warranties | Payment Calculator | Map to Tom's Auto | Contact Us

<% objConn.Close Set objConn = Nothing %>