Resimler Hata Veriyor

03-06-2014, 20:33:17

Merhaba Arkadaşlar,

Bir sitede resimlerin bulunduğu sayfalarda şu hata ile karşılaşıyorum:

Persits.Jpeg.1 error '800a0001'
Access is denied.
C:\INETPUB\VHOSTS\abc.COM\HTTPDOCS\TR\../func.asp, line 57

ilgili dosyadaki ilgili kodlar şu şekilde:
(ilgili 57 nolu başbelası satırın altını çizdim)

function resimyap(klasorx,resimx,boyutx)
if resimx <> "" then

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(Server.MapPath("/panel/admin_userfiles/" & resimx)) Then    

If not fso.FileExists(Server.MapPath("/ada" & klasorx & "/" & boyutx & "_" & resimx)) Then    
    Set jpeg = Server.CreateObject("Persits.Jpeg")
    jpeg.Open( Server.MapPath("/panel/admin_userfiles/" & resimx))

    if jpeg.OriginalHeight > boyutx or jpeg.OriginalWidth > boyutx then

        if jpeg.OriginalHeight > jpeg.OriginalWidth then
            jpeg.Height = boyutx
            jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
        else
            jpeg.Width = boyutx
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
        end if

    end if    

    jpeg.save (  Server.MapPath(klasorx & "/" & boyutx & "_" & resimx ))    
    set jpeg=nothing

end if

resimyap =klasorx & "/" & boyutx & "_" & resimx
else

resimyap="images/noimage.jpg"
end if

Set fso = Nothing

else
resimyap="images/noimage.jpg"

end if

end function

04-06-2014, 12:18:50

#2