Problemer med AspImage
jeg vil den i et SS upload system...jeg vil kunne køre den på denne her måde
write_jpg.asp?image=myimg.jpg
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'imgFileName'
/ofp/ss/write_jpg.asp, line 11
Min kode:
<%
StrImage = Request.QueryString("image")
SplitPath = Split(imgFullPath,"\")
imgFileName = Ubound(SplitPath)
imgFileName = SplitPath(imgFileName)
'ExtensionSplit = Split(imgFileName,".")
'imgExtension = Ubound(ExtensionSplit)
'imgExtension = ExtensionSplit(imgExtension)
'NameSplit = Split(imgFileName,".")
'imgName = Lbound(NameSplit)
'imgName = NameSplit(imgName)
'------------------------------------------------------
'Gem originalt billede
Set MyImage = Server.CreateObject ("AspImage.Image")
MyImage.LoadImage = Server.MapPath("billeder/" & StrImage & "")
MyImage.FileName = Server.MapPath("billeder/" & imgFileName & "")
MyImage.SaveImage
'Luk objektet
Set MyImage = Nothing
'------------------------------------------------------
'Lav thumbnail
Set MyImage = Server.CreateObject("AspImage.Image")
MyImage.LoadImage imgFullPath
'Resize faktor
ResizedY = 90
ResizedX = 120
MyImage.GetImageFileSize imgFullPath, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
'Bibehold original ratio
ResizedX = (ResizedY / MyImage.MaxY) * MyImage.MaxX
MyImage.Resize ResizedX, ResizedY
'Gem thumbnail
MyImage.FileName = Server.MapPath("thumbnails/" & imgFileName & "")
MyImage.SaveImage
'Luk objektet
Set MyImage = Nothing
%>
håber at der er en der kan hjælpe mig :)
