eu fiz desta forma SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Arquivos carregados:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles &" , " & Upload.UploadedFiles(fileKey).FileName
grava = Upload.UploadedFiles(fileKey).FileName&","
grava=replace(grava,",","")
sql = "select * from foto_evento where evento='"& evento &"' and foto='"& grava &"' "
set recordset= conn.execute(sql)
if recordset.eof = true then
enviadados = "insert into foto_evento (evento,foto)values ('" & evento & "','" & grava & "')"
set rs= conn.execute(enviadados)
end if
next
else