Type mismatch: 'LBound'

Hov var lige lidt hurtig med at sige ,at det virkede.
den siger en ny fejl :
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'
/sandberg/functioner/db_functioner.asp, line 314

---------------Koden db_functioner.asp--------------


Function getVaelgtStikA(s)
    getVaelgtStikA = arr_Vaelgt_StikA(s)
End Function

Function getValgtStikStoerrelseUA()
    getValgtStikStoerrelseUA = UBound(arr_Vaelgt_StikA)-1
End Function

Function getValgtStikStoerrelseLA()
    getValgtStikStoerrelseLA = LBound(arr_Vaelgt_StikA)
End Function




Function getVaelgtStikB(s)
    getVaelgtStikB = arr_Vaelgt_StikB(s)
End Function


Function getValgtStikStoerrelseUB()
    getValgtStikStoerrelseUB = UBound(arr_Vaelgt_StikB)-1
End Function

Function getValgtStikStoerrelseLB()
    getValgtStikStoerrelseLB = LBound(arr_Vaelgt_StikB)
End Function


------------------end Kode--------------------

-------------------vaelg_Stik_indhold.asp-----------------------



<%

Sub get_vaelg_stik_indhold()

Response.Write "<form action='.asp' method='post'>"
       
    Dim a
    a = getApparatA()
    get_Valgt_StikA(a)
    Dim gvssA
    gvssA = getVaelgStikSvarA()

    Dim b
    b = getApparatB()
    get_Valgt_StikB(b)
    Dim gvssB
    gvssB = getVaelgStikSvarB()

    if (gvssA = "yes") OR (gvssB = "yes") then

        Response.Write "<table>"
            Response.Write "<tr>"
                Response.Write "<td>"
                    Response.Write "<p>Marker de stik du har i apparat " & getApparatA() &"</p>"   
                    For t1 = getValgtStikStoerrelseLA() to getValgtStikStoerrelseUA() 
                            Response.Write "'&getVaelgtStikA(t1)&'<input type='checkbox' name='as'&'&t1&'><br>"
                    Next
                Response.Write "</td>"
                           

                Response.Write "<td>"
                    Response.Write "<p>Marker de stik du har i apparat " & getApparatB() &"</p>"   
                    For t2 = getValgtStikStoerrelseLB() to getValgtStikStoerrelseUB() 
                            Response.Write "'&getVaelgtStikB(t2)&'<input type='checkbox' name='as'&'&t2&'><br>"
                    Next
                Response.Write "</td>"
            Response.Write "</tr>"
        Response.Write "</table>"

        Response.Write "<input type='submit' value='Ok'>"

    Else
        Response.Write "<p>ingen stik til dig idag</p>"
        Response.Write "gvssA =" & gvssA & ""
        Response.Write "gvssB =" & gvssB & ""

    End if


Response.Write "</form>"

End Sub

%>