Den resizer ikke??????

Hejsa!

Jeg har brugt nedenstående kode! som også oploader JPG billeder fint! 

Men jeg skal have billedet til at bære 150*150 og et thumbnail som er 50*50

Og det kan jeg slet ikke få til at virke! jeg har læst utallige andre artikler! 

Hår der er nogle der kan hjælpe!

------------------------------------------------------
<%
    ' Dynamically rename an uploaded file according to a HIDDEN field.
    ' First upload to memory, then call File.SaveAs
    ' to save the file under a name specified by a hidden field..
   
    Set Upload = Server.CreateObject("Persits.Upload.1")

    ' Optional: make sure file names are unique when calling File.SaveAs
    Upload.OverwriteFiles = true

    Count = Upload.SaveToMemory

    If Count > 0 Then ' 1 file uploaded
        Set File = Upload.Files(1)
        Path = "D:\home\website\www\demo\billeder\produkter\" & Upload.Form("Filename")

        ' Side effect: SaveAs sets changes File.Path property to a new value.
        File.SaveAs Path

'******************* resize billede start
        ret = Response.ContentType
        Response.ContentType = "image/jpeg\"

        strPicture = file.path
        Set Image = Server.CreateObject("AspImage.Image")
   
        Image.LoadImage strPicture

        intRatio = ((75 * 100) / Image.MaxX)
        intNewY = CInt(Image.MaxY * (intRatio / 100))
        Image.ResizeR 75, intNewY
        Image.ImageFormat = 1
        image.filename = server.mappath("..") & "\thumbs\" & file.filename
        image.saveimage
        Set Image = nothing   
        Response.ContentType = ret

'******************* resize billede slut

        Response.redirect ("../index.asp")
    Else
        Response.redirect ("../index.asp")
    End If
%>