> da bringt er mir in zeile:
> if (tok<>"") then tokens=arrayAdd(tokens,tok,false) : tok = ""
>
> den fehler:
> Typen unvertr�glich: 'arrayAdd'
Ohh... Sorry.... Was vergessen...
function arrayAdd(arr,ByVal str,isString)
dim newArr()
dim i
redim newArr(ubound(arr)+1)
for i = 0 to ubound(arr)
newArr(i) = arr(i)
next
if not isString and (ucase(str)="AND" or ucase(str)="OR" _
or ucase(str)="NOT" or str="(" or str=")") then
str = ucase(str)
else
str = "'%" & replace(str,"'","''") & "%'"
end if
newArr(ubound(newArr)) = str
arrayAdd = newArr
end function
Claudius
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
