Fejl på load af klasse ?

Hejsa,

Jeg kan ikke helt se hvad jeg misser her. På en side laver jeg :

Dim bIndkob
Set bIndkob = New IndkobBuisness
arr = bIndkob.setDelaidOrders
If isArray(arr) Then
    Dim i
    For i = 0 To UBound(arr,2)
        Response.Write(arr(0,i))
    Next
Else
    Response.Write(arr)
End If
Set bIndkob = Nothing

Min klasse ser således ud  :

Class IndkobBusiness
    '--- Metode der initialisere klassen.
    private sub Class_Initialize()
        '--- Laver forbindelse til data klassen.
        Dim dIndkob
        Set dIndkob = New IndkobData
    end sub

    '--- Metode der trækker alle forsinkede indkøbslinier.
    public function setDelaidOrders()
        arrShowDelaidOrders = dIndkob.getDelaidOrders
        if arrShowDelaidOrders = "" then
            arrShowDelaidOrders = "Der er ikke pt. nogle forsinkede indkøbs ordre ;o)"
        else
            setDelaidOrders = arrShowDelaidOrders
        end if
        Set dIndkob = Nothing
    end function
   
    '--- Metode der afslutter klassen.
    private sub Class_Terminate()
        Set dIndkob = Nothing
    end sub
End Class

Jeg får denne fejl når jeg forsøger at kalde klassen :

Microsoft VBScript runtime error '800a01fa'
Class not defined: 'IndkobBuisness'

Kan nogen forklare mig hvad jeg misser her ???

/Websam