Upload virker ikke...

Hey - har fået stykket dette stykke kode sammen:
<%
 
If Request.Querystring("type") = 1 then 'hvis det findes på serveren...

Navn = Request.Form("ServerFile")


ElseIf Request.Querystring("type") = 2 then 'hvis det skal uploades...

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If not file.IsMissing Then
          file.SaveAs("/images/nyheder/" & file.FileName)
          Navn = file.FileName
      End If
    Next
         
ElseIf Request.Querystring("type") = 3 then 'hvis der intet billede skal bruges...

Navn = ""


End If


Response.Write(Navn)

%>


Men det giver denne fejl:
Fejltype:
aspSmartUpload (0x800A0009)
Subscript out of range
/admin/nyhed_skriv_loader.asp, line 12


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Side:
POST 182 bytes to /admin/nyhed_skriv_loader.asp

POST Data:

Microsoft VBScript runtime fejl '800a000d'

Type mismatch: 'Server.HTMLEncode'

/iisHelp/common/500-100.asp, linje 225