Como pegar o nome do arquivo

[webfuture 0]

Galera, estou com um probleminha aqui que acho que deve ser fácil de ser resolvido, é o seguinte, tenho um formulario onde o usuario tem 3 campos text e alguns campos form com nomes definidos não file1, file2, file3, etc...

 

O que preciso que quando submetido este formulario seja feito o upload do arquivo e também, se for enviado algum arquivo, que seja recuperado o nome do campo que enviou o arquivo e o nome do arquivo, a ultima parte nao consigo fazer, nao estou conseguindo recuperar o nome do arquivo enviado somente o nome do campo.

 

Vejam só:

 

<%

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.Useuniquenames = true

objUpload.SaveToMemory

For Each objUploadedFile in objUpload.Files

fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)
fileext = objUpload.GetFileExt(objUploadedFile.OriginalPath)
id = objUpload.Form("id")
acao = objUpload.Form("acao")

id_destaque = "1"
chamada1_titulo = Remove_Quotes(objUpload.Form("chamada1_titulo"))
chamada1_descricao = Remove_Quotes(objUpload.Form("chamada1_descricao"))
chamada1_url = Remove_Quotes(objUpload.Form("chamada1_url"))
chamada2_titulo = Remove_Quotes(objUpload.Form("chamada2_titulo"))
chamada2_descricao = Remove_Quotes(objUpload.Form("chamada2_descricao"))
chamada2_url = Remove_Quotes(objUpload.Form("chamada2_url"))
chamada3_titulo = Remove_Quotes(objUpload.Form("chamada3_titulo"))
chamada3_descricao = Remove_Quotes(objUpload.Form("chamada3_descricao"))
chamada3_url = objUpload.Form("chamada3_url")
chamada4_titulo = Remove_Quotes(objUpload.Form("chamada4_titulo"))
chamada4_descricao = Remove_Quotes(objUpload.Form("chamada4_descricao"))
chamada4_url = Remove_Quotes(objUpload.Form("chamada4_url"))
chamada5_titulo = Remove_Quotes(objUpload.Form("chamada5_titulo"))
chamada5_descricao = Remove_Quotes(objUpload.Form("chamada5_descricao"))
chamada5_url = Remove_Quotes(objUpload.Form("chamada5_url"))
chamada6_titulo = Remove_Quotes(objUpload.Form("chamada6_titulo"))
chamada6_descricao = Remove_Quotes(objUpload.Form("chamada6_descricao"))
chamada6_url = Remove_Quotes(objUpload.Form("chamada6_url"))
chamada7_titulo = Remove_Quotes(objUpload.Form("chamada7_titulo"))
chamada7_descricao = Remove_Quotes(objUpload.Form("chamada7_descricao"))
chamada7_url = Remove_Quotes(objUpload.Form("chamada7_url"))
chamada8_titulo = Remove_Quotes(objUpload.Form("chamada8_titulo"))
chamada8_descricao = Remove_Quotes(objUpload.Form("chamada8_descricao"))
chamada8_url = Remove_Quotes(objUpload.Form("chamada8_url"))
chamada9_titulo = Remove_Quotes(objUpload.Form("chamada9_titulo"))
chamada9_descricao = Remove_Quotes(objUpload.Form("chamada9_descricao"))
chamada9_url = Remove_Quotes(objUpload.Form("chamada9_url"))
chamada10_titulo = Remove_Quotes(objUpload.Form("chamada10_titulo"))
chamada10_descricao = Remove_Quotes(objUpload.Form("chamada10_descricao"))
chamada10_url = Remove_Quotes(objUpload.Form("chamada10_url"))
chamada11_titulo = Remove_Quotes(objUpload.Form("chamada11_titulo"))
chamada11_descricao = Remove_Quotes(objUpload.Form("chamada11_descricao"))
chamada11_url = Remove_Quotes(objUpload.Form("chamada11_url"))
chamada12_titulo = Remove_Quotes(objUpload.Form("chamada12_titulo"))
chamada12_descricao = Remove_Quotes(objUpload.Form("chamada12_descricao"))
chamada12_url = Remove_Quotes(objUpload.Form("chamada12_url"))
chamada13_titulo = Remove_Quotes(objUpload.Form("chamada13_titulo"))
chamada13_descricao = Remove_Quotes(objUpload.Form("chamada13_descricao"))
chamada13_url = Remove_Quotes(objUpload.Form("chamada13_url"))
chamada14_titulo = Remove_Quotes(objUpload.Form("chamada14_titulo"))
chamada14_descricao = Remove_Quotes(objUpload.Form("chamada14_descricao"))
chamada14_url = Remove_Quotes(objUpload.Form("chamada14_url"))
chamada15_titulo = Remove_Quotes(objUpload.Form("chamada15_titulo"))
chamada15_descricao = Remove_Quotes(objUpload.Form("chamada15_descricao"))
chamada15_url = Remove_Quotes(objUpload.Form("chamada15_url"))
chamada16_titulo = Remove_Quotes(objUpload.Form("chamada16_titulo"))
chamada16_descricao = Remove_Quotes(objUpload.Form("chamada16_descricao"))
chamada16_url = Remove_Quotes(objUpload.Form("chamada16_url"))
chamada17_titulo = Remove_Quotes(objUpload.Form("chamada17_titulo"))
chamada17_descricao = Remove_Quotes(objUpload.Form("chamada17_descricao"))
chamada17_url = Remove_Quotes(objUpload.Form("chamada17_url"))
chamada18_titulo = Remove_Quotes(objUpload.Form("chamada18_titulo"))
chamada18_descricao = Remove_Quotes(objUpload.Form("chamada18_descricao"))
chamada18_url = Remove_Quotes(objUpload.Form("chamada18_url"))
chamada19_titulo = Remove_Quotes(objUpload.Form("chamada19_titulo"))
chamada19_descricao = Remove_Quotes(objUpload.Form("chamada19_descricao"))
chamada19_url = Remove_Quotes(objUpload.Form("chamada19_url"))
chamada20_titulo = Remove_Quotes(objUpload.Form("chamada20_titulo"))
chamada20_descricao = Remove_Quotes(objUpload.Form("chamada20_descricao"))
chamada20_url = Remove_Quotes(objUpload.Form("chamada20_url"))
chamada21_titulo = Remove_Quotes(objUpload.Form("chamada21_titulo"))
chamada21_descricao = Remove_Quotes(objUpload.Form("chamada21_descricao"))
chamada21_url = Remove_Quotes(objUpload.Form("chamada21_url"))
chamada22_titulo = Remove_Quotes(objUpload.Form("chamada22_titulo"))
chamada22_descricao = Remove_Quotes(objUpload.Form("chamada22_descricao"))
chamada22_url = Remove_Quotes(objUpload.Form("chamada22_url"))
chamada23_titulo = Remove_Quotes(objUpload.Form("chamada23_titulo"))
chamada23_descricao = Remove_Quotes(objUpload.Form("chamada23_descricao"))
chamada23_url = Remove_Quotes(objUpload.Form("chamada23_url"))
chamada24_titulo = Remove_Quotes(objUpload.Form("chamada24_titulo"))
chamada24_descricao = Remove_Quotes(objUpload.Form("chamada24_descricao"))
chamada24_url = Remove_Quotes(objUpload.Form("chamada24_url"))
chamada25_titulo = Remove_Quotes(objUpload.Form("chamada25_titulo"))
chamada25_descricao = Remove_Quotes(objUpload.Form("chamada25_descricao"))
chamada25_url = Remove_Quotes(objUpload.Form("chamada25_url"))
chamada26_titulo = Remove_Quotes(objUpload.Form("chamada26_titulo"))
chamada26_descricao = Remove_Quotes(objUpload.Form("chamada26_descricao"))
chamada26_url = Remove_Quotes(objUpload.Form("chamada26_url"))
chamada27_titulo = Remove_Quotes(objUpload.Form("chamada27_titulo"))
chamada27_descricao = Remove_Quotes(objUpload.Form("chamada27_descricao"))
chamada27_url = Remove_Quotes(objUpload.Form("chamada27_url"))
chamada28_titulo = Remove_Quotes(objUpload.Form("chamada28_titulo"))
chamada28_descricao = Remove_Quotes(objUpload.Form("chamada28_descricao"))
chamada28_url = Remove_Quotes(objUpload.Form("chamada28_url"))
chamada29_titulo = Remove_Quotes(objUpload.Form("chamada29_titulo"))
chamada29_descricao = Remove_Quotes(objUpload.Form("chamada29_descricao"))
chamada29_url = Remove_Quotes(objUpload.Form("chamada29_url"))
chamada30_titulo = Remove_Quotes(objUpload.Form("chamada30_titulo"))
chamada30_descricao = Remove_Quotes(objUpload.Form("chamada30_descricao"))
chamada30_url = Remove_Quotes(objUpload.Form("chamada30_url"))

nomedafoto = filename
objUploadedFile.SaveAs "c:\" & nomedafoto

Next

For Each Item in objUpload.Files
SQL = "update tb_destaques set " & item.tagname & " = " & ObjUpload.GetFileName()
Next

Set ObjUpload = Nothing

Na parte do update o que nao consigo é fazer pegar o nome do arquivo, se for no for de cima consigo pegar, mas ai nao consigo pegar o nome do campo, não sei se fui claro, se alguém puder me ajudar para montar este update....

Xavier

[jrcardozo 4]

acho que se tiver como teria que fazer um For Each pra percorrer todos os elementos

[webfuture 0]

Olá jonathandj, desculpe mas não entendi ao certo....

 

Xavier