Nome al file uploadato

[provasp]

Uso questo codice per caricare immagini sul server, mi sapere dire che variabile devo modificare per impedire che l'immagine creata abbia il nome originario, ma un nome dato da me?

Dim percorso, ByteRicevuti, DatiRicevuti, FileBinario, FirmaFile, ArrPezzi
Dim Inizio, Intestazione, ContenutoFile, NomeUpload, NomeFile
Dim i, j, item, FSO, Upload1, DimensioneFile1, EstensioneFile1, NomeFile1, TextStream

percorso = "images\"

ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
	For i = 1 To lenB(DatiRicevuti)
		FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
	Next
	FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
	ArrPezzi = split(FileBinario,FirmaFile)
	for item = 1 to ubound(ArrPezzi)-1
		Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
		Intestazione = left(ArrPezzi(item),Inizio-1)
		Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
	    	ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
		' Qui recupero il file da uploadare (se presente) e lo scrivo sul server
		' NOME DEL CAMPO FILE
		if instr(Intestazione,"foto") > 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
		end if
	next
End if

[Roby_72]

NomeFile = NomeUpload
NomeFile = "pippo"

Roby

[provasp]

Originariamente inviato da Roby_72

NomeFile = NomeUpload
NomeFile = "pippo"

Roby

Si, quello l'avevo capito, è solo che non conosco il significato di questo:

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

Scusate l'ignoranza

[provasp]

Ho capito tutto:

' pippo & estensione
estensione = right(NomeFile,3)
NomeFile = pippo & "." & estensione

inserisco questo dopo il codice che ho postato prima e risolvo.