ciao, con questo script faccio l upload della foto e la carico in una directory:

codice:
<%
' inizio 

dim w_ID, w_Cod_Old, w_codice, w_Prodotto, w_PDescrizione, w_GDescrizione, w_GFoto 
dim w_CPrezzo, w_RPrezzo, w_PuntiSconto, w_VPrezzo
dim w_Categorie
dim ByteRicevuti, FileBinario, DatiRicevuti, FirmaFile, ArrPezzi, item, Inizio
dim Intestazione, ContenutoFile, NomeUpload, NomeFile, Upload1, DimensioneFile1, EstensioneFile1, textStream, i, j
dim FSO, NomeFile1, Upload2, DimensioneFile2, EstensioneFile2, NomeFile2, maxdimp, maxdimg, controllostampa

'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !
percorso = "/public/"
maxdimp=500000    ' dimensione massima immagine piccola
maxdimg=1100000   ' dimensione massima immagine grande

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
  FileBinario = RSBinaryToString(DatiRicevuti)	
	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)

		' Recupero i campi se sono compilati
		if instr(Intestazione,"ID") > 0 then
			w_ID = ContenutoFile
		end if
		if instr(Intestazione,"Cod_Old") > 0 then
			w_Cod_Old = ContenutoFile
		end if
		'if instr(Intestazione,"codice") > 0 then
			'w_codice = ContenutoFile
		'end if
		if instr(Intestazione,"Prodotto") > 0 then
			w_Prodotto = ContenutoFile
		end if
		if instr(Intestazione,"PDescrizione") > 0 then
			w_PDescrizione = ContenutoFile
		end if
		if instr(Intestazione,"GDescrizione") > 0 then
			w_GDescrizione = ContenutoFile
		end if
		'if instr(Intestazione,"PFoto") > 0 then
			'w_PFoto = ContenutoFile
		'end if
		if instr(Intestazione,"GFoto") > 0 then
			w_GFoto = ContenutoFile
		end if
		if instr(Intestazione,"CPrezzo") > 0 then
			w_CPrezzo = ContenutoFile
		end if
		if instr(Intestazione,"RPrezzo") > 0 then
			w_RPrezzo = ContenutoFile
		end if
		if instr(Intestazione,"PuntiSconto") > 0 then
			w_PuntiSconto = ContenutoFile
		end if
		'if instr(Intestazione,"Iva") > 0 then
			'w_Iva = ContenutoFile
		'end if		
		'if instr(Intestazione,"GiacenzaInfinita") > 0 then
			'w_GiacenzaInfinita = ContenutoFile
		'end if	
		'if instr(Intestazione,"Giacenza") > 0 then
			'w_Giacenza = ContenutoFile
		'end if	
		'if instr(Intestazione,"Offerta") > 0 then
			'w_Offerta = ContenutoFile
		'end if	
		'if instr(Intestazione,"Spediziona") > 0 then
			'w_Spedizione = ContenutoFile
		'end if	
		'if instr(Intestazione,"SpeseSpedizione") > 0 then
			'w_SpeseSpedizione = ContenutoFile
		'end if	
		'if instr(Intestazione,"Tipologia") > 0 then
			'w_Tipologia = ContenutoFile
		'end if	
		if instr(Intestazione,"Categorie") > 0 then
			w_Categorie = ContenutoFile
		end if	
		if instr(Intestazione,"VPrezzo") > 0 then
			w_VPrezzo = ContenutoFile
        end if

		' Qui recupero il file da uploadare (se presente) e lo scrivo
		' sul server
		if instr(Intestazione,"UPlFotop") > 0 then
		  i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			NomeFile=""       ' max			
			if i<>0 then
    	    NomeFile = mid(NomeUpload,i + 1)
    	else
    			NomeFile = NomeUpload
    	end if
'     if i<>0 then			
      if NomeFile<>"" then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				if len(w_PFoto)=0 then
					 NomeFile1 = NomeFile
					 w_PFoto = NomeFile					 
 				else
 					 NomeFile1 = w_PFoto	
 				end if	 			
				if DimensioneFile1 > maxdimp then
					 Errore = Errore & "Dimensione immagine piccola ("&DimensioneFile1*0.001 & " kb)  maggiore del limite consentito ("&maxdimp*0.001 & " kb)
"
				else
						EstensioneFile1 = LCase(right(NomeFile,4))				
						if EstensioneFile1 <>".jpg" and EstensioneFile1 <>".gif" then
							 Errore = Errore & "Tipo di file non corretto : "&EstensioneFile1&"
"
						else		 			
								Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
    						textStream.Write ContenutoFile
    						textStream.Close
    						Set textStream = Nothing
						end if
				end if	
	   		Set FSO = Nothing
    	end if
		end if

		if instr(Intestazione,"UPlFotog") > 0 then
		  i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			NomeFile=""       ' max			
			if i<>0 then
				 NomeFile = mid(NomeUpload,i + 1)
    	else
					NomeFile = NomeUpload
    	end if
'     if i<>0 then			
      if NomeFile<>"" then	
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload2 = True
				DimensioneFile2 = len(ContenutoFile)
				if len(w_GFoto)=0 then
					 NomeFile2 = NomeFile
					 w_GFoto = NomeFile					 
 				else
 					 NomeFile2 = w_GFoto	
 				end if	 			
				if DimensioneFile2 > maxdimg then
					 Errore = Errore & "Dimensione immagine grande ("&DimensioneFile2*0.001 & " kb)  maggiore del limite consentito ("&maxdimg*0.001 & " kb)
"
				else
						EstensioneFile2 = LCase(right(NomeFile,4))				
						if EstensioneFile2 <>".jpg" and EstensioneFile2 <>".gif" then
							 Errore = Errore & "Tipo di file non corretto : "&EstensioneFile2&"
"
						else		 			
								Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
    						textStream.Write ContenutoFile
    						textStream.Close
    						Set textStream = Nothing
						end if
				end if		
	   		Set FSO = Nothing
    	end if
		end if

	next
End if
ecc.. ecc..

ho il problema nel cancellare la foto dalla directory stessa, quando devo cancellare un prodotto.. praticamente l'operazione inversa..

come si fa?

grazie