Renomear Upload - Aspsmartupload

[X-MAN]

Ola pessoal, estou usnado o aspSmartUpload para fazer upload de imagens para uma pasta.

O que eu queria é o seguinte, como faço para renomear a imagem com um nome que eu quisesse antes de salva-la na pasta??

<%Server.ScriptTimeOut=10000000 

Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
'nomefoto=UploadFoto.Files.Foto.Name   'pega o nome da imagem que esta no campo Foto

UploadFoto.Upload

'IntCount = UploadFoto.Save("c:\teste")
IntCount = UploadFoto.Save("c:\inetpub\wwwroot\teste")
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
end if
%>

Deixo o codigo como ele esta neste momento, agradecia a ajuda!!

[Bicicleta]

Mano, procure pelo método SaveAs no manual...

Com esse método você consegue fazer isso!

Paz!

[Guest Alfredo Ouro]

Este codigo abaixo ele gera automaticamente numeros para salvar uma imagem.

<%

dim conexaodb,strImagem,rsImagem,codImagem

Call AbreConexao

'Gerando Cod para Imagem

strImagem = "SELECT max(codigo) AS maiorCod FROM tabGeraCodImg"

Set rsImagem=conexaodb.execute(strimagem)

if rsImagem.eof then

codImagem = "1" + "10000"

strImagem = "INSERT into tabGeraCodImg (imagem) values ('"&CodImagem&"')"

set rsImagem = conexaodb.execute(strimagem)

else

codImagem = rsImagem("maiorCod") + 1

codImagem = codImagem + 10000

end if

' Variables

' *********

Dim mySmartUpload

Dim intCount

' Object creation

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Only allow txt or htm files

' ***************************

mySmartUpload.AllowedFilesList = "gif,jpeg,jpg"

' Deny physical path

' *******************

mySmartUpload.DenyPhysicalPath = True

' Upload

' ******

mySmartUpload.Upload

For each file In mySmartUpload.Files

' Only if the file exist

' **********************

If not file.IsMissing Then

' Save the files with his original names in a virtual path of the web server

' ****************************************************************************

file.SaveAs("imagem/"&codImagem&".jpg")

end if

next

' Display the number of files uploaded

' ************************************

strImagem = "INSERT into tabGeraCodImg (imagem) values ('"&CodImagem&"')"

Set rsImagem = conexaodb.execute(strImagem)

set rsImagem = Nothing

Call FechaConexao

Session("Foto") = "imagem/"&CodImagem&".jpg"

%>