Hjælp med resize af billede

Så dit billede ligger på serveren? Hvor?

Nu er det meget sent, men prøv dette her (kræver så en billedesti og ikke et id i querystringen ImagePath):
----------------------------------------------------
<%@ LANGUAGE="VBSCRIPT"
Response.Expires=0
Response.Buffer=1
Response.Clear
Response.ContentType="image/jpeg"

vImage=Request.QueryString("ImagePath")
vImageWidth=Request.QueryString("ImageWidth")

If IsNull(vImageWidth) Then vImageWidth=200

Set Fs=Server.CreateObject("ADODB.Stream")
set oImage=Server.CreateObject("W3Image.Image")

Fs.Type=1
Fs.Open

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFSO=objFSO.GetFile(Server.MapPath(VImage))
Fs.Write objFSO
Set objFSO=Nothing

oImage.LoadImageFromStream Fs

Fs.Close

iScaleFactor=CDbl(vImageWidth/oImage.Width)
oImage.Scale 100*iScaleFactor,0

oImage.StreamImage Response,"JPG",24

Response.End%>

Den siger:

<font face="Arial" size=2>
<p>ADODB.Stream</font> <font face="Arial" size=2>error '800a0bb9'</font>
<p>
<font face="Arial" size=2>Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.</font>
<p>
<font face="Arial" size=2>/ShowImage.ASP</font><font face="Arial" size=2>, line 21</font>

<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Expires=0
Response.Buffer=1
Response.Clear
Response.ContentType="image/jpeg"

vImage=Request.QueryString("ImagePath")
vImageWidth=Request.QueryString("ImageWidth")

If IsNull(vImageWidth) Then vImageWidth=200

Set Fs=Server.CreateObject("ADODB.Stream")
set oImage=Server.CreateObject("W3Image.Image")

Fs.Type=1
Fs.Open

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFSO=objFSO.GetFile(Server.MapPath(VImage))
Fs.Write objFSO
Set objFSO=Nothing

oImage.LoadImageFromStream Fs

Fs.Close

iScaleFactor=CDbl(vImageWidth/oImage.Width)
oImage.Scale 100*iScaleFactor,0

oImage.StreamImage Response,"JPG",24

Response.End%>


<IMG SRC="ShowImage.ASP?ImagePath=Grafik/Unavngivet.JPG&ImageWidth=200"><br>

Ændrede det lige så nu tror jeg det virker.. Set objFSO=objFSO.GetFile(Server.MapPath(VImage))

oImage.LoadImage objFSO

Fungerer det så nu?

Ja. Men jeg tror bare den virker ligesom <img src="#" width="??" height="??">

Jaeh, muligvis. Men har den ikke hele tiden gjort det?

Jo, men det er ikke meningen den skal. Den skal resize billederne ligesom hvis man bruger "free transform" i photoshop

Dér tabte du mig. Jeg kender godt free transform i PS, men jeg forstår ikke lige, hvordan du vil bruge det her.

Lukketid? =)