hantering av bilder

tja har lite problem här

försöker göra en skript som laddar upp bilder till olicka mappar som man skapar med ett annat skript.

koden kommer här under
------------------------------------------------------------------------------------

<!-- #include file="adovbs.inc" -->

<% If Request.QueryString("page") = "" Then %>
<FORM METHOD="POST" ACTION="ltest.asp?page=doupload&mapp=1" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

<% ElseIf Request.QueryString("page") = "doupload" Then %>
<%
mapp = Request.QueryString("mapp")
strPathWay = "/bilder/"
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath(strPathWay))
strNewMapp = Server.MapPath(strPathWay)& "/" & mapp
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload <------- här är felet
intCount = mySmartUpload.Save("& strNewMapp &" & file.FileName)
Response.Write(intCount & " file(s) uploaded.")
%>

<%Else%>
hack attack
<%End If%>

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

här kommer error message
------------------------------------------------------------------------------------

aspSmartUpload error '800a01c9'

This key is already associated with an element of this collection

/ltest.asp, line 43 : denna del är felet

mySmartUpload.Upload

detta finns längre upp på koden <------- här är felet ::::: visar var felet finns