AspSmartUpload - Subscript out of range

Hejsa.

Nu har jeg kigget en god del af spørgsmålene igennem herpå som vedrører AspSmartUpload. Dog uden held at finde nogen hjælp.
Så jeg forsøger mig med selv at oprette et spørgsmål.

Jeg har lavet et script som uploader en .jpg eller .jpeg fil.
Lige efter det er uploaded træder ASPImage igang og sørger for det ikke er for bredt.

Dog er jeg løbet på en kedelig fejl meddelelse som jeg nu har kæmpet med hele dagen.

AspSmartUpload giver mig fejlen "Subscript out of range"

Her er hele scriptet.

----------------------------------------------
   
<b>Upload Profil Billede</b><br /><br />
<strong>Bem&aelig;rk:</strong><br />
Billedet skal v&aelig;re af typen .JPG eller .JPEG og m&aring; max fylde 100kb.<br /><br />
                       
<form method="post"          action="edit.profile.asp?action=UploadProfilePic&UploadNow=yes" enctype="multipart/form-data">
<input type="file" name="fil" style="width:250px;"><br /><br />
<input type="submit" value="Gem">
</form><br /><br />
               
               
<%
UploadNow = request.QueryString("UploadNow")
if UploadNow = "yes" then
               
On Error Resume Next
               
Server.ScriptTimeout = 300
filepath = "../images/uploads/profil_billede"
userName = rs("brugernavn")
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,jpeg"
mySmartUpload.DenyPhysicalPath = True
mySmartUpload.TotalMaxFileSize = 100000
mySmartUpload.Upload
                   
If Err Then
Response.Write("<b><font color='#A70000'>Der opstod en fejl</font></b><br />" & Err.description)
else
                   
For each file In mySmartUpload.Files
file.SaveAs (""&filepath &"/"& userName &"."& file.FileExt&"")
pic = userName &"."& file.FileExt
Next
                   
Width = 800
id = rs("MemberID")
sqlu ="update Profil_Billede set Pic='"&pic&"' where BEID="&id
conn.execute(sqlu)
sqlb ="update Members Set Billede_Profil=1 where MemberID="&id
conn.execute(sqlb)
                   
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\images\uploads\profil_billede\"&pic
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.ImageFormat = 1
Image.JPEGQuality = 80
if ImageWidth > Width then
NewHeight = Cint(ImageHeight*Width/ImageWidth)
NewWidth = Width
Image.ResizeR NewWidth,NewHeight
Image.FileName = Request.ServerVariables("APPL_PHYSICAL_PATH")& "\images\uploads\profil_billede\"&pic
Image.SaveImage
else
Image.FileName = Request.ServerVariables("APPL_PHYSICAL_PATH")& "\images\uploads\profil_billede\"&pic
Image.SaveImage
end if
                   
if mySmartUpload.Files.Count >= 1 then
                    Response.Write("<strong>Dit profil billede er lagt til validering.</strong><br />Det vil blive valideret hurtigst muligt og du vil få yderligere besked herom.")
end if
end if
end if
%>

---------------------------------------------

150 points da der er essientielt jeg får løst problemet hurtigst muligt.