Salve ragazzi ho una magagna da sbloccare.
Devo uploadare delle immagini su un server (Aruba) e fin qui non ho problemi.
Uso l'upload di Aruba leggermente modificato per far si che le immagini me le mette dentro le cartelle che voglio io.

Ora il problema è questo.
Alla fine dell'upload mi dice che il file pippo.jpg è stato caricato.
Ora se uno dopo di me carica un'immagine con lo stesso nome me la va a sovrascrivere.

Vorrei fare in modo che in caso di immagine già esistente gli da un'altro nome tipo e me lo mostra nella pagina del risultato.
Ecco lo script che uso:

codice:
<%
Dim folder
folder = "/public/repliche"          'quì indichi il percorso dell'upload


Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("blob").Item("Value")


'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
For i = 1 to LenB(value)
	MyFile.Write chr(AscB(MidB(value,i,1)))
Next
 
MyFile.Close
%>
C'è una soluzione al problema?