Función para eliminar hipervínculo en asp

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

%>