Upload og resize billeder

Hej eksperter

Jeg har fundet mange indlæg omkring mit spg., men jeg får det desværre ikke til at virke! så derfor dette spg.

Jeg kører i dag med nedenstående kode, men det giver meget bøvl, at billedet ikke må fylde mere end 50kb - når det samme kan opnås med resize. Mit ønske er, at det uploadede billede skal få størrelsen 300 x 200 pixels.

<%

Id = Session("hid")

Dim objUpload ' Definer en variabel til objektet

' Opret objektet så vi kan begynde at arbejde med det
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Only allow txt or htm files
objUpload.AllowedFilesList = "jpg, jpeg"

' Her sætter vi en begrænsning på filstørrelsen,
' for at undgå at der bliver uploadet alt for store filer
' En maksimal størrelse på 50Kb må være nok
objUpload.MaxFileSize = 50000

' For at undgå at siden bare stopper og for at vi
' kan fange fejlen hvis filen er for stor, slår vi
' fejl-check til
On Error Resume Next

' Foretag upload processen
objUpload.Upload

if not objUpload.files.item(1).isMissing then
objUpload.files.item(1).saveas "/" & Id & "/1.JPG"
end if
if not objUpload.files.item(2).isMissing then
objUpload.files.item(2).saveas "/" & Id & "/2.JPG"
end if
if not objUpload.files.item(3).isMissing then
objUpload.files.item(3).saveas "/" & Id & "/3.JPG"
end if
if not objUpload.files.item(4).isMissing then
objUpload.files.item(4).saveas "/" & Id & "/4.JPG"
end if

' Server.MapPath() benyttes her for at give
' upload objektet den faktiske sti i stedet for den virtuelle.

' Undersøg om der opstod en fejl
If Err Then
  ' Der opstod en fejl
Response.Redirect "uploadbilledefejl.asp"
Else
  ' Nej - det gik godt
Response.Redirect "uploadbilledeok.asp"
End If

' Så er vi færdige, så vi rydder pænt op efter os
Set objUpload = Nothing

%>

Hvad skal rettes til?

På forhånd tak.