distruggere var in ciclo

[gguida]

Ciao a tutti,
ho un comportamento strno al'interno di questo ciclo:

For Each file in sf
if 	left(elencamare.fields("codice"),1)="0"  then 
   if (left(file.name,3) = assieme)  then
   		'response.Write file.name
		'response.End()
		dir=file.name
		
	end if	
else
	if left(file.name,6) = elencamare.fields("codice") then
			response.Write file.name
			'response.Write elencamare.fields("codice")
			'response.Write left(file.name,6)
			'response.End()
			 fileopen="\\Server-bovea\Archivio_Elen\CP - CARTELLE PRODOTTO\"&file.name
			
	else		
	'response.Write file.name &" 
"
	fileopen=""
	end if	
end if	   
Next

la var fileopen a seconda dell' if deve assumere un valore oppure deve essere nulla.
Solo che questa assume il primo valore poi quando viene verificata la condizione if, mntre invece se la condizione if non viene verificata assume valore nullo per tutto il ciclo anche se if poi risulta vero.....
suggerimenti???

Grazie