ASPImage --> thum i ny mappe
Jeg skal have lavet thumnail af hvert billede og de skal smide en en mappe der hedder thum...Det med at oprette en ny mappe funker fint, men det andet kører overhovedet ikke og jeg får ingen fejl. den skriver bare at: The page can not be displayed
/Lars
Koden:
If FrmGrp = "gall" Then
' LAVER NY MAPPE
NewFolder = Request.Form ("txt")
ThumPath = "..\galleri\" & NewFolder & "\thum"
FolderPath = "..\galleri\" & NewFolder
Set UL = CreateObject("Scripting.FileSystemObject")
UL.CreateFolder(Server.MapPath(ThumPath))
' LAVER THUM TIL HVERT PIC
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(FolderPath))
Set objFiles = objFolder.Files
For Each Item In objFiles
Set Image = Server.CreateObject("AspImage.Image")
ImgFullPath = (Server.MapPath(FolderPath\Item.Name))
Image.LoadImage ImgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > 100 Then
ResizedX = 100
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = (Server.MapPath(ThumPath\Item.Name))
Image.SaveImage
Response.Write Image.Image
Set Image = Nothing
End If
