Kan ikke få trukket billede ud med aspImage
Nu har jeg næsten prøvet alt, men jeg kan simpelthen ikke få AspImage til at makke ret...Jeg har en sti til et billede i min database.
Denne kan jeg sagtens få trukket ud.
Nu vil jeg så have AspImage til at resize billedet inden det vises. Men det er som om billedet ikke kan findes.
Min mappestruktur ser således ud:
lokalinfo/ -> indeholder filerne.....
index.asp -> Forsiden, ikke relevant
nyhed.asp -> siden hvor nyheden, inkl. billedet skal vises.
nyhederimages.asp -> siden med aspImage koden.
lokalinfo/nyhederimages/ -> mappen hvori de uploadede billeder er.
i databasen er stien til billedet:
/lokalinfo/nyhederimages/billede1.jpg
På nyheder.asp har jeg denne kode til at vise billedet gennem aspImage:
<img src="nyhederimages.asp?<%=(RSnyheder.Fields.Item("img1").Value)%>&Width=385" border="0">
Nyhederimages.asp ser således ud:
------------------------------
<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& " lokalinfo\nyhederimages\" & FileName
'Image.AutoSize = false
'Image.FontName = "MS Sans Serif"
'Image.FontColor = vbRed
'Image.Bold = True
'Image.FontSize = 16
'Image.X = 1
'Image.Y = Image.MaxY = 5
'Image.TextOut "www.xxxx.dk", Image.X, Image.Y, true
'Image.FileName = "absolutte_sti_til_billede_mappe\" & FileName
'Image.SaveImage
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if
Response.BinaryWrite Image.Image
Set Image = Nothing
%>
Har prøvet med mange forskellige stier, og den eneste måde at få det til at virke på, er ved at placere billederne sammen med alle de andre filer, men jeg ville jo gerne have lidt styr over sagerne ved at placere billederne i en mappe for sig selv (nyhederimages)
Er der nogen der kan hjælpe mig med at få skidtet til at virke???
