upload e rinomina file con data

[apuuuu]

Buongiorno a tutti

oggi ho un nuovo quesito da porre.... ho un form per upload documenti che funziona tranquillamente in cui ogni file che si va a caricare viene rinominato in funzione della posizione, ovvero file1= aaa file2=bbb
Il problema è che se vado a caricare un nuovo file1 lo chiamerà nello stesso modo e lo sovrascrive a quello precendente. Per ovviare a ciò pensavo di aggiungere la data in fase di rinomina file. Ma non so come fare.... questo il codice:


'Upload File1
contentType = UploadRequest.Item("file1").Item("ContentType")
filepathname1 = UploadRequest.Item("file1").Item("FileName")
filename1 = Right(filepathname1,Len(filepathname1)-InstrRev(filepathname1,"\"))
filename1 = "01 - DOCUMENTO RICONOSCIMENTO" + Right(filename1,4)

value = UploadRequest.Item("file1").Item("Value")


if filename1 <> "" then
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename1)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close
end if

grazie a tutti

[Grambo]

data=day(date())&month(date())&year(date())
filename1 = "01 - DOCUMENTO RICONOSCIMENTO" + data + Right(filename1,4)

credo XD

[apuuuu]

funziona perfettamente.
ho aggiunto anche i minuti così dovrebbe essere sicuro

data=day(date())&month(date())&year(date())&hour(t ime())&minute(time())

grazie mille