You are invited to submit your Ferrari-only adverts by clicking here. These should be no more than 60 words. Please attach an image if you wish, but no bigger than 100 KB. If you are a Club member please quote your membership number. If you are trade each advert will cost £50 (+ VAT) for 3 months and you should let us know how you intend to pay. Please be aware that any contact information you give in your advertisement will be seen by a large number of people, and beware of scams!

<% ''Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = " ([a-z0-9_.]*\@[\-a-z0-9_.]*[a-z0-9_]+)" Set objConn = openConnection("../../" & strSalesDB ,1) strSQL = "SELECT * FROM theItems WHERE Category = 'Sales' ORDER BY DateEntered DESC, ID DESC" Set objRS = openRecordSet(strSQL, objConn) ''tipoArray = Array("New", "Competition Cars", "308 and 328", "Mondial", "348", "355", "360", "456 and 550/575", "Flat 12", "430", "Other Tipos") tipoArray = Array("New", "Competition Cars", "308 and 328", "348 and 355", "360 and 430", "456 and 550 and 575", "599 and 612 and F12", "California", "458", "Classic V-12s", "Other Tipos") titleArray = Array("Latest 5 Adverts", "Competition Cars", "308 & 328", "348 & 355", "360 & 430", "456 & 550 & 575", "599 & 612 & F12", "California", "458", "Classic V-12s", "Other Tipos") Dim theCounter For i = 0 To UBound(tipoArray) Response.Write("") If i = 0 Then carLimit = 5 objRS.Filter = "" Else carLimit = 9999 objRS.Filter = "Subcategory = '" & tipoArray(i) & "'" End If theCounter = 0 Do Until objRS.EOF OR theCounter = carLimit If objRS("hasImage") Then Response.Write("") If objRS("hasLargeImage") Then Response.Write("") Else Response.Write("") End If Else Response.Write(")" & vbcrlf) End If Response.Write("" & vbcrlf) theCounter = theCounter + 1 objRS.MoveNext Loop Response.Write("") Next closeTable(objRS) closeConnection(objConn) %>

" & titleArray(i) & "
") Else Response.Write("
") End If Response.Write(objRS("itemName")) Response.Write(" ") theDesc = objRS("itemDesc") theDesc = regEx.Replace(theDesc, " $1") Response.Write(vbcrlf & theDesc) Response.Write(" (" & Month(objRS("DateEntered")) & "/" & Year(objRS("DateEntered"))) If objRS("hasImage") Then Response.Write(")
Back to top

Click here to return to the Ferrari Sales & Wanted page.