<%@ LANGUAGE="VBScript" %> <% theSection = "Sales & Wanted" theSubSection = "Registration marks" 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. No images for registration plates please.

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 = 'Registration' ORDER BY DateEntered DESC, ID DESC" Set objRS = openRecordSet(strSQL, objConn) Do Until objRS.EOF If objRS("hasImage") Then Response.Write("") Response.Write("") 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.