[Resolvido] Upload com redundancia

Opa galera tudo certo?

Estou com um probleminha aqui no upload em asp, é o seguinte...

estou subindo 4 imagens para o sevidor e armazenando seus respectivos nomes no banco de dados (access),

até aí normal, salva na pasta no servidor, só que na hora de armazenar no banco, todos os campos ("imagem", "imagem2", "imagem3", "imagem4") ficam com o mesmo nome de imagem, aí na hora de listar no site, aparece a mesma imagem em todos os lugares...

já vasculhei e nao achei o problema, será que alguem consegue me ajudar...

segue a página abaixo...

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<!--#Include file="upload.inc"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<%

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

dim Titulo, Conteudo, pagina, cfoto, cfoto2, cfoto3, cfoto4

' Recuperando os Dados Digitados ----------------------
Titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")
Chamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")
Conteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")
pagina = UploadRequest.Item("pagina").Item("Value")

If pagina = "Nossas Lutas" Then
pagina = "Nossas Lutas"
end if
if pagina = "Nossos Projetos" then
pagina = "Nossos Projetos"
End If
if pagina = "Nossos Eventos" then
pagina = "Nossos Eventos"
end if

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
foto2 = UploadRequest.Item("foto2").Item("Value")
foto3 = UploadRequest.Item("foto3").Item("Value")
foto4 = UploadRequest.Item("foto4").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("/fotos/")
nome_foto = "/"&nome_foto
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4

' pasta + nome dos arquivos
cfoto = nome_foto
cfoto2 = nome_foto2
cfoto3 = nome_foto3
cfoto4 = nome_foto4

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

if foto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(foto2)
MyFile.Write chr(AscB(MidB(foto2,i,1)))
Next
MyFile.Close
end if

if foto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(foto3)
MyFile.Write chr(AscB(MidB(foto3,i,1)))
Next
MyFile.Close
end if

if foto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(foto4)
MyFile.Write chr(AscB(MidB(foto4,i,1)))
Next
MyFile.Close
end if

If foto <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
Set f=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto)

nome = now()
nome = trim(replace(nome,":",""))
nome = replace(nome,"/","")
nome = replace(nome," ","")
cfoto = nome & ".jpg"

'RENOMEIA A IMAGEM
f.name = nome & ".jpg"

If foto2 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
Set f2=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto2)

nome2 = now()
nome2 = trim(replace(nome2,":",""))
nome2 = replace(nome2,"/","")
nome2 = replace(nome2," ","")
cfoto2 = nome2 & ".jpg"

'RENOMEIA A IMAGEM
f2.name = nome2 & "2.jpg"

If foto3 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
Set f3=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto3)

nome3 = now()
nome3 = trim(replace(nome3,":",""))
nome3 = replace(nome3,"/","")
nome3 = replace(nome3," ","")
cfoto3 = nome3 & ".jpg"

'RENOMEIA A IMAGEM
f3.name = nome3 & "3.jpg"

If foto4 <> "" Then

'PEGA A IMAGEM NO LOCAL ESPECÍFICO
Set f4=ScriptObject.GetFile(Server.MapPath("/fotos/")&cfoto4)

nome4 = now()
nome4 = trim(replace(nome4,":",""))
nome4 = replace(nome4,"/","")
nome4 = replace(nome4," ","")
cfoto4 = nome4 & ".jpg"

'RENOMEIA A IMAGEM
f4.name = nome4 & "4.jpg"

End If
End If
End If
End If

'ABRIR A CONEXÃO
Call AbreConn()

' INSERIR AS NOTICIAS NO BANCO DE DADOS

	sql = "INSERT INTO tb_evento (titulo_evento, chamada_evento, texto_evento, imagem, imagem2, imagem3, imagem4, data_evento, pagina_evento) " &_
 "VALUES ('" & Titulo & "', '" & Chamada & "', '" & Conteudo & "', '" & cfoto & "', '" & cfoto2 & "', '" & cfoto3 & "', '" & cfoto4 & "',' " & now() & "' , '" & pagina & "')"
	'response.Write(sql)
	'response.End()

'EXECUTAR A INSTRUÇÃO NO BANCO DE DADOS
Conn.Execute(sql)

'FECHAR A CONEXÃO
Call FechaConn

%>

<div align="center" class="azul">
<%if pagina = "Nossas Lutas" then%>
<%Response.Write("Cadastrado em Nossas Lutas")%><br><br>
<%End If%>

<%if pagina = "Nossos Projetos" then%>
<%Response.Write("Cadastrado em Nossos Projetos")%><br><br>
<%End If%>

<%if pagina = "Nossos Eventos" then%>
<%Response.Write("Cadastrado em Nossos Eventos")%><br><br>
<%End If%>

</div>

<script type="text/javascript">

window.location="evento.asp" </script> valeu galera... abraço!