<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% showquicksearch=false Dim rsSEOtxt Dim rsSEOtxt_numRows Set rsSEOtxt = Server.CreateObject("ADODB.Recordset") rsSEOtxt.ActiveConnection = MM_motormouse_STRING rsSEOtxt.Source = "{call dbo.MMO_sp_SEOText}" rsSEOtxt.CursorType = 0 rsSEOtxt.CursorLocation = 2 rsSEOtxt.LockType = 1 rsSEOtxt.Open() rsSEOtxt_numRows = 0 %> <% Dim rsStyles Dim rsStyles_numRows Set rsStyles = Server.CreateObject("ADODB.Recordset") rsStyles.ActiveConnection = MM_motormouse_STRING rsStyles.Source = "{call dbo.MMO_sp_SelectDistinctStyle}" rsStyles.CursorType = 0 rsStyles.CursorLocation = 2 rsStyles.LockType = 1 rsStyles.Open() rsStyles_numRows = 0 %> <% Dim rsListHotDeals Dim rsListHotDeals_numRows Set rsListHotDeals = Server.CreateObject("ADODB.Recordset") rsListHotDeals.ActiveConnection = MM_motormouse_STRING rsListHotDeals.Source = "{call dbo.MMO_sp_SelectHotDeals}" rsListHotDeals.CursorType = 0 rsListHotDeals.CursorLocation = 2 rsListHotDeals.LockType = 1 rsListHotDeals.Open() strRowTotal = rsListHotDeals.RecordCount rsListHotDeals_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSEOtxt_numRows = rsSEOtxt_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsListHotDeals_numRows = rsListHotDeals_numRows + Repeat2__numRows %> <% if showquicksearch then %> <% end if %>

MAKE selected <% end if %> value="ANY">ANY <% While (NOT rsMake.EOF) %> selected <% end if %> value="<%=(rsMake.Fields.Item("NC_Make").Value)%>"><%=ucase(rsMake.Fields.Item("NC_Make").Value)%> <% rsMake.MoveNext() Wend If (rsMake.CursorType > 0) Then rsMake.MoveFirst Else rsMake.Requery End If %> MANUAL PETROL NEW AUTO DIESEL USED MIN PRICE £500 £1000 £2000 £3000 £4000 £5000 £6000 £7000 £8000 £9000 £10000 £11000 £12000 £13000 £14000 £15000 £16000 £17000 £18000 £19000 £20000 £22500 £25000 £27500 £30000 £35000 £40000 £50000 £75000 £100000 £150000 £250000 £500000 Style: Style Any <% While (NOT rsStyles.EOF) if isnull(rsStyles.Fields.Item("NC_Style").Value) or rsStyles.Fields.Item("NC_Style").Value = "" then else %> "><%=(rsStyles.Fields.Item("NC_Style").Value)%> <% end if rsStyles.MoveNext() Wend If (rsStyles.CursorType > 0) Then rsStyles.MoveFirst Else rsStyles.Requery End If %> MAX PRICE £500 £1000 £2000 £3000 £4000 £5000 £6000 £7000 £8000 £9000 £10000 £11000 £12000 £13000 £14000 £15000 £16000 £17000 £18000 £19000 £20000 £22500 £25000 £27500 £30000 £35000 £40000 £50000 £75000 £100000 £150000 £250000 £500000 Keywords   <% strTrCount=1 strTdCount=1 '-- we only want to display an even number of records so find out how many we can display 'strRowTotal = (rsListHotDeals.RecordCount) 'response.Write("asdasd=" & strRowTotal) While ((Repeat2__numRows <> 0) AND (NOT rsListHotDeals.EOF)) 'for i = 1 to 8'(strRowTotal*2) if strTdCount=1 then %> ") else %> <% end if %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsListHotDeals.MoveNext() Wend %> <% 'rsListHotDeals.MoveNext() 'next %> <% if strTrCount=1 then strHotDealsClass="hotdeals_white" strTrCount=2 else strHotDealsClass="hotdeals_lightgrey" strTrCount=1 end if strTdCount=2 else response.Write(" ") strTdCount=1 if strTrCount=2 then strHotDealsClass="hotdeals_lightgrey" else strHotDealsClass="hotdeals_white" end if 'strTdCount=2 end if %> <% if strTdCount=1 then strwidth="307" else strwidth="306" end if %> ">" Width="99" Height="69" alt="Motormouse.com Hot deals on new cars: <%=(rsListHotDeals.Fields.Item("NC_Make").Value)%> <%=(rsListHotDeals.Fields.Item("NC_Model").Value)%> with a saving of £<%=formatnumber(rsListHotDeals.Fields.Item("NC_Save").Value,1)%>" /> <%=(rsListHotDeals.Fields.Item("NC_Make").Value)%>, <%=(rsListHotDeals.Fields.Item("NC_Model").Value)%> . Our Price: £ <% if rsListHotDeals.Fields.Item("NC_Offer").Value = 0 then response.Write("P.O.A") else%> <%=formatnumber(rsListHotDeals.Fields.Item("NC_Offer").Value,0)%> <% end if %> Save: £ <% if rsListHotDeals.Fields.Item("NC_Save").Value = 0 then response.Write("'000's") else%> <%=formatnumber(rsListHotDeals.Fields.Item("NC_Save").Value,0)%> <% end if %> "> view full details >>> <% if strTdCount=2 then response.Write("

<% rsStyles.Close() Set rsStyles = Nothing %> <% rsListHotDeals.Close() Set rsListHotDeals = Nothing %>