<%Option Explicit%>
<%
dim fso
dim nRow
dim nCol
set fso = Server.CreateObject("Scripting.FileSystemObject")
Function GetForSaleAd(ByVal nRow, ByVal nCol)
GetForSaleAd = GetAd(nRow, nCol, _
"Data\Ads\ForSale\ForSale", _
"
Advertise your personal items for sale here.
" & _
"
No sale - no fee!")
End Function
Function GetWantedAd(ByVal nRow, ByVal nCol)
GetWantedAd = GetAd(nRow, nCol, _
"Data\Ads\Wanted\Wanted", _
"
Looking for something? Advertise here
" & _
"
No purchase - no fee!")
End Function
Function GetAd(ByVal nRow, ByVal nCol, ByVal strRootFileName, strDefaultContent)
dim ts, strPathName, strLine, bHeader, nAdId
nAdId = ((nRow - 1) * 4) + nCol
strPathName = Server.MapPath(strRootFileName) & nAdId & ".txt"
if not fso.FileExists(strPathName) then
GetAd = strDefaultContent
exit function
end if
bHeader = True
Set ts = fso.OpenTextFile(strPathName, 1)
Do While Not ts.AtEndOfStream
strLine = Server.HTMLEncode(ts.ReadLine)
if strLine <> "" then
if bHeader then
bHeader = False
GetAd = "
" & strLine & "
"
else
GetAd = GetAd & "
" & strLine & "
"
end if
end if
Loop
End Function
%>
Small Ads
Wanted or For Sale...
You can advertise your personal items for sale here and place ads for personal items you are looking
for.
The club charges for personal small ads on a "no deal, no fee" basis where the club asks for 10% of the agreed price - up to a maximum of £100 - for all sales and purchases completed through this Small Ads page.
Send your ad by email to
Matthew Smith.
Terms & Conditions
Advertisements can be placed on this site by private individuals on a
No Deal - No Fee basis for a maximum
period of 1 month.
Should you successfully buy or sell an advertised
item you will be liable to pay a fee based on 10% of the
price: maximum fee £100.
All fees received go
directly to the AOBFC funds and not to the owners of this site.
Small
Ads
For Sale
<%for nRow = 1 to 3%>
<%for nCol = 1 to 4%>
<%=GetForSaleAd(nRow, nCol)%>
<%next%>
<%next%>
Wanted
<%for nRow = 1 to 3%>
<%for nCol = 1 to 4%>
<%=GetWantedAd(nRow, nCol)%>
<%next%>
<%next%>
To place your small ad here contact
Matthew Smith
Terms and Conditions Apply - see box on left
