asp suppression du code d'implémentation du lien hypertexte <%
Fonction RemplacerUrl2(HTMLstr)
Dim n, str1, str2, str3, str4
HTMLstr = Lcase(HTMLstr)
Pour n=1 à Ubound(Split(HTMLstr,<a))
str1 = Instr(HTMLstr,<a)
str2 = Instr(str1,HTMLstr,>)
HTMLstr = gauche(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(gauche(HTMLstr,str2)))
HTMLstr = remplacer (HTMLstr,</a>,)
RemplacerUrl2 = HTMLstr
Suivant
Fonction de fin
%>