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
%>
