求如何把上传的多张图片的名称（或上传路径）存入ASSECC数据库中
本人想把多张图片（例如四张）上传到指定文件夹（image）里，并把图片的名字（或路径）存入数据库（ACCESS）中，可是在上传中，图片是可以放入文件夹image中，pic1,pic2,pic3,pic4是数据库（新闻管理.mdb）中的一张表（news）字段，用于我存入上传图片的名称，但是图片存入ACCESS数据库时出现了一些情况如下：
ID...........Pic1................Pic2................Pic3..............Pic4......
1 ........2012-1.jpg......... 2012-1.jpg......... 2012-1.jpg .........2012-1.jpg
2 ........2012-2.jpg......... 2012-2.jpg .........2012-2.jpg......... 2012-2.jpg
3 ........2012-3.jpg..........2012-3.jpg..........2012-3.jpg..........2012-3.jpg
4.........2012-4.jpg..........2012-4.jpg..........2012-4.jpg..........2012-4.jpg

我想得到的是同一记录存放这四张图片的名称（如下：）
ID..........Pic1..............Pic2................Pic3...............Pic4..........
1..........2012-1.jpg........2012-2.jpg.........2012-3.jpg.......... 2012-4.jpg
2 
3 
4 
不知怎样写这些代码，恳请朋友帮忙为盼！下面是本人代码，请检阅斧正，期望您的佳音！
daima.asp
<%
dim data,datalength,fstart,fend,tstart,tend,tinfo,flag,flaglen,tformname,tfile,tfilename,tfilepath,tfileext,sfilename
set formdata=server.CreateObject("Scripting.Dictionary")
set updata=server.CreateObject("ADODB.Stream")
set tmpdata=server.CreateObject("ADODB.Stream")
updata.Type=1'设置对象的数据类型为二进制数据
updata.mode=3'设置对象的打开模式为读写模式
updata.open'打开对象
updata.write request.BinaryRead(request.TotalBytes)
updata.position=0
data=updata.read
datalength=updata.size
tcrlf=chrb(13) & chrb(10)'回车符号代码
flag=leftb(data,instrb(data,tcrlf)-1)'获取每个表单项目数据之间的分隔符
fstart=lenb(flag)+2'搜索开始位置 加2是因为分隔符后有一个回车符号占两个字节
flaglen=fstart'分隔符长度，包含了后面的回车符
'循环处理表单元素
do

  '分离出表单元素信息 即从开始查找位置到有两个回车符之间的信息
  fend=instrb(fstart,data,tcrlf&tcrlf)+3
  '初始化临时STREAM对象
  tmpdata.type=1
  tmpdata.mode=3
  tmpdata.open
  '设置指针位置
  updata.position=fstart
  updata.copyto tmpdata,fend-fstart'将元素表单信息复制到临时STREAM对象
  fstart=instrb(fend,data,flag)-1'查找下一个分隔符所在位置
  'fstart=instrb(fend,data,flag)
  tmpdata.position=0
  tmpdata.type=2'设置读取方式为文本
  tmpdata.charset="gb2312"'设置编码方式为GB2312
  tinfo=tmpdata.readtext
  '取得表单元素的名称
  tstart=instr(22,tinfo,"name=""")+6
  tend=instr(tstart,tinfo,"""",1)
  tformname=mid(tinfo,tstart,tend-tstart)
  '取得表单元素的值
  if instr(tstart,tinfo,"filename=""",1)>0 then '如果是文件
  tmpdata.close
tmpdata.type=1
tmpdata.mode=3
tmpdata.open
  '取得文件属性
tstart=instr(tend,tinfo,"filename=""",1)+10
tend=instr(tstart,tinfo,"""",1)
tfile=mid(tinfo,tstart,tend-tstart)'得到文件全路径
if tfile<>"" then
tfilename=mid(tfile,instrrev(tfile,"\")+1)'得到文件名
tfilepath=left(tfile,instrrev(tfile,"\"))'得到文件路径
tfileext=mid(tfile,instrrev(tfile,".")+1)' 得到文件后缀
sfilename=GetRndFileName(tfileext)
response.write tfilename
'得到文件数据
updata.position=fend
updata.copyto tmpdata,fstart-2-fend
tmpdata.savetofile server.MapPath("/image") & "\" & sfilename,2
formdata.add tformname,sfilename
end if
  else
  '如果是表单元素
  tmpdata.close
tmpdata.type=1
tmpdata.mode=3
tmpdata.open
updata.position=fend'设置指针指向数据区域开始位置
updata.copyto tmpdata,fstart-fend-2'复制数据到临时STREAM对象：复制长度为一下个分隔符开始位置-2 -2是因为要减掉最后的回车符长度
tmpdata.position=0
tmpdata.type=2
tmpdata.charset="gb2312"
formdata.add tformname,tmpdata.readtext
  end if
 fstart=fstart+flaglen'得到下次搜索开始位置:分隔符开始位置加上分融符长度得到下次搜索开始位置
  tmpdata.close
loop while (fstart+2)<dat