ASP Image

Hey jeg har den her kode...

Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 3000000, True
   
    Count = Upload.Save(Server.Mappath("/"))
   
    If Err <> 0 or Count = 0 Then
        If Err <> 0 Then theresponse = "Fejl: " & Err.Description Else theresponse = "Fejl: Ingen fil(er) valgt."
    else
       
    Set File = Upload.Files(1)
       
        ' create instance of AspJpeg
        Set jpg = Server.CreateObject("Persits.Jpeg")
       
        ' Open source file
        jpg.Open(File.Path)
       
        ' Set resizing algorithm
        jpg.Interpolation = 1
       
        ' Set new height and width
        if File.ImageWidth > 300 then
              jpg.Width = 300
              jpg.Height = File.ImageHeight / File.ImageWidth * 300
        end if
       
       
        ' Perform resizing and
        ' send resultant image to client browser
        jpg.Save File.Path
       
        response.redirect "upload.asp"       
    end if

Er der nogle der kan lave Persits.Jpeg delen om til ASPImage.

Håber at I forstår

Thomas