Komprimering af Access database via ASP

<script language="VBScript" Runat="Server">
Option Explicit
On Error Resume Next

function fileExists ( filepath )
    fileExists = objFSO.FileExists ( filepath )
end function

function fileDelete ( filepath )
    fileExists = objFSO.DeleteFile ( filepath )
end function

' Dim our variables
Dim objJet
Dim objFSO
Dim f
Dim f_New

' Assign values for source and destination
f = "c:/InetPub/wwwRoot/test_stuff/new.mdb"
f_New = "c:/InetPub/wwwRoot/test_stuff/new1.mdb"

' Object instantiation
Set objJet = Server.CreateObject ("JRO.JetEngine")
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")

' Make sure there isn't already a file with the
'name of the compacted database.
If fileExists ( f_New ) Then
    fileDelete ( f_New )
End If

' Compact the database into the destination location
objJet.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " &_
                        "Data Source=" & f & ";", _
                        "Provider=Microsoft.Jet.OLEDB.4.0; " &_
                        "Data Source=" & f_New & ";"

' Delete the original database
fileDelete ( f )

'Rename the file back to the original name
objFSO.MoveFile f_New, f

'Clean-up
Set objFSO = Nothing
Set objJet = Nothing

' Write out the result to the screen
If Err.number <> 0 Then
    Response.Write "An error occurred!!"
Else
    Response.Write "Success!!"
End If

jeg får stadig samme fejl.
Derfor går jeg ud fra det er et problem med mit webhotel.

glemte vist at lukke sprøgsmålet.
Jeg har prøvet overstående, plus en masse andre eksempler jeg har fundet rundt omkring, uden det ønskede resultat.
Derfor går jeg ud fra det har noget at gøre med mit webhotel.