<% Dim iPageSize, iThisPage, iCount iPageSize=5 iCount = 0 dim nstart dim startrow dim endrow dim i if request("nstart")="" then nstart=0 startrow=1 endrow=3' else if request("val")="prev" then nstart=request("nstart")-6' startrow=request("startrow")+1 endrow=request("endrow")-6' else nstart=request("nstart")+6' startrow=request("startrow")-1 endrow=request("endrow")+6' end if end if %> Featured Listings
 

 

[Home]   

<% SET rsFea = server.CreateObject("adodb.recordset") rsFea.Open "SELECT * FROM main WHERE (Featured = 1)",DBConn,1,3 if not rsFea.EOF then rsFea.move(nstart) end if for i=0 to 5 %>

<%=rsFea("YearMade") & " " & rsFea("Make") & " " & rsFea("Model") & " " & rsFea("BodyStyle")%>
')" onmouseover="window.status='Click for Larger View'; return true" onmouseout="window.status=' '; return true"> " border="0"> <%=FormatCurrency(rsFea("Price"),2)%>
<%=FormatNumber(rsFea("Miles"),0)%> Miles
<%=rsFea("ExtColor")%> Exterior,  <%=rsFea("IntColor")%> Interior
Description:  <%=rsFea("Description")%>
Installed Options:  <%=rsFea("InstalledOptions")%>

<% rsFea.MoveNext if rsFea.eof then maxrec="nextfinish" exit for end if next %>
<%if nstart>0 then%> <%else%> <%end if%> <%if maxrec<>"nextfinish" then%> <%else%> <%end if%>
<<<Prev Next>>>

Copyright © 2005-2006 Texas Interceptors
PO Box 2146 - Van Alstyne, Texas  USA
Contact Us        Links    Site Map
Last Updated: 04/25/2006