Upload + Image

Hej

Det er lykkedes mig at stykke følgende kode sammen :

##############################################
<!-- #include file="includes/adovbs.inc" -->
<!-- #include file="includes/mysql_con.asp" -->
<!-- #include file="includes/funktioner.asp" -->

<html>
<body>

<form method="post" enctype="multipart/form-data" action="pic.asp?p=uploaded">
  <input type=file name="file1"><br>
  <input type=file name="file2"><br>
  <input type=file name="file3"><br>
  <input type=submit value="upload!">
</form>

</body>
</html>

<% If request.querystring("p") = "uploaded" Then

  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.Save("d:\home\boligtavlendk\www\beta\graf\annoncepics\")

For Each File in Upload.Files
    If File.ImageType <> "JPG" Then
        Response.Write "This is not a JPGE image."
        File.Delete
        Response.End
    End If

StorX = 300
StorY = 225

lilleX = 150
lilleY = 100

PID = MakePassword(5)

    Set Image = Server.CreateObject("AspImage.Image")

    Image.LoadImage File.Path

    Image.Resize StorX,StorY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = "d:\home\boligtavlendk\www\beta\graf\annoncepics\stor_" & PID & ".jpg"
    Image.SaveImage

    picstor= "stor_" & PID & ".jpg"

    Image.LoadImage File.Path

    Image.Resize lilleX,lilleY
    Image.ImageFormat = 1
    Image.JPEGQuality = 75
    Image.FileName = "d:\home\boligtavlendk\www\beta\graf\annoncepics\lille_" & PID & ".jpg"
    Image.SaveImage
   
    piclille= "lille_" & PID & ".jpg"
   
    Set Image = nothing   

%>
    <IMG SRC="graf/annoncepics/<% = piclille %>"><BR><br>
    <IMG SRC="graf/annoncepics/<% = picstor %>"><BR>
<%
Next

End If %>
##############################################
Det virker såmænd også fint nok ( htpp://boligtavlen.dk/beta/pic.asp ).
Problemet er at jeg gerne ville ha' den til at bruge originalen som "picstor" og så bare lave en "piclille" som den gør nu...