<%
csURL = "https://www4.osinet.fr/osi/legalese.htm"
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = csURL
strResult = HttpObj.GetURL
ar = HttpObj.GetHREFs
Response.Write strResult
Response.Write "Il y a " & UBound(ar) & " HREFs dans la page " & csURL & ". Les voici:
"
for i = 0 to UBound(ar)
Response.Write "- " & ar(i) & "
" & vbCRLF
next
Response.Write "
"
%>
vertebral