Problem med at resize med ASPupload

Jeg sidder med et script som skal følgende:

* Uploade et billede
* Lave et 200*150 thumbnail af billedet
* Ligge billedet ind i en mssql database
* Resize billedet til 480*360 px

De 3 første punkter virker, men jeg kan ikke få den til at resize billedet.

Hvad kan der være galt ?

<!-- #include file="../../../db/string.inc" -->
<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Set Jpeg = Server.CreateObject("Persits.Jpeg")

    Upload.OverwriteFiles = False
    On Error Resume Next

    Count = Upload.Save("d:\home\www\billeder")
%>




<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>


<% For Each File in Upload.Files %>

<%
    Jpeg.Open File.Path
    Jpeg.Width = 200
    Jpeg.Height = 150
    Jpeg.Save Server.MapPath(".") & "\small_" & File.FileName
   

%>

<%
    Jpeg.Open File.Path
    Jpeg.Width = 480
    Jpeg.Height = 360
    Jpeg.Save Server.MapPath(".") & File.FileName
   

%>



<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open strConn

        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM T_Billeder"
        rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
       
        Rs.AddNew
        Rs("Billed_filename")                    = file.FileName
        Rs("Billed_Sted_id")                    = request.QueryString("id")

        rs.Update       
       
          rs.Close
        Set rs = Nothing
       
Conn.Close


%>

<% Next %>