<%
Function StandardDate(mDate)
mDate = CDate(mDate)
StandardDate = Day(mDate) & "/" & Month(mDate) & "/" & Year(mDate)
End Function
Function nz(mData) ' avoid saving null values
If len(mData) = 0 then
nz = " "
Else
nz = mData
End if
End Function
Function ReplaceChar(mChar,mData)
If Instr(mData,chr(mChar)) > 0 Then
DataLength = len(mData)
Pointer = 1
Do While Pointer <= DataLength
Char = Mid(mData,Pointer,1)
If Char = chr(mChar) then
mData = Left(mData,Pointer-1) & " " & Mid(mData,Pointer+1)
End If
Pointer = Pointer + 1
Loop ' next char in string
End If
ReplaceChar = mData
End Function
Function FixApostrophe(mData)
If Instr(mData,"'") > 0 Then
DataLength = len(mData)
Pointer = 1
Do While Pointer <= DataLength
Char = Mid(mData,Pointer,1)
If Char = "'" then
If Mid(mData,Pointer,2) <> "''" then
mData = Left(mData,Pointer) & "'" & Mid(mData,Pointer+1)
Pointer = Pointer + 1
DataLength = DataLength + 1
End If
End If
Pointer = Pointer + 1
Loop ' next char in string
End If
FixApostrophe = mData
End Function
function WriteSelectCodeSingle(mReq,mText)
response.write("")
end function
function WriteSelectCode(mReq,mTag,mText)
response.write("")
end function
Function ReFormatted(Str)
on Error resume next
Str=Replace(Str, CHR(13), "")
Str=Replace(Str, CHR(10) & CHR(10),"
")
Str=Replace(Str, CHR(10), " ")
ReFormatted = "
" & Str & "
"
End Function
Function VetInput(cTestString)
' checks for HTML or profanities in a string
' each 'library!' word is searched for in the string
' if any of the library words are surrounded with text, then the word is passed (eg 'scunthorpe')
' if the word is at the beginning or end of another word, then it is blocked.
VetInput = "OK"
If (Instr(cTestString,"<") > 0 and Instr(cTestString,"<") > 0) then
VetInput = "html"
Else
Dim aProf,Profanity, Suffix, Prefix,pointer, offset, alphachars
aProf = Array("bum","tit","crap","fuck","phuck","tosser","fuk","bollo","cunt","bastard","wank","shit","wank","wog","coon","arse")
Profanity = ""
alphachars = "abcdefghijklmnopqrstuvwxyzABSDEFGHIJKLMNOPQRSTUVWXYZ"
cTestString = " " & cTestString & " " ' insert a space at each end of the string
For pointer = 0 To UBound(aProf) - 1
offset = InStr(UCase(cTestString), UCase(aProf(pointer)))
If offset > 0 Then
Prefix = Mid(cTestString, offset - 1, 1)
Suffix = Mid(cTestString, offset + Len(aProf(pointer)), 1)
If InStr(alphachars, Prefix) > 0 And InStr(alphachars, Suffix) > 0 Then
' it's embedded in another word, so we'll take a chance
Else
Profanity = Mid(cTestString, offset, Len(aProf(pointer)))
Exit For
End If
End If
Next
If Len(Profanity) > 0 Then
VetInput = "suspect"
'VetInput = "sorry, your entry contained the word " & Profanity & " and cannot be saved."
End If
End If
End Function
%>
<%OpenOleConn(datadir&"npc_adverts.mdb")
Set rs = objConn.execute("SELECT * from tblAdverts ORDER BY ID desc")%>
Items for sale
For Sale (or Wanted) adverts can now be placed, re-edited,
or deleted by logged-in club members directly from this page. Adverts will be deleted automatically after 3 months.
Disclaimer: Neither
the Webmaster or the Norfolk Punt Club takes any responsibility
for the accuracy of the descriptions contained in the following
advertisments which are provided by prospective vendors of the
articles described. Any prospective buyer is advised to verify
any factual information or opinion given before entering into
an agreement to buy the goods so described.
<%While (NOT rs.EOF)%>
advert placed by
<%=rs("author")%>
<%if len(rs("datestamp")) > 0 then %>
on <%=formatdatetime(rs("datestamp"),1)%>
<%end if %>
<%=rs("textcontent")%>
<%Author = false
if len(Session("ID")) > 0 then
if gUserID = rs("AuthorID") and gUserID > 0 then Author = true
end if
If author or editor or master then%>