Hjælp med MapPath..

Ups der gik noget galt... håber I kan hjælpe a lige vel..
Tager den lige igen.
Set Image = Server.CreateObject(\"AspImage.Image\")
Image.LoadImage(\"c:\\webserver\\polaroid\\picture.jpg\")

Hvordan får jeg lave en MapPath til det, så jeg ikke behøver alt det der \"c:\\web....\"

Bjørn

Image.LoadImage(\"\\polaroid\\picture.jpg\")

Image.LoadImage & Server.MapPath (polaroid\\picture.jpg\")

//>Rune

svar

Ikke helt....
Kan man ikke sætte en general MapPath
for jeg har mange steder jeg skal hente billeder med ASPImage...


Bjørn

strImage = Replace(Server.MapPath(\".\") & \"\\polaroid\\picture.jpg\",\"\\\\\",\"\\\")
Image.LoadImage(strImage)

Forudsætter at scriptet ligger en mappe over \\polaroid\\ !!

hyde

og hvorfor så det ????????

Hmmmm.....
Nu er det ikke det samme billede jeg skal hente hele tiden med flere forskellige..
Her er hele min funktion:

Function Polaroid(navn,grader)
Set Image = Server.CreateObject(\"AspImage.Image\")
Image.LoadImage \"c:\\webserver\\polaroid\\\"&navn&\".jpg\")
Image.Resize 118,88
Image.ImageFormat = 1   
Image.FileName = \"c:\\webserver\\polaroid\\\"&navn&\"th.jpg\"
Image.SaveImage
Image.LoadImage(\"c:\\webserver\\polaroid\\back.jpg\")
Image.AddImage \"c:\\webserver\\polaroid\\\"&navn&\"th.jpg\",7,7
Image.BackgroundColor = RGB(&h9A, &hD9, &hE9)
Image.ImageFormat = 1   
Image.RotateImage grader
Image.FileName = \"c:\\webserver\\polaroid\\\"&navn&\"th.jpg\"
Image.SaveImage
Response.Write \"<img src=\'\"&navn&\"th.jpg\' border=0>\"
Set Image = nothing
End Function

Håber det kan bringe jer frem til mit svar...

Sætter lige nogle flere Point på højkant.. :)

Bjørn

strPath = Server.MapPath(\".\")

Function Polaroid(navn,grader)
Set Image = Server.CreateObject(\"AspImage.Image\")
Image.LoadImage strPath & \"\\polaroid\\\"&navn&\".jpg\")
Image.Resize 118,88
Image.ImageFormat = 1   
Image.FileName = strPath & \"\\polaroid\\\"&navn&\"th.jpg\"
Image.SaveImage
Image.LoadImage(strPath & \"\\polaroid\\back.jpg\")
Image.AddImage  strPath & \"\\polaroid\\\"&navn&\"th.jpg\",7,7
Image.BackgroundColor = RGB(&h9A, &hD9, &hE9)
Image.ImageFormat = 1   
Image.RotateImage grader
Image.FileName = strPath & \"\\polaroid\\\"&navn&\"th.jpg\"
Image.SaveImage
Response.Write \"<img src=\'\"&navn&\"th.jpg\' border=0>\"
Set Image = nothing
End Function

Nææææ det virker heller ikke rigtigt... :/
Nu værken henter ell skriver den filerne..

Bjørn

Hvor ligger scriptet som du bruger ligger den i polaroid eller hvad ????

Det hele ligger i samme dir...
Billeder og script..

Bjørn

  strPath = Server.MapPath(\".\")

Function Polaroid(navn,grader)
Set Image = Server.CreateObject(\"AspImage.Image\")
Image.LoadImage strPath & navn&\".jpg\")
Image.Resize 118,88
Image.ImageFormat = 1   
Image.FileName = strPath  navn&\"th.jpg\"
Image.SaveImage
Image.LoadImage(strPath & \"back.jpg\")
Image.AddImage  strPath & navn&\"th.jpg\",7,7
Image.BackgroundColor = RGB(&h9A, &hD9, &hE9)
Image.ImageFormat = 1   
Image.RotateImage grader
Image.FileName = strPath & navn&\"th.jpg\"
Image.SaveImage
Response.Write \"<img src=\'\"&navn&\"th.jpg\' border=0>\"
Set Image = nothing
End Function

Function Polaroid(navn,grader)
strPath = Server.MapPath(\".\") & \"\\\"

Set Image = Server.CreateObject(\"AspImage.Image\")
Image.LoadImage strPath & navn & \".jpg\")
Image.Resize 118,88
Image.ImageFormat = 1   
Image.FileName = strPath & navn & \"th.jpg\"
Image.SaveImage
Image.LoadImage(strPath & \"back.jpg\")
Image.AddImage  strPath & navn & \"th.jpg\",7,7
Image.BackgroundColor = RGB(&h9A, &hD9, &hE9)
Image.ImageFormat = 1   
Image.RotateImage grader
Image.FileName = strPath & navn & \"th.jpg\"
Image.SaveImage
Response.Write \"<img src=\'\"&navn&\"th.jpg\' border=0>\"
Set Image = nothing
End Function

Der var den..

En milliard million TAK...

Bjørn

Brug hy\'s afviste svar - men skift første linie fra:
strPath = Server.MapPath(\".\")
til:
strPath = Server.MapPath(\"\\\")

Kontroller også stien i linien:
Response.Write \"<img src=\'\"&navn&\"th.jpg\' border=0>\"

For sent. :-<

No P... ;-)

hyde