Ändra if sats till en arrey?

arr = array("voigt","dig","child","pixel","ballon","blue")

if ubound(filter(arr,t))>0 then

end if

Detta kan nog funka...

fungerade inte riktigt som jag ville.. fungerade inte alls bra

if (t = "voigt") or (t = "dig") or (t = "child") or (t = "pixel") or (t = "ballon") or (t = "blue") then
  response.write "document.write(""" & textpic(nollor&count,t) &""")"
else
  response.write "document.write(""" & nollor&count &""")"
end if

så ser hela koden ut ..

Ett dictionary är lämpligt. Snabbare än arrayer när man letar. Dictionariet gör en slags checksum av namnet som hjälper när den letar efter värdet vilket gör att det går snabbare. Speciellt när man har mycket i dictionariet.

Set dic = Server.CreateObject("Scripting.Dictionary")

dic("voigt") = 1 : dic("dig") = 1 : dic("child") = 1
dic("pixel") = 1 : dic("ballon") = 1 : dic("blue") = 1

If dic.Exists(t) Then

End If

Set dic = Nothing

Vill du ha det case-insensitive så kan du slänga in dic.CompareMode = 1 'TextCompare direkt efter Server.CreateObj...