Indekset er uden for området: 'ubound'

Hvad betyder denne fejl?

Indekset er uden for området: 'ubound'

Fejlen opstår ved:  for i = 0 to ubound(arrIndhold,6)
i følgende kode:

sub Search (strS, intType)
  'viser indholdet af det katalognummer der er valgt i en formular

  dim strSQL, objRS, arrIndhold, i

  if intType = 0 then
    strSQL = "SELECT Indhold.IndholdID, Indhold.KatalogRef, Indhold.Antal, Indhold.Materiale, Indhold.Materialetype, Indhold.Pris FROM Indhold WHERE KatalogRef = " & strS
  end if

  set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

  if NOT objRS.EOF then
    arrIndhold = objRS.GetRows
  end if

  objRS.close
  set objRS = Nothing

    if isArray(arrIndhold) then
      for i = 0 to ubound(arrIndhold,6)
      response.write arrIndhold(0,i) & _
        "<br>" & arrIndhold(1,i) & _
        "<br>" & arrIndhold(2,i) & _
        "<br>" & arrIndhold(3,i) & _
        "<br>" & arrIndhold(4,i) & _
        "<br>" & arrIndhold(5,i) & _
        "<hr>"
      next
    else
      response.write "<p> Der er ikke noget indhold i denne kasse.</p>"
    end if 

end sub