Server.CreateObject Failed

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

' Upload files
Upload.OverwriteFiles = True ' Generate unique names
Upload.SetMaxSize 5000, True ' Truncate files above 5KB
On Error Resume Next
Upload.SaveVirtual ("bilder/")

If Err.Number = 8 Then 
Response.Write "Your file exceeds 50KB please try again<br>"
End If

' Process all files received
For Each File in Upload.Files

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
Response.Write "GIF or JPG files only please! Go back and try again.<br>"
File.Delete
Exit For
End If


Response.Write "File: </b></font>" & File.ExtractFileName & " <font color=#009900><b> --Size:" & File.Size &" Bytes -- </b></font> <a target=_blank ../bilder/" & File.ExtractFileName & ">test</a><br>"
next
%>