<%
CADENA = "En el sitio web de la Subsecretaría de Asuntos Municipales www.municipios.gov.ar encontrará información de los Municipios Argentinos. Y qué pasa si hay dos direcciones: www.elsitioinutil.20m.com/main.html . Con dos direcciones también funciona ;). Y hasta con 3: www.forosdelweb.com , o quizá 4? www.maestrosdelweb.com . En realidad, no hay límite."
Response.Write CADENA
Response.Write "<p></p>"
COMIENZO = InStr(CADENA,"www")
contador = 0
do while COMIENZO<>0
FIN = InStr(COMIENZO,CADENA," ")
URL = Mid(CADENA, COMIENZO, FIN-COMIENZO)
URL_ARREGLADA = ("<a href=" & CHR(034) & "http://www.misitio.com/marcos.asp?URL=" & URL & CHR(034) & ">" & URL & "</a>")
if contador > 0 then
CADENA_ARREGLADA = Replace(CADENA_ARREGLADA,URL,URL_ARREGLADA)
else
CADENA_ARREGLADA = Replace(CADENA,URL,URL_ARREGLADA)
end if
COMIENZO = InStr(FIN,CADENA,"www")
contador = contador + 1
loop
Response.Write CADENA_ARREGLADA
%>
despues usas algo asi como te mencione anteriormente
<frameset cols="150,*">
<frame name="contenido" target="principal" src="tuencabezado.htm">
<frame name="principal" src="<%=Request.QueryString("URL" ;)%>">
<noframes>
<body>
<p>Esta página usa marcos, pero su explorador no los admite.</p>
</body>
</noframes>
ya lo probe...
saludos
:)
</frameset>