ASPimage
Jeg har kigget gamle spørgsmål igennem, man kan stadig ikke få det til at funke...Jeg prøver ihærdigt at få aspimage til at gemme en thumbnail af mit billede, ikke bare vise en thumbnail. (billederne kan nemlig risikere at blive uploadet i Hi-Res)
Her er hvad jeg har forsøgt mig med. Den melder bare 'intern serverfejl. Jeg har dog tidligere fået den til at vise et genereret thumbnail....
Er der nogen der har en idé?
/simon
<%@ Language=VBScript %>
<%
Set Image = Server.CreateObject("AspImage.Image")
imgFullPath = (Server.MapPath(2.jpg))
Image.LoadImage imgFullPath
Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y
If X > Y Or X > 150 Then
ResizedX = 150
ResizedY = (ResizedX * Y / X)
End If
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("2th.jpg")
Image.SaveImage
Set Image = Nothing
%>
