[Resolvido] Upload de vários arquivos e gravar seus nomes no banc

Saudações!!!

Pessoal, lutei o máximo que pude, já tentei tudo que estava em meu alcance.

É o seguinte:

Eu tenho um form que enviar 3 arquivos para uma página de Upload e nesta página de upload tenho um include que trago um arquivo que grava as informações do form bem como o nome dos arquivos.

Da forma que está agora, eu consigo fazer os uploads e gravar os dados no banco... PORÉM consigo pegar só o nome do último arquivo do formulário de upload.

Eu quero pegar os nomes dos três arquivos ao mesmo tempo e gravar no banco.

Vejam meus códigos:

Formulário:-

cadastro_ctc.asp

<form action="upload.asp" METHOD="POST" ENCTYPE="multipart/form-data" name="contas" >

 <fieldset>
 <legend>Cadastro de C.T.C Portaria Nº 154/2008</legend>
 <label>Selecione o Servidor:
 <select name="codtitular" onkeypress="cbboxSearch(this, event); return false;">
 <option value="0">Selecione</option>
 <%
 if not rs.eof then
 while not rs.eof
 %>
 <option value="<%=rs("codtitular")%>"><%=rs(server.HTMLEncode("nome"))%>-<%=rs(server.HTMLEncode("matricula"))%></option>
 <%
 rs.Movenext
 wend
 end if
 %>
 </select>
 </label>
 <label>
 Número da CTC<input type="text" name="numeroctc"/>
 </label>
 </fieldset>
 <fieldset>
 <legend>Selecione os Arquivos</legend>
 <label>
 CTC ANEXO I:<span>arquivos .pdf</span><input type="file" name="ENDERECOANEXO1" value="Upload"/>
 </label>
 <label>
 CTC ANEXO II:<span>arquivos .pdf</span><input type="file" name="ENDERECOANEXO2" value="Upload"/>
 </label>
 <label>
 CTC ANEXO III:<span>arquivos .pdf</span><input type="file" name="ENDERECOANEXO3" value="Upload"/>
 </label>
 <input type="submit" value="Upload" >
 </fieldset>
 </form>

Código que faço o upload e chamo o arquivo para gravar os dados que vieram do form

upload.asp

<%

Server.ScriptTimeout=50000
Set Upload = Server.CreateObject ("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")

' Tamanho do arquivo limite para 50.000 bytes, lançar uma exceção se o arquivo é maior
Upload.SetMaxSize 9900000, True

' Intercept todas as exceções para mostrar erro user-friendly
On Error Resume Next

Count = Upload.Save ("C:\Inetpub\wwwroot\fourinfo.com.br\www\antigo\rpps\ctc\arquivos\")

' 8 é o número de" Arquivo muito grande "exceção
If Err.Number = 8 Then
Response.Write "O arquivo é muito grande. Por favor, tente novamente"
Else
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
Else
Response.Write "Success!"
End If
End If

'Aqui trazemos informações sobre nome do arquivo, endereço e tamanho

For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
dim PegaNomeCampo, urlarquivo
PegaNomeCampo= File.Path

ENDERECOANEXO1 = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\"))

Next

%>
<!--#include file="adicionar_ctc.asp"-->

Arquivo que gravo os dados:

adicionar_ctc.asp

<%
'Recupero os dados
codtitular = Upload.Form("codtitular")
numeroctc = Upload.Form("numeroctc")

'Faço a conexão com o bd
cnpath="DBQ=" & Server.MapPath("../dados/dados.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DataSource

'Adiciono no bd
sqlString= "INSERT INTO ctc (codtitular, numeroctc, ENDERECOANEXO1, ENDERECOANEXO2, ENDERECOANEXO3) VALUES ( "&codtitular&", "&numeroctc&", '"&ENDERECOANEXO1&"', '"&ENDERECOANEXO2&"', '"&ENDERECOANEXO3&"')"

Conn.Execute sqlString

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Notícia
 adicionada com sucesso.</font></p>
<p align="center"><a href="javascript:window.history.go(-1)"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Clique
 aqui para voltar à página inicial</font></a></p>

<%
end if
sqlString.close
%>

Bom, é isso...

quer puder dar um help, serei mais uma vez muito grato.

Abraços

Jardel