Renombrar nombra imagen

[igartzi]

Hola al foro;

he creado una apluicación para que el cleinte pueda subir archivos a un directorio x. Esta parte me funciona correctamente.

Mi pregunta es como puedo reemplazar el nombre automaticamante para que si el cliente sube una imagen con un nombre existente en el directorio x no se reemplace, si no que cambie el nombre.

Un saludo.

[igartzi]

Lo que quiero en realidad es añadir letras o números a la imagen.

Es decir, recojo en una variable vref un campo de texto que rellena el cliente, la referencia del producto.

Lo que quiero es sumar vref a imagen1.

Si vref es 1234 el resultado quiero que sea asi:

1234imagen1.jpg

Espero que me ayuden.
Un saludo.

[Veronicalismar]

<%
'Sample file Field-SaveAs.asp
'Store extra upload info to a database
'and file contents to the disk
Server.ScriptTimeout = 5000

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %>
<!--#INCLUDE file="_upload.asp"-->
<%

Server.ScriptTimeout = 1000
Form.SizeLimit = 10240*1024'10MB

'{b}Set the upload ID for this form.
'Progress bar window will receive the same ID.
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
'was the Form successfully received?
Const fsCompletted = 0

If Form.State = fsCompletted Then 'Completted
Const VirtualFolder = "pics1"

'Create destination path+filename for the source file.
'Create an URL for image.
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"

'Open recordset to store uploaded data
Dim RS: Set RS = OpenUploadRS
Dim FileField

Dim DestinationFileName
For Each FileField in Form.Files.Items
'Fo each file sent
if len(FileField.FileName)> 0 then 'File is specified.

'LA VALIDACION LA COLOQUE AQUI
If Right(FileField.FileName,4) <> ".jpg" or Right(FileField.FileName,4) = ".JPG" then
response.redirect"registrate.asp?msg=5"
End If

'Dim DestinationFileName
'OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
'DestinationFileName = DestinationPath & FileField.FileName SUSTITUIDO POR:
`AQUI ES DONDE COLOCAS EL CAMPO POR EL CUAL QUIERAS Q SEA CAMBIADO EL NOMBRE D LA IMAGEN AL SUBIRLO EN LA CARPETA QUE CREASTES
DestinationFileName = DestinationPath & Form.Texts.Item("telefono2") & ".jpg"
d1=Form("File1").FileName
' d2=Form("File2").FileName
'd3=Form("File3").FileName
'Save file to physical location
FileField.SaveAs DestinationFileName

[Veronicalismar]

<%
'Sample file Field-SaveAs.asp
'Store extra upload info to a database
'and file contents to the disk
Server.ScriptTimeout = 5000

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %>
<!--#INCLUDE file="_upload.asp"-->
<%

Server.ScriptTimeout = 1000
Form.SizeLimit = 10240*1024'10MB

'{b}Set the upload ID for this form.
'Progress bar window will receive the same ID.
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
'was the Form successfully received?
Const fsCompletted = 0

If Form.State = fsCompletted Then 'Completted
Const VirtualFolder = "pics1"

'Create destination path+filename for the source file.
'Create an URL for image.
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"

'Open recordset to store uploaded data
Dim RS: Set RS = OpenUploadRS
Dim FileField

Dim DestinationFileName
For Each FileField in Form.Files.Items
'Fo each file sent
if len(FileField.FileName)> 0 then 'File is specified.

'LA VALIDACION LA COLOQUE AQUI
If Right(FileField.FileName,4) <> ".jpg" or Right(FileField.FileName,4) = ".JPG" then
response.redirect"registrate.asp?msg=5"
End If

'Dim DestinationFileName
'OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
'DestinationFileName = DestinationPath & FileField.FileName SUSTITUIDO POR:
`AQUI ES DONDE COLOCAS EL CAMPO POR EL CUAL QUIERAS Q SEA CAMBIADO EL NOMBRE D LA IMAGEN AL SUBIRLO EN LA CARPETA QUE CREASTES
DestinationFileName = DestinationPath & Form.Texts.Item("telefono2") & ".jpg"
d1=Form("File1").FileName
' d2=Form("File2").FileName
'd3=Form("File3").FileName
'Save file to physical location
FileField.SaveAs DestinationFileName