ASPjpeg

Hej

Savner ASP kategorien - ved godt det er en uddøende race

Har flyttet en gammel side til en ny host (en windåse jeg selv kan rode med)

Men i koden kaldes på en ASPjpg komponent som jeg gerne vil have installeret på serveren - men jeg har problemer med at finde den. Vil meget nødigt til at skrive hele koden til billederne om da der er meget her og der og allevegne på sitet

Har prøvet ASPjpg fra Persists og ASPimage, og en fra dimac.net ... men alle taler et andet sprog

Her er noget af koden - er der mon nogen der kan genkende hvad det er for en komponent ??

if isObject(aFileObj) then
        set Limage = aFileObj
    else 'ellers loader vi billedet
        set Limage = Server.CreateObject("ASPjpeg.Image")
        Limage.LoadImage(aFrompath & anOrigFileName)
    end if
   
    LimageX = Limage.MaxX
    LimageY = Limage.MaxY
   
    if LimageX = 0 or LimageY = 0 then
        Response.Write "Fejl ved billede " & anOrigFileName
        exit sub
    end if
   
    scaleX = LimageX/reqW
    scaleY = LimageY/reqH
   
    doresize = false
    select case ucase(priority)
        case "H":
            usescale = scaleY
            if reqH < LimageY then doresize = true
        case "W":
            usescale = scaleX
            if reqW < LimageX then doresize = true
        case "FITIN":
            if scaleX > scaleY then
                usescale = scaleX
                if reqW < LimageX then doresize = true
            else
                usescale = scaleY
                if reqH < LimageY then doresize = true
            end if
    end select
    resW = cInt(LimageX / usescale)
    resH = cInt(LimageY / usescale)
   
    if doresize then
        Limage.resize resW, resH
    end if

    newsavename = aToPath & anOrigFileName
    Limage.FileName = newsavename
    Limage.ImageFormat = 1 'jpeg
    Limage.JPEGQuality = 50 '0-100
    Limage.SaveImage
    set Limage = nothing
end sub