vb-function fungere ikke efter serverskift

Jeg har et billedgalleri, hvor jeg læser billedhøjde og bredde ud fra jgp og gif formatet.....det virkede fint på den gamle server, men efter jeg har skiftet sever, brokker den sig over filen hvor denne function er i. Jeg har ikke den ringeste ide om hvorfor. Er der andre der har ???

her er fejlmeddelsen:

Der opstod en Microsoft VBScript-kørselsfejl error \'800a01a8\'

Et objekt er obligatorisk: \'\'

/wwwindiadanuk/intranet/includefiler/imgsize.asp, line 1


og her er funktionen den siger der er fejl med:

function GetBytes(flnm, offset, bytes)

    Dim objFSO
    Dim objFTemp
    Dim objTextStream
    Dim lngSize

    on error resume next

    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
   
    \' First, we get the filesize
    Set objFTemp = objFSO.GetFile(flnm)
    lngSize = objFTemp.Size
    set objFTemp = nothing

    fsoForReading = 1
    Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

    if offset > 0 then
        strBuff = objTextStream.Read(offset - 1)
    end if

    if bytes = -1 then        \' Get All!

        GetBytes = objTextStream.Read(lngSize)  \'ReadAll

    else

        GetBytes = objTextStream.Read(bytes)

    end if

    objTextStream.Close
    set objTextStream = nothing
    set objFSO = nothing

  end function