Fejl i resize script

Jeg har dette upload med resize script som giver mig fejl:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'MyImage.ResizeR'

/bruger_profilbillede.asp, line 112


Linie 112 er :
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY

Nogen som kan hjælpe mig?
Der er installeret ASPimage på serveren.

<%
if T = "Upload" then'  Only allow jpg,gif,bmp files

'tjek tomt felt


'tjek filstørrelse


'tjek om bruger allerede har indsendt billede
strProfilePicture= "select * from profilbilleder where brugerID = " & session("ID") & ""
Set rsProfilePicture= conn.Execute(strProfilePicture)
if rsProfilePicture.EOF or rsProfilePicture.BOF then
else
'slet filer
Set fso = Server.CreateObject("Scripting.FilesystemObject")
set sletOrg = fso.getfile(server.mappath("profilbilleder\" & rsProfilePicture("filnavn") & ""))
set sletThumb = fso.getfile(server.mappath("profilbilleder\thumb\" & rsProfilePicture("filnavn") & ""))
sletOrg.delete
sletThumb.delete
set sletOrg = Nothing
set sletThumb = Nothing
Set fso = Nothing
'Response.Write "Slet: " & rb & "<br>"
sqlDelete = "DELETE FROM profilbilleder WHERE id = " & rsProfilePicture("ID")
    Conn.Execute(sqlDelete)
end if


Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

 
  '  Only allow jpg,gif,bmp files
    mySmartUpload.AllowedFilesList = "jpg"
   
    'Only allow files smaller than 50KB
    mySmartUpload.MaxFileSize = 512000
   
mySmartUpload.Upload

 
  For each file In mySmartUpload.Files
  If not file.IsMissing Then
  strkey = GetCode(12)
  '
  strPicture = session("ID") & strKey & ".jpg"
   
  file.SaveAs("profilbilleder/" & strPicture & "")
 
  If Err Then
  Response.Write("<b>Wrong selection: </b>" & Err.description)
    End If
 
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "select * from Profilbilleder"
  rs.Open strsql, conn, 1, 3
  rs.AddNew
  rs("brugerid") = session("ID")
  rs("tilfojet") = now()
  rs("filnavn") = strPicture
  rs.addnew
  set rs= nothing
 
  intCount = intCount + 1
 
  End If
 
  Next
 
  'make thumb
  Set MyImage = Server.CreateObject("AspImage.Image")
 
 
'MyImage.AddImageTransparent FYSISKsti & "images\logotmp.jpg", 5, 12, vbWhite



  MyImage.PadSize = 0

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

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

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

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

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName

'load original image
MyImage.LoadImage strOriginal

'Resize factor
ResizedX = 100

'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 "alert (""Dit billede er nu tilføjet og afventer godkendelse.."")" & vbCrLf
response.write "parent.location = 'default.asp?S=Bruger&cmd=Profilbillede';" & vbCrLf
response.write "-->" & vbCrLf
response.write "</script>"

set rsProfilepicture= nothing

end if



%>