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

