Fejl i upload billeder

Hvad kan være fejlen i denne kode?
Jeg for denne fejlmeddelelse:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/admin/catalog_categories.asp, line 234

800401f3


Dette er en del fra selve uploadkoden


<%
If mode="pictureupload" Then
%>
<%
rurl=Request.ServerVariables("HTTP_REFERER")
action=request.querystring("action")
fi=request.querystring("fi")
w=request.querystring("w")
h=request.querystring("h")

If action="upload" Then
uploaderr=False
Set Upload = Server.CreateObject("Persits.Upload")
Upload.save
Set File = Upload.Files("F1")
rurl=Upload.form("rurl")
If NOT File Is Nothing Then
If fi<>"" Then
If File.Filename<>fi Then uploaderr=True: msgstr = msgstr & "- Filen har et forkert navn.<BR>"
End If
If w<>"" Then
If File.imagewidth<>cint(w) Then uploaderr=True: msgstr = msgstr & "- Billedet har en forkert bredde.<BR>"
End If
If h<>"" Then
If File.imageheight<>cint(h) Then uploaderr=True: msgstr = msgstr & "- Billedet har en forkert højde.<BR>"
End If
If uploaderr=False Then
File.SaveAs("f:\home\thinkinstyle.dk\db\thinkinstyle_files\") & File.Filename
msgstr = "Filen blev sent til serveren."
Else
msgstr = "<font color='#FF0000'><B>Filen kunne ikke gemmes på serveren.</B></font><BR><BR>" & msgstr
End If
End If
Set File = Nothing
Set Upload = Nothing
End If
%>

<script type="text/javascript">
function doupload(){
if(uploadform.F1.value){
document.getElementById('loading_td2').style.position='absolute';
document.getElementById('loading_td2').style.visibility='hidden';
document.getElementById('loading_td1').innerHTML='<br><br><b>Sender filen til serveren<br><br>Vent venligst...</b>';
uploadform.submit();
}
}
</script>