Hvad går galt med variablen?

Jeg vil gerne bladre gennem et array vha. en variabel "k", men bliver ved med at få følgende fejl når jeg henter siden:
_______________________________________
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: ''
_______________________________________

Koden jeg bruger ser ud som følger:

k = 0
btxt = ""
griner = ""
do while k < j

if ((k+2)Mod 2) = 0 then
  btxt = btxt + "<font color='" + "#" + "000000" + "'>"
else
  btxt = btxt + "<font color='" + "#" + "999999" + "'>"
end if
       
btxt = btxt + nyText(k)(1)
btxt = btxt + " (" + nyText(k)(2) + ") "
btxt = btxt + nyText(k)(3)
btxt = btxt + "</font>"
btxt = btxt + "<br>"
       
strNum = 0
strNum = InStr(1, nyText(k)(3), "LOL",1)

if strNum = 0 then
    else
griner = griner + nyText(k)(1) + ","
end if
       
k = k + 1
loop
response.write(btxt)
response.write(griner)
______________________________

Jeg bruger resultatet til tekst i flash...

Håber nogen kan se fejlen - jeg er ved at være godt muggen :)