eliminación de asp del código de implementación del hipervínculo <%
Función ReemplazarUrl2(HTMLstr)
Dim n,cadena1,cadena2,cadena3,cadena4
HTMLstr = Lcase(HTMLstr)
Para n=1 a Ubound(Split(HTMLstr,<a))
cadena1 = Instr(HTMLcadena,<a)
cadena2 = Instr(cadena1,cadenaHTML,>)
HTMLstr = izquierda(HTMLstr,str1-1)&derecha(HTMLstr,len(HTMLstr)-len(izquierda(HTMLstr,str2)))
HTMLstr = reemplazar (HTMLstr,</a>,)
ReemplazarUrl2 = HTMLstr
Próximo
Función final
%>