Preferred Auto Leasing

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsModels Dim rsModels_numRows Set rsModels = Server.CreateObject("ADODB.Recordset") rsModels.ActiveConnection = MM_NYLeasing_STRING rsModels.Source = "SELECT * FROM Models" rsModels.CursorType = 0 rsModels.CursorLocation = 2 rsModels.LockType = 1 rsModels.Open() rsModels_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsModels_numRows = rsModels_numRows + Repeat1__numRows %> Preferred Auto Leasing

<% While ((Repeat1__numRows <> 0) AND (NOT rsModels.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsModels.MoveNext() Wend %>

"alt="" width="103" height="53" hspace="0" vspace="0" border="0">

<%=(rsModels.Fields.Item("Model_desc").Value)%>

$<%=(rsModels.Fields.Item("Price").Value)%>

<% rsModels.Close() Set rsModels = Nothing %>