Simpel resize med aspimage

Her et eks som gemmer åbner resizer og gemmer igen med t_ foran fiulnavet. Skal filen bare overskrives kan man bare fjerne linje:
Image.FileName = Server.Mappath(sti & "t_" & filnavn)


<%
sti = "/images/"
filnavn = "billede.jpg"

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.Mappath(sti & filnavn)
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX

'Udregn ny størrelse ud fra ønsket bredde på 400
fixedWidth = 400
NewHeight = Cint(ImageHeight*fixedWidth/ImageWidth)
NewWidth = fixedWidth

'Resize billedet til den nye størrelse
Image.ResizeR NewWidth,NewHeight
'Sæt et nyt filnavn "t_" foran
Image.FileName = Server.Mappath(sti & "t_" & filnavn)
'Gem filen
Image.SaveImage
Set Image = Nothing
%>

jeg prøver det lige, men kan man ikke gøre det uden at gemme??

Prøv med at udskrive billedet i stedet for at gemme så
Response.BinaryWrite Image.Image


Så dette:
'Resize billedet til den nye størrelse
Image.ResizeR NewWidth,NewHeight
'Sæt et nyt filnavn "t_" foran
Image.FileName = Server.Mappath(sti & "t_" & filnavn)
'Gem filen
Image.SaveImage
Set Image = Nothing

Bliver til:

'Resize billedet til den nye størrelse
Image.ResizeR NewWidth,NewHeight
'Uskriv villede
Response.BinaryWrite Image.Image

Check mit eksempel: http://www.web4it.dk/aspimage/vispic.htm

?

Jeg giver jer 30 point hver, og mange tak for hjælpen