Lav automatisk et lille thumb billede af den uploadede fil

jeg bruger nu denne komponet til at uploade med :

  <%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 2048576
    Upload.Save server.mappath("/produktfoto/")
%>

komponentet aspImage kan lave et thumb og gemme det.

er det noget du har, eller kan lave et eksempel på?

prøv om ikke du kan bruge dette

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intWidth = 400
If (Image.MaxX > intWidth) OR (Image.MaxY > intWidth) Then
If(Image.MaxX > Image.MaxY) Then
intRatio = ((intWidth * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR intWidth, intNewY
Image.ImageFormat = 1
Else
intRatio = ((intWidth * 100) / Image.MaxY)
intNewX = CInt(Image.MaxX * (intRatio / 100))
Image.ResizeR intNewX, intWidth
Image.ImageFormat = 1
End if
End If
Image.FileName = Server.MapPath("/images/Pictures/" & strFilename)
Image.SaveImage
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intRatio = ((40 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR 40, intNewY
Image.ImageFormat = 1
Image.FileName = Server.MapPath("/images/Pictures/thumbnails/" & strFilename)
Image.SaveImage
Set Image = Nothing

den server du bruger skal have komponentet installeret. er det din egen server, så download en evaluation copy af det. spørg google hvor du kan hente det.

tak for hjælpen, jeg kikker på det.