Microsoft VBScript runtime error '800a0009'

[ColdDog]

ik krijg deze fout:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: -1]'
/publicaties/index.asp, line 150

ik weet echt niks van asp, maar ik moet het oplossen. Heb al gezocht op GOT en heb niks gevonden wat mij kon helpen? Iemand een idee?

line 150 = currentcolor = colorarray(varimage-1)

ASP:

<%
Dim varimage, varcolor

'number of images
varpages = 0

'randomize the image
Randomize 
While not rsPublicatieSelected.EOF
varpages = varpages + 1
rsPublicatieSelected.MoveNext
Wend

rsPublicatieSelected.MoveFirst

varimage = int(Rnd()*varpages)
rsPublicatieSelected.Move(varimage)

'check the string
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Outdoor") > 0)Then varimage=1
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Kids") > 0)Then varimage=2
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Sport") > 0)Then varimage=3
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Business") > 0)Then varimage=4
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Buyer") > 0)Then varimage=5
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Surf") > 0)Then varimage=6
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Tendens") > 0)Then varimage=7
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Snow") > 0)Then varimage=11
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "Snowboard") > 0)Then varimage=8
if(inStr(rsPublicatieSelected.Fields.Item("PublicatieTitel").Value, "SBC") > 0)Then varimage=9


'select bg color matching the image
colors = "#972929;#9700FC;#003296;#666666;#FF9900;#0092F3;#006400;#37B5FF;#666666;#37B5FF;#37B5FF;#37B5FF"
bgcolors = "#972929;#9700FC;#003296;#CCCCCC;#FF9900;#0092F3;#006400;#93D7F;#CCCCCC;#93D7F;#93D7F;#37B5FF"
magazines = "OUTDOOR MAGAZINE;KIDS MAGAZINE;SPORT PARTNER;BUSINESS GUIDE;BUYERS GUIDE;SURF 'N BEACH;TENDENS;SNOWBOARDER;SBCCATALOGUS;SNOW;SNOW"
magAbr = "OUTDOOR;KIDS;SPORT;BUSINESS;BUYERS;SURF;TENDENS;SNOWBOARD;SBC;SNOW;SNOW"
colorarray = split(colors, ";")
bgcolorarray = split(bgcolors, ";")
currentcolor = colorarray(varimage-1)
currentbgcolor = bgcolorarray(varimage-1)
magazinearray = split(magazines, ";")
currentmagazine = magazinearray(varimage-1)
magAbrarray = split(magAbr, ";")
currentAbr = magAbrarray(varimage-1)
%>

[ Voor 11% gewijzigd door ColdDog op 18-01-2005 10:47 ]

[Creepy]

Ho ff, zo werkt het niet niet.

Hier wordt van je verwacht dat je eerst zelf actief opzoek gaat naar een oplossing. Daarnaast kunnen we met je foutmelding niet zoveel want ik zie geen regel 150

Als je P&W Beleid eens door zou willen lezen dan graag
Bekijk daarnaast ook eens P&W FAQ - Algemeen . Code debuggen is ook iets wat je zelf zou moeten kunnen.