<%@ LANGUAGE="VBScript" %> <% theSection = "Sales & Wanted" theSubSection = "Wanted" theSubSubSection = "" theNvOn=7 theMvOn=0 theDescription="" theKeywords="" %>

<%=theSubSection%>

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 = 'Wanted' ORDER BY DateEntered DESC, ID DESC" Set objRS = openRecordSet(strSQL, objConn) Do Until objRS.EOF 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) objRS.MoveNext Loop closeTable(objRS) closeConnection(objConn) %>
") 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(")

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