remoção asp do código de implementação do hiperlink <%
Função SubstituirUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
Para n=1 para Ubound(Split(HTMLstr,<a))
str1 = Instr(HTMLstr,<a)
str2 = Instr(str1,HTMLstr,>)
HTMLstr = esquerda(HTMLstr,str1-1)&direita(HTMLstr,len(HTMLstr)-len(esquerda(HTMLstr,str2)))
HTMLstr = substituir (HTMLstr,</a>,)
SubstituirUrl2 = HTMLstr
Próximo
Função final
%>