upload de arquivo multiplo

pessoal, estou com um pequeno problema.... creio que seja simples

tenho o seguinte fonte

on error resume next
arquivos = "caminhovirtual"
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = False
objUpload.UseUniqueNames = False
objUpload.MaxFileSize = 6000000
objUpload.Save arquivos

if err.number <> 0 then
%>

<script type="text/javascript">
window.addEvent('domready', function() {
	Sexy.error('<h1>erro!</h1><p>tamanho do arquivo deve ser até 60mb!</p>')
})
</script>

For Each arquivos in objUpload.Files
Path = arquivos.Path
NomeArquivo = objUpload.GetFileName(Path)
Next

DataHora = RIGHT("0" & Day(Now),2) & "_" & RIGHT("0" & Month(Now),2) & "_" & Year(Now) & "_" & RIGHT("0" & Hour(Now),2) & "_" & RIGHT("0" & Minute(Now),2) & "_" & RIGHT("0" & Second(Now),2)

Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile("caminhovirtual" & NomeArquivo)
fileObject.Name = DataHora & "_" & NomeArquivo
Set fileObject = Nothing
Set fso = Nothing

NomeArquivo = DataHora & "_" & NomeArquivo

 insert = "insert into clientes(nome,mail,telefone,paginas,descricao,psd,data)"
 insert = insert & "values ('" & objUpload.Form("txtNome") & "','" & objUpload.Form("txtMail") & "',"
 insert = insert & "'" & objUpload.Form("txtTelefone") & "','" & objUpload.Form("txtPaginas") & "','" & objUpload.Form("txtDesc") & "','" & NomeArquivo & "', '"& Now() & "')"
 set inseri = bd.execute(insert)

o problema está na hora de inserir no banco pois, tenho dois campos file.... e ele só salvo o primeiro nome, ou seja, ele duplica o nome no bd nas duas colunas....

mas no diretório virtual ele salva que uma beleza