Hello, I have persits component on the server for resizing the image and resave it as ch_imagename in the save folder as the original image uploaded by the user from their local disc. But the page keeps on giving error message. I have no idea whether it is because I didn’t register the component in the right way or I didn’t write my code in the write way.
Could any one who have some experience with those things give me a hand on it? Thanks very much in advance!
<%
.....
File.SaveToDisk "C:\Inetpub\wwwroot\myweb\uploadedimage"
Response.write(session("newFileName")) ----this is for saving
' the original image and send the name to session variable
dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("../uploadedimage/") & session("newFileName")
Jpeg.Open Path --here is error saying
-----Persits.Jpeg.1 (0x800A0002) Access is denied.
width=jpeg.originalwidth
height=jpeg.originalheight
if width>=height then
forma="H"
else
forma="V"
end if
if forma="H" then
height2=(100*height)/width
Jpeg.Width = 100
Jpeg.Height = height2
else
width2=(100*width)/height
jpeg.width=width2
jpeg.height=100
end if
CARACTERISTICAS
Jpeg.Sharpen 1, 130
Jpeg.Interpolation = 2 'Bicubic
create thumbnail and save it to disk
jpeg.Save Server.MapPath("C:\Inetpub\wwwroot\myweb\uploadedimage") & "\ch_" & session("newFileName")