problemer med AspImage

Kan godt får det til at virke hvis jeg vil oprette en post i databasen, hvad sker der? Der er som altid 200pt til den der kan klare det.

Fejlmedelse:
Error Type:
Persits.Upload.1 (0x800A0001)
Unspecified error
/asp/gebyrfrit/annoncer/progress_upload.asp, line 26


<HTML>
<BODY>
<!-- #include file="adovbs.inc" -->

<%

//Virker hvis jeg klipper det her ud!!

Set Forbindelse = Server.CreateObject("ADODB.Connection")
Forbindelse.Open "DBQ="& Server.MapPath("../database/database.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Set kundeRs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM tblannonce order by id_annonce"
kundeRs.Open Query, Forbindelse, adOpenStatic, adLockOptimistic
kundeRs.AddNew
kundeRs("overskrift") = Request("overskrift")
kundeRs("id_annoncetype") = Request.Form("id_annoncetype")
kundeRs("id_underkategori") = Request.Form("id_underkategori")
kundeRs("id_underunderkategori") = Request.Form("id_underunderkategori")
kundeRs("tekst") = Request.Form("tekst")
kundeRs("id_bruger") = 1
kundeRs("dato") = Date()
kundeRs("dato_udloeb") = Date+100
kundeRs.Update
kundeRs.Close


//..........
%>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")

//linie 26
Upload.Save Server.MapPath("file") & "\"
//........

For Each File in Upload.Files
    If File.ImageType <> "JPG" Then
        Response.Write "This is not a JPGE image."
        File.Delete
        Response.End
    End If

StorX = 600
StorY = 450

lilleX = 100
lilleY = 100

    Set Image = Server.CreateObject("AspImage.Image")

    Image.LoadImage File.Path

    Image.Resize StorX,StorY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = Server.MapPath("file2") & "\stor_" & File.FileName
    Image.SaveImage

picstor=Image.FileName
Image.LoadImage File.Path

    Image.Resize lilleX,lilleY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = Server.MapPath("file2") & "\lille_" & File.FileName
    Image.SaveImage
   
    piclille=Image.FileName
   
    Set Image = nothing   
%>
    <IMG SRC="<% = piclille %>"><BR>
    <IMG SRC="<% = picstor %>"><BR>
<%
Next
%>
<%
Set kundeRs = Nothing
%>
</BODY>
</HTML>