Pegar nome do arquivo no Dundas...

[WLJ 0]

Pessoal to com esse código pra pegar o nome do arquivo pra gravar no bd:

<%Response.Buffer = trueon error resume next'declara as variáveisdim objUploaddim strMessage, nomearquivo'cria instância do objetoset objUpload = server.CreateObject("Dundas.Upload.2")'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.objUpload.UseVirtualDir = false'esta linha abaixo faz com que o Dundas não altere o nome do arquivo quando fizer o uploadobjUpload.UseUniqueNames = false'verifica um possível erroif err.number <> 0 thenResponse.write "Ocorreram os seguintes erros: " & err.descriptionend if'estipula o tamanho máximo do arquivoobjUpload.MaxFileSize = 1048576'informa o path onde os arquivos serão salvos'obs: o diretório deve ter permissão de escritaobjUpload.Save "c:\InetPub\sites\jundiainet\xequemate\noticias\images\"dim temp'verifica erroif IsEmpty(objUpload.Form("txtName")) = false then temp = " "if err.number <> 0 thenstrMessage = objUpload.Form("txtName") & temp & "Falha, ocorreu o erro: " & err.description'pega nome do arquivoFor Each objUploadedFile in objUpload.Filesnomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) & "<BR>"Next'mensagem de sucessoelse  response.Write"Nome do arquivo: "&(nomearquivo)End if'destroi o objetoset objUpload = nothing%>

Mas num fununcia... :P

 

Alguém sabe pq ou tem um outro código pra isso?

Simplesmente no response.write naum aparece nada!!!

[Salgado 4]

Tente:

nomearquivo=objUploadedFile.GetFileName(objUploadedFile.path)

[WLJ 0]

Tente:

nomearquivo=objUploadedFile.GetFileName(objUploadedFile.path)

Nada Salgado.... :P