Renomear Imagem no upload usando dundas

[Rspina 0]

Olá pessoal, seguinte....Tenho uma pag onde tem um campo para colocar um nome qualquer, e um outro campo para selecionar a imagem e fazer upload da mesma.O upload da imagem esta funcionando. O que não estou conseguindo é renomear a mesma para o nome que digito no campo "nome"....segue o codigo do upload.............. <% Response.Buffer = trueon error resume next'declara as variáveisdim objUploaddim strMessage'cria instância do objetoset objUpload = server.CreateObject("Dundas.Upload.2")'verifica um possível erroif err.number <> 0 thenResponse.Redirect "fotosucesso.asp?Message=" & err.descriptionend if'estipula o tamanho máximo do arquivoobjUpload.MaxFileSize = 1048576 'formatando o nome do arquivoobjUpload.UseUniqueNames = true'informa o path onde os arquivos serão salvos'obs: o diretório deve ter permissão de escritaobjUpload.Save "e:home\mariosergiofoto\web\new\admin\teste"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'mensagem de sucessoelsestrMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("txtName") & "."end if Response.Redirect "fotosucesso.asp?Message=" & strMessage'destroi o objetoset objUpload = nothing%>

[ska_ska 0]

dá pra fazer usando os métodos do obj de upload ou com o FSO (mais utilizado)... vai um exemplo bem simples com o dundas...

ASP

[*]

 

[*]<%

 

[*] Response.Buffer = true

 

[*] on error resume next

 

[*] dim objUpload

 

[*] dim msg

 

[*]

 

[*] set objUpload = server.CreateObject("Dundas.Upload.2")

 

[*] if err.number <> 0 then

 

[*] Response.Redirect "upload.asp?msg="&msg&"&add="&err.description

 

[*] end if

 

[*] objUpload.MaxFileSize = 300000

 

[*] caminho = Server.MapPath("/imagem/produtos")

 

[*] caminho = caminho & "\"

 

[*] objUpload.Save caminho

 

[*] 'response.write caminho & "<br>"

 

[*] For Each Item in objUpload.Files

 

[*] original = Item.Path

 

[*] novo = caminho & "nome_novo.jpg"

 

[*] objUpload.FileMove original,novo, FALSE

 

[*] Next

 

[*] if err.number <> 0 then

 

[*] msg = "2"

 

[*] add = err.description

 

[*] pagina = "upload.asp?msg="&msg&"&add="&add

 

[*] else

 

[*] msg = "1"

 

[*] add = objUpload.Form("id")

 

[*] pagina = "upload.asp?msg="&msg&"&add="&add

 

[*] end if 

 

[*] Response.redirect pagina

 

[*] set objUpload = nothing

 

[*]%>

 

[*]