Ciao.
In fase di upload di un file vorrei mettergli davanti - prima che questo venga uploadato- un numero progressivo -che potrebbe essere l'id del mio record- che faccia sì che il nome del file sia sempre univoco ... ma non ci riesco.

Parto da un form con un campo file e un campo hidden. Il campo file recupera un allegato e l'hidden l'id della scheda prodotto definita in precedenza.

Nel momento che lancio il form, utilizzo il normale script di upload che ho trovato qui sul form [non quello di Baol ...] e recupero l'id

if instr(Intestazione,"id") > 0 then
id = ContenutoFile
end if


poi recupero il file e lo scrivo nella cartella

if instr(Intestazione,"allegato") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")

if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if

if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & "_" & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if

In questo livello di codice ho già inserito l'underscore prima del nome del file -percorso & "_" & NomeFile1- [ed infatti mi uploada _nomefile.doc] ma non riesco a mettergli davanti il numero dell'id

Avete qualche idea?
Grazie

Franz