Upload con prefisso davanti al nome del file

[Franz_79]

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

[Roby_72]

Set textStream = FSO.CreateTextFile(server.mappath(percorso & "_" & id & NomeFile1), True, False)

Roby

[Franz_79]

Avevo già provato e non funziona.
Sembra che quando entro dentro a if instr(Intestazione,"allegato") > 0 then non mi sente più il valore della variabile recuperata prima.

Non so come fare ... ho fatto response.write ovunque e dentro a quel pezzo lì sente solo il valore di allegato e basta.

[Roby_72]

Giusto!

NomeFile1 = id & NomeFile

Roby

[Franz_79]

Scusate se rispondo solo ora.
Ma non funziona ancora.
L'id me lo perde "per strada" ... dentro all'apertura di questo if

if instr(Intestazione,"allegato") > 0 then

end if

non mi sente più le variabili ricevute prima ...

Bah ... avavo provato anch'io con NomeFile1 = id & NomeFile ma nulla.