upload de fotos gravando o nome no bd

Olá amigos!!

estou tentando inserir o nome das fotos no bd com o scritp abaixo, ele manda as fotos beleza mas só grava o nome da foto do primeiro campo.

For Each files In objUpload.files

varfoto = objUpload.GetFileName(objUpload.Files(0).Path)
'varnome=objUpload.form("nomegaleria")
varIDCategoria=objUpload.form("IDCategoria")

next

comando="INSERT INTO eventos_fotos(idcategoria,foto)VALUES('"&varIDCategoria&"','"&varfoto&"')"
set rs=conexao.execute(comando)

response.Write"<script>alert('Cadastro Efetuado com sucesso!!');</script>"
response.Write("<script>top.location='CadEventos.asp'</script>")

' Remover o objeto
Set objUpload = Nothing