If setning

Function Threads(intID,level)   
  dim m
  dim v
  dim i
  dim str
  For m = 1 to Ubound(arrID)
    If Cint(arrRE(m)) = Cint(intID) Then
      str=""
      for l=1 to level
        str = str & "     "
      next
      'Threads = Threads & str & "<b>" & arrSU(m) & "</b>&nbsp;[ <a href=admin_doc_add_2.asp?mode=addsub&Sub=" & arrSub(m) & "&ID=" & arrID(m) & ">Legg til undermeny</a> ]" & "<br>" & Threads(arrID(m),level+1) 
      'Threads = Threads & str & "<b>" & arrSU(m) & "</b>&nbsp;[ <a href=admin_doc_add_2.asp?mode=addsub&Sub=" & arrSub(m) & "&ID=" & arrID(m) & ">Legg til undermeny</a> ]&nbsp;[ <a href=""add.asp?Action=change&Sub=" & arrSub(m) & "&ID=" & arrID(m) & "&Name=" & arrSU(m) & "&Seq="& arrSEQ(m) & """>Endre</a> ]&nbsp; [<a href=add.asp?Action=delete&ID=" & arrID(m) & ">Slett</a> ]" & "<br>" & Threads(arrID(m),level+1)
      Threads = Threads & "<tr><td class=xptext>" & str & "<b>" & arrSU(m) & "</b>&nbsp;[ <a href=admin_doc_add_2.asp?mode=addsub&Sub=" & arrSub(m) & "&ID=" & arrID(m) & ">Legg til undermeny</a> ]</td><td class=xptext align=middle>" & arrActive(m) & "</td><td class=xptext align=right>" & arrSEQ(m) & "</td><td class=xptext align=middle>" & arrCreated(m) & "</td><td class=xptext align=middle><a href=""admin_Doc_edit.asp?Sub=" & arrSub(m) & "&DocID=" & arrID(m) & "&Name=" & arrSU(m) & "&Seq="& arrSEQ(m) & """ style='cursor:hand'><img SRC=admin_images/icon_change.gif alt=Endre border=0></a></td><td class=xptext align=middle><a onclick='DelDoc(" & arrID(m)& ");' style='cursor:hand'><img SRC=admin_images/icon_delete.gif alt=Slett></a>" & "</tr></td>" & Threads(arrID(m),level+1)
    End If
Next
End Function

I denne functionen skal jeg legge inn der arrDocActive(m) er:
If arrDocActive = 1 Then "bla" Else "bla" End if