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