Eu tenho um formulário básico para enviar informações ao DB.
Existe um campo nesse formulário de texto com um botão enviar, que no momento em que clico nele abre uma popup para enviar a imagem.
Minha dúvida é a seguinte?
Depois que a foto foi enviada com sucesso, como pego o nome do arquivo enviado e salvo no campo texto do formulário.
Podem me ajudar.
Abaixo o código que envia a imagem. (Dundas Upload que renomeia o arquivo)
<% ' On Error Resume Next, passa por cima de possíveis erros 'On Error Resume Next Dim objUpload, objUploadedFile Dim lstFiles, strPath, str1File Dim strNome, intItem, strMsg 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") ' Seta a não necessidade de alteração de configurações no servidor. objUpload.UseVirtualDir = False 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE, 'ela conserva o nome do arquivo original. objUpload.UseUniqueNames = TRUE 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo objUpload.SaveToMemory 'Pega algumas variaveis importantes que estão presentes no form-html que 'chama esse script '(é fundamental que estas atribuições só sejam feitas depois de rodar o '"SaveToMemory" strNome = objUpload.Form("Nome") intItem = objUpload.Form("selItems") 'Redireciona para o caminho físico onde serão guardados os docs. dependendo 'do módulo strPath = Server.MapPath("\news1\arquivos\adm")&"\fotos"&strNome&"\" lstFiles = "" For Each objUploadedFile in objUpload.Files str1File = objUpload.GetFileName(objUploadedFile.OriginalPath) lstFiles = lstFiles & "<li>" & str1File & "<BR>" '' Acrescenta como prefixo ao arquivo a chave do item em questao 'entre chaves ' --- Trocamos o nome do arquivo --- 'objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File objUploadedFile.SaveAs strPath & "FOTO"<NUMERO>".JPG" Next 'Limpa a instância criada na memória do servidor. Set objUpload = nothing ' Vericamos se existe algum erro no codigo acima If Err <> 0 Then ' Mensagem de erro response.write "<b>Erro no envio do arquivo</b>" Else response.write "Arquivo gravado com sucesso com a referencia " & intItem response.write str1File End If %>