image resize

Jeg har lavet nedenstående funktion der skal reducere et images syr. hvis det er over x antal pixels. Der er dog et problem. Jeg får hentet den rigtige sti frem ved hjælp af sever.mappath, men når jeg henter den frem på mit webhotel hvises billedet ikke - kun det sævanlige røde kryds (indikering af at billed ikke vises).

Jeg har kontrolleret følgende:

- stien er den rigtige
-billedet er placeret på serveren det rigtige sted

Håber på et godt svar ;-)

koden er som følgende:

dim filnavn as string
filnavn = server.MapPath(("grafik/topmidt.gif"))
foto.ImageUrl= filnavn   
response.Write(filnavn)
       
Dim currentImage as System.Drawing.Image = System.Drawing.Image.fromfile (filnavn)

Dim imgHeight = currentImage.Height
Dim imgWidth = currentImage.Width
           
if imgheight > 130 then
do
  imgheight = imgheight * 2.0
  imgwidth = imgwidth  * 2.0
loop while imgheight > 130
else
end if

imgheight = format(imgheight,"#,##0.")
imgwidth =  format(imgwidth,"#,##0.")
hojde.text = imgheight
bredde.text = imgwidth
foto.width = new Unit (bredde.text)
foto.height = new Unit (hojde.text)