<!--#include virtual="database.asp"-->
<%
dim objConn
DBConnOpen objConn

dim ObjRS

dim CarSQL
dim ShowResults
ShowResults = False

set ObjRS=Server.CreateObject("ADODB.recordset")
	ObjRS.Open CarSQL, objConn

	CarSQL = "Select a.Year, a.Make,a.Model, a.date  from North_Yard a where a.Date >= getDate() - 7  order by a.Date DESC"





<%do until ObjRS.eof%>
                                <tr>
                                  <td width="49" height="15"><b><%=ObjRS("Date")%></b></td>
                                </tr>
                                <tr>
								
                                  <td colspan="3" class="main"></td>
                                </tr> 
                                                  
                          
                                <tr class="SearchResults<%=j%>">
                                  <td><%=ObjRS("Year")%>  </td>
                                  <td width="61"><%=ObjRS("Make")%></td>
                                  <td width="205"><%=ObjRS("Model")%></td>
                                </tr>
								
                                <%
							ObjRS.MoveNext
							
							i = i + 1
							%>
                                <%loop%>