Resize original fil

Hvordan reziser jeg min originalfil, udover mit thumb i dette script?



<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DVDdb.mdb")
'####################### UPLOAD START #######################
'if mode = "Upload" then
'  Variables
'  *********
Dim mySmartUpload
Dim file
Dim intCount
intCount=0

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files

If not file.IsMissing Then
      strbillede = file.FileName
      file.SaveAs("album/" & mySmartUpload.Form("mappeid") & "_" & file.FileName)


'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from AlbumFiler"
    rs.Open strsql, conn, 1, 3

'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("mappeid") = mySmartUpload.Form("mappeid")
    rs("filnavn") = file.FileName
    rs("urlfilnavn") = mySmartUpload.Form("mappeid") & "_" & file.FileName
    rs("type") = file.FileExt
    rs("storrelse") = file.Size
    rs.update

        intCount = intCount + 1

End If
Next

'THUBM
'if file.FileExt = "jpg" then
'resize billede
  ' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & strbillede & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & strbillede & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "filmdatabase\album\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "filmdatabase\album\thumb\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & rs("mappeid") & "_" & strOrigImg
strThumb = strThumbFullPath & rs("mappeid") & "_" & strThumbName

'load original image
MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 120

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage

response.write strThumb & "<br>"
response.write stroriginal & "<br>"


set MyImage = nothing



response.write "<script language=""javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "this.location = 'album.asp?mappeid=" & rs("mappeid") & "';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"
'end if
%>