problem med at finde billedfil

Prøv at benytte flg.:

Server.MapPath("img/img_chancer")

MapPath() funktionen returnerer den fysiske sti på serveren (kunne fx være "G:\LocalSites\TestRoot\Artikel_ASPImage\img\chancer") ud fra en relativ sti (i dette tilfælde "img/img_chancer").

strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "img\img_chancer"

hele min kode ser nu sådan ud, men den vil stadig ikke vise billedet..


<% @LANGUAGE = VBScript %>
<%
Set MyImage = Server.CreateObject("AspImage.Image")

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "brucealmighty.jpg"

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "thumb.jpg"

'full path of original image
Dim strOrigImgFullPath
'strOrigImgFullPath = server.mappath("/img_chancer/")
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "img\img_chancer\"

'full path of generated thumbnail
Dim strThumbFullPath
'strThumbFullPath = server.mappath("/img_chancer/")
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "img\img_chancer\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName

'load original image
MyImage.LoadImage strOriginal

'Resize factor
ResizedX = 150
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

'writing thumbnail directly to client
'Response.BinaryWrite MyImage.Image
Response.Write "<img src=" & strThumb & "><br>"



'Cleanup
Set MyImage = Nothing
%>

har løst det nu. tak.