Fonction pour supprimer le lien hypertexte sous asp

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

%>