I recieve the same error, which reads like this:
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Mid'
/forum/topic.asp, line 1019
That is a line in the function SearchHighlight(fStrMessage):
if bInHTML <> True then
for i = 0 to UBound(fArr)
#1019 if lcase(mid(fStrMessage, iPos, len(fArr(i)))) = lcase(fArr(i)) then
bChange = True
strBuffer = strBuffer & "<span class=""spnSearchHighlight"">" & _
mid(fStrMessage, iPos, len(fArr(i))) & "</span>"
iPos = iPos + len(fArr(i)) - 1
end if
next
end if
Master AO
===========
FR Portal | FR Portal Forums