Despues de limpiar array, crear otro nuevo

[yz!]

Mi problema es este: Tengo un array con nombres de actores y codigo html en medio. Para limpiarlo uso un foreach y consigo limpiarlo e imprimir cada uno de los nombres de actor por separado, pero ahora me gustaria volver a monatr adecuadamente el array sólamnete con el nombre de los actores. ¿Como podría hacerlo?.

MI código:

Código:

		dim strActor,arrActor
		strActor=Left(Mid(ContenidoTotal,Act),DifPos)
		arrActor=Split(strActor,",",-1,1)
		For each cont in arrActor
			inicio=Server.HTMLEncode(".htm"">")
			longitud=Len(inicio)
			posicion=InStr(1,cont,inicio,1)	
			
			fin=Server.HTMLEncode("</a>")
			posfin=InStr(posicion,cont,fin,1)
			
			Act=posicion+longitud
			DifPos=posfin-Act

			'NUESTRA VARIABLE
			cont=Left(Mid(cont,Act),DifPos)
			Response.write cont&"<br>"
		Next