Consegui resolver essa parada lendo alguns tópicos aqui do fórum e praticando "pacientemente"... pois bem, aqui vai o código solucionado. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = False
objUpload.UseUniqueNames = False
' Salva o arquivo no caminho indicado abaixo.
'objUpload.Save server.MapPath("/album/fotos")
objUpload.Save "C:\Inetpub\vhosts\meudominio\httpdocs\album\fotos"
objUpload.SaveToMemory
Dim rs
'For Each objUploadedFile in objUpload.Files---> troquei esta linha, que enumerava cada objeto upado dentro da coleção objUpload.Files...
For i = 0 to objUpload.Files.Count-1 ---> ...por esta linha, que obtém o total de campos no form, no meu caso 5 campos, enumerados pelo integer (i)
'String que aponta o caminho da imagem no banco de dados.
'foto = "fotos/" & objUpload.GetFileName(objUpload.Files(0).Path)---> troquei tb esta linha, nitidamente o mesmo arquivo era contado mas de uma vez.
'Nesta linha aponto o arquivo atual upado, para efeitos de exibição no painel admin, está OK.
foto = "/album/fotos/" & objUpload.GetFileName(objUpload.Files(i).Path)
'Nesta linha obtenho o nome do arquivo atual que foi upado no form, está OK.
nome = objUpload.GetFileName(objUpload.Files(i).Path)
'esta linha armazena o caminho virtual do arquivo para efeito de exibição no painel administrativo somente, está OK.
servidor = "/album/fotos/" & objUpload.GetFileName(objUpload.Files(i).Path)
'AQUI ERA O IMPASSE, MAS CONSEGUI RESOLVER.
'Aponto a conexão com o BD
Set Cnn = Server.CreateObject("ADODB.Connection")
'String de conexão com o BD
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/bd/album.mdb")
'string para inserção de cada arquivo upado, obtendo o VALUE das variáveis especificadas anteriormente.
sql = "INSERT INTO imagem (img_nome,caminho,caminhodoarquivo)"
sql = sql & " VALUES ("
sql = sql & "'" & nome & "',"
sql = sql & "'" & foto & "',"
sql = sql & "'" & servidor & "')"
'Nas linhas acima gravo cada valor das variáveis em seus respectivos campos na tabela no BD, está OK.
'Aqui finalmente executo a instrução para finalizar a gravação do arquivo atual no BD, está OK.
Set rs = cnn.execute(sql)
Next---------> Aqui a solução de todo o impasse, agora nesta linha o loop é direcionado para o próximo arquivo upado, incrementando o integer (i)
set objUpload = Nothing
'escreve na tela que o arquivo foi enviado com sucesso.
Response.Redirect("index.asp")---------> Aqui o usuário finalmente é direcionado para a página onde visualizará os arquivos upados.
%> Bem, como sou novo na questão SQL para ASP, certamente os profissionais possuem observações importantes a respeito do código acima, claro que quero conhecer cada opinião, pois o saber não ocupa espaço, e não se aprende apenas ouvindo, mas praticando. Agradeço desde já e deixo mais um desafio no fórum: COMO UTILIZAR A CONTENTO O RECAPTCHA EM UMA PÁGINA DE ENVIO DE FORMULÁRIO, TIPO COMENTÁRIOS SOBRE UM ARTIGO EM UMA PÁGINA ASP??? Aguardo posts, abraço a todos.
