OK, I was trying to avoid posting the code just from a 'it's very long' point of view. But here you go:
'RESULTS INCLUDE FILE
PUBLIC caseAnd, caseOf, CaseIf, caseOr, caseTo, caseWhen, caseIT, caseDo, caseFor, caseOn, caseThe, caseIs, CaseI, removed
FUNCTION Results()
DIM oRS, strSQL, strSearch...