Upload og resize virker nu ikke i exp 7.0

Hej eksperter

Jeg har med stor succes brugt nedenstående kode til upload af billeder og efterfølgende resize. Efter installering af explorer 7.0 virker resize-funktionen ikke ved større billeder????

Kan jeg ændre noget i koden? Eller har I forslag til en helt anden måde til upload og resize?

Virkelig på forhånd tak.

<%
            function resize(sti,navn,nyX)
    Set objImg = Server.CreateObject("AspImage.Image")
        objImg.PadSize = 0
        objImg.LoadImage Server.MapPath(sti & navn)
        objImg.GetImageFileSize Server.MapPath(sti & navn), X, Y
   
        ResizedX = nyX
        objImg.MaxX = X
        objImg.MaxY = Y
   
        if X > ResizedX then
            ResizedY = (ResizedX / objImg.MaxX) * objImg.MaxY
            objImg.ResizeR ResizedX, ResizedY
            objImg.FileName = (Server.MapPath(sti & navn))
            objImg.SaveImage
        end if
   
    Set objImg = Nothing
end function

If Request("s") = "upload" Then

  Dim mySmartUpload
  Dim file1
  Dim intCount
  intCount=0

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
  'limit the file extensions to pictures files
  mySmartUpload.allowedFilesList="jpg,jpeg"
  On Error Resume Next
 
  mySmartUpload.Upload

  For each file1 In mySmartUpload.Files

      If not file1.IsMissing Then
       
        'file1.SaveAs("/upload/" & Session("Bruger") & "/" & file1.FileName)
        billede = file1.FileName
        billede = replace(billede, " ", "_")
        billede = replace(billede, ",", "_")
        billede = replace(billede, "'", "_")
        billede = replace(billede, "æ", "_")
        billede = replace(billede, "Æ", "_")
        billede = replace(billede, "ø", "_")
        billede = replace(billede, "Ø", "_")
        billede = replace(billede, "å", "_")
        billede = replace(billede, "Å", "_")
        billede = replace(billede, "JPG", "jpg")
        file1.SaveAs("/upload/" & Session("Bruger") & "/" & billede)
       
          SQL = "INSERT INTO Upload(Bruger, Billede)"
            SQL = SQL & "Values("
            SQL = SQL & "'" & Session("Bruger") & "',"
            SQL = SQL & "'" & billede & "'"
            SQL = SQL & ")"
           
            Conn.Execute(SQL)

        Response.Write("<font face='Verdana' color='#000000' size='2'>Du har netop uploadet dette billede: " & billede & "</font><p>")
        call resize("/upload/" & Session("Bruger") & "/",billede,520)
        Response.Write("<font face='Verdana' color='#000000' size='2'><img src=""/upload/" & Session("Bruger") & "/" & billede & """ title=""Dit billede er nu uploadet""></font><br>")
        intCount = intCount + 1
      End If
  Next
 
If Err Then
  'Der opstod en fejl
  Response.Write("<p><font face='Verdana' color='#666666' size='2'>Fejl, du har forsøgt at uploade et ugyldigt billedeformat. Kun .jpg filer er gyldige.</font><p>")
  End If

Response.Write("<p><a href='adminsideupload.asp'><font face='Verdana' color='#000000' size='2'>>> Upload nyt billede</font></a><p>")

Else
%>