ASP错误('800a01c9')此键已与该集合的一个元素关联-杂办?(急)

将出错的那行代码贴出来..

显示的是文件上传类的错误,但是其它模块调用同一个类时就没有任何问题.(应该不是上传类的毛病吧,下面是我的调用页代码:

<%
'response.end
ImagePath = server.mappath("./ProdImage")&"\"
Server.ScriptTimeout = 500000
UploadSizeLimit = 10*1024*1024
Dim myUpload
Dim file,FileType
Set myUpload =new upload_5xSoft
ImageType="GIF||JPG"

n_name = myUpload.Form("sname")
n_entname = myUpload.Form("sentname")
n_Num     = myUpload.Form("sNum")
n_height = myUpload.Form("sheight")
n_dw = myUpload.Form("sdw")
n_price = myUpload.Form("sprice")
n_pj = myUpload.Form("spj")
n_addr = myUpload.Form("saddr")
n_class = myUpload.Form("sclass")
n_classt = myUpload.Form("sclasst")
n_descript = myUpload.Form("sdescript")
n_isgood = myUpload.Form("sisgood")
n_mytime = myUpload.Form("smytime")
n_pic = ""

set Image=myUpload.file("spic")             ''生成一个文件对象
if Image.FileSize>0 then       ''如果 FileSize > 0 说明有文件数据
   if Image.FileSize>UploadSizeLimit then               ''如果超过文件大小限制
      response.write ""
  response.end
   elseif not instr(ImageType,Ucase(GetExtendName(Image.filename)))>0 then
      response.write ""
  response.end
   else
      todaynow=trim(cstr(now()))
      todaynow=replace(todaynow,"-","")
      todaynow=replace(todaynow," ","")
      todaynow=replace(todaynow,":","") 
      filename=todaynow&i&Image.filename
  filesize=cstr(int((Image.FileSize/1024)*100+0.5)/100)
      Image.SaveAs ImagePath&FileName    ''保存文件
  n_pic=FileName
  i=i+1
   end if
end if
set Image=nothing


set cOnConn=openconn()
set rsNews=server.CreateObject("adodb.recordset")
rsNews.open "select * from gpsq where 1=2",conConn,1,3
rsNews.addnew
rsNews("proname") = n_name
rsNews("entname") = n_entname
rsNews("Num")     = n_Num
rsNews("height") = n_height
rsNews("dw")     = n_dw
rsNews("price")     = n_price
rsNews("pj")     = n_pj
rsNews("addr")     = n_addr
rsNews("class")     = n_class
rsNews("descript") = n_descript
rsNews("isgood") = n_isgood
rsNews("smytime") = n_mytime
rsNews("pic")     = n_pic
rsNews.update
closeobj(rsNews)
closeobj(conConn)
Response.Write ""
%>

在你提交的表单里有两个或多个的name 相同