ASP Image endnu engang
hej alleNu spørger jeg igen.. :)
Jeg har denne kode:
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 3000000, True
Count = Upload.Save(Server.Mappath("test/"))
If Err <> 0 or Count = 0 Then
If Err <> 0 Then theresponse = "Fejl: " & Err.Description Else theresponse = "Fejl: Ingen fil(er) valgt."
else
Set File = Upload.Files(1)
response.write "Billedet er uploadet"
end if
if right(File.Filename,4) <> ".gif" then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.MapPath("test/" & File.Filename)
x = Image.MaxX
y = Image.MaxY
ResizedY = (300/ x) * y
Image.ResizeR 300, ResizedY
Image.SaveImage
response.write "Billedets størrelse er lavet om."
end if
selv uploadnings delen er fin nok, den virker, men når jeg upload f.eks. et jpg billeder der er større end 300 i width så skulle den gerne lave den mindre og det gør den ikke, men den udskiver teksten "Billedets størrelse er lavet om."
Hvad er der galt...
Thomas
