Hej NG
Har et problem med at få gemt fil med AspImage...
Har prøvet at fejlfinde ned gennem scriptet, og det går godt, lige indtil
billedet skal gemmes...
Jeg har sat passende rettigheder på mappen "thumbs"
Får denne fejl:
Der opstod en fejl : Cannot create file
d:\xxx\xxx\xxx\xxx\images\thumbs\12.png
<Script>
Dim objImage
Dim strBilledKilde
Dim strNytBillede
Dim intXSize
Dim intYSize
' Angiv hvor vores billed kilde befinder sig
strBilledKilde = Url
' Til dette eksempel må benyttes: JPG, PNG og BMP
' Angiv hvor det nye billede skal gemmes
' og hvad det skal hedde
strNytBillede = "/images/thumbs/" & VareID & ".png"
' Opret objektet så vi kan arbejde med det
Set objImage = Server.CreateObject("AspImage.Image")
' Indlæs en kopi af vores oprindelige billede
objImage.LoadImage(Server.MapPath(Url))
' Den nye bredde på billedet skal være 75 prikker
intXSize = 75
' Her beregner vi så hvor højt billedet skal være
' ud fra den bredde vi har bestemt
intYSize = (intXSize / objImage.MaxX) * objImage.MaxY
' Så ændrer vi størrelsen på billedet
objImage.ResizeR intXSize, intYSize
' Ok - så er vi klar til at gemme det nye billede.
' Vi vil gemme det nye billede i .png format :
objImage.ImageFormat = 3
' Så angiver vi hvor vi vil gemme det nye billede
objImage.FileName = Server.MapPath(strNytBillede)
' Vi prøver på at gemme det nye billede, men vil
' gerne have at vide hvis noget gik galt ...
If objImage.SaveImage Then
' Det lykkedes at gemme det nye billede,
' så lad os vise det ...
Response.Write "<img src=""" & strNytBillede & """><br>"
Else
' Et eller andet gik galt ...
Response.Write "Der opstod en fejl : " & objImage.Error
End If
' Vi er færdige, så vi rydder pænt op efter os
Set objImage = Nothing
</Sript>
Hilsen
Bjarne
"Every day new surprises"