ASPimage: lave thumbnail med i forbindelse men upload

Hej Ex'er

Jeg skal have lavet en thumbnail i forbendelse med at jeg uploder et billed til min kones butik, der er aspimage installeret, thumbnailen skal lægges i samme mappe som det oprindelige billed, men kaldes th_ foran filnavnet, størrelsen skal være så det er max 200 px bredt, og max 300 bredt men det skal beholde det oprindelige bredde/højde forhold.


hvis man så også kan udlede det oprindelige billeds dimensioner ville det være kanon, gerne som variabler (var_bredde + var_hoejde) så de kan sættes ind i db.

Min kode herunder, uploader og laver de andre variabler der bruges i koden.



Set Upload = Server.CreateObject("Persits.Upload.1")   
Upload.OverwriteFiles = True
Upload.SetMaxSize 300000, True
Upload.SaveVirtual("../foto/")
   
Str_Grundpris          = Upload.Form("strGrundpris")
Str_VareNavn            = Upload.form("strVareNavn")
Str_UdsalgsPris        = Upload.form("strKortNummer")
Engros_pris            = Upload.form("Engros_pris")
Str_VareTekst          = Upload.form("strBeskrivelse")
Str_niveau1            = Session("TypeNavn")
Str_niveau2            = Upload.form("niveau2")
Str_niveau3            = Upload.form("niveau3")
Str_VareNummer          = Upload.form("strVareNummer")
Str_Layout              = Upload.form("strStkpalle")
Str_VareVaegt          = Upload.form("strVareVaegt")

If Str_VareVaegt = "" Then
Str_VareVaegt = 0
End If

For Each File in Upload.Files

Dim FileName
FileName = File.ExtractFileName