\"Subscript out of range\"

Der er en fejl i din kode... og din server er sat til ikke at fortælle om fejlen. Derfor kommer denne fejl

Højst sansynelige prøver du at lave et split eller et loop/count/array der ikke har nogen værdier! ...prøv at poste noget kode :)

Subscript out of range=du prøver at tilgå et element i et array, højere eller lavere end min/max elementer i arrayet.

Dim MitArray(2)

MitArray(3) = \"noget\"
  eller
MitArray(-1) = \"noget\"

vil generere en \"Subscript out of range\"

Men din fejl er i et VBScript:

<script language=\"vbscript\">
dim colors()

colors(0) = \"black\"

colors(1) = \"white\"

</script>

Lav det om til:

<script language=\"vbscript\">
dim colors(1)

colors(0) = \"black\"

colors(1) = \"white\"

</script>

så virker det

Desuden har du en LBound() fejl længere nede:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'LBound\'
/scripts/mermaid/color_survey.asp, line 56

<script language=\"vbscript\">
dim colors()
<%
strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"hahaha.mdb\")

    Set objRS1 = Server.CreateObject(\"ADODB.RecordSet\")
    strQ1 = \"SELECT farve FROM color\"
    objRS1.Open strQ1, strConn

indeks = 0
Do While Not objRs1.EOF
%>
colors(<%=indeks%>) = \"<%=objRs1(\"farve\")%>\"
<%
indeks = indeks + 1
objRs1.MoveNext
Loop

Set objRs1 = Nothing
Set Conn = Nothing
%>
</script>

Jeg har fået løst den selv, jeg har fået løst den selv, jeg har fået løst den selv... Hvor er det vildt... Jeg havde givet op, men ville liiiiiige blive ved... Og det lykkedes gennem lidt rationel tankegang...

Ellers mange tak for interessen,
I får fem point hver for god stil... :-)

...Og min aaaahhhahhhha oplevelse! Den er det hele værd! Nøj, hvor bliver min kæreste glad når jeg kommer ind til hende om lidt... Hun skal få det glatte lag, skal hun, ja hun skal... :-)))

dope:> den du har der virker nix!

Nej, det fandt jeg ud...

<%
  For ind = LBound(colors) to UBound(colors)
      Response.Write (colors(ind) & \"<br />\")
  Next
%>

Hvad er der i vejen den?

Dit problem er Dim Colors() ..

<%
  strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"hahaha.mdb\")
  Set objRS1 = Server.CreateObject(\"ADODB.RecordSet\")

  strQ1 = \"SELECT COUNT(*) FROM color\"
  objRS1.Open strQ1, strConn
%>
<script language=\"vbscript\">
dim colors(<%=objRS1(0) - 1%>)
<%

    strQ1 = \"SELECT farve FROM color\"
    objRS1.Open strQ1, strConn

indeks = 0
Do While Not objRs1.EOF
%>
colors(<%=indeks%>) = \"<%=objRs1(\"farve\")%>\"
<%
indeks = indeks + 1
objRs1.MoveNext
Loop

Set objRs1 = Nothing
Set Conn = Nothing
%>
</script>

SÅ skulle den virke.

Well .. natter gutter :-)

Den virker ikke helt endnu... Hvad er der galt?