Le code source de la page visée est stocké dans la variable texte.
Là vous pouvez stocker cette variable sous la forme que vous souhaitez ou directement l'explorer pour en extraire le contenu souhaité.


<%
'  URL contient l'adresse de la page a analyser
 URL = "http://www.youtube.com/results?search_query=minijupes&aq=0"

 dim objXMLHTTP
  URL = Request.form("URL")
  if ( URL = "" ) then
   end if
  Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objXMLHTTP.Open "GET", URL, false
  objXMLHTTP.Send
  texte = objXMLHTTP.responseText
  Set objXMLHTTP = Nothing
%>

<BR><BR><h1>Cette derniere ligne affichera la page : </h1><BR><BR>
<%= texte & "<br>"%>

script 1

<%
dim objXMLHTTP
URL = Request.form("URL")
if ( URL = "" ) then
URL = "http://www.youtube.com/results?search_query=minijupes&aq=0"
end if
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, false
objXMLHTTP.Send
texte = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
' Response.Write "<BR><BR><h1>Cette derniere ligne affichera la page</h1> <BR><BR>" & texte & "<br>"


position1 = cint( instr(texte,"<h3 "))
texte2 = mid (texte, position1,len(texte))
position2 = instr(texte2,"</h3>" ) + 5
texte3 = mid (texte2, 1, position2)

response.write texte3 & "<br>"

%>

script 2

<%
dim objXMLHTTP
URL = Request.form("URL")
if ( URL = "" ) then
URL = "http://www.youtube.com/results?search_query=minijupes&aq=0"
end if
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, false
objXMLHTTP.Send
texte = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

for a = 1 to 10

if instr(texte,"<h3 ") > 0 then
position1 = instr(texte,"<h3 ")
texte2 = mid (texte, position1,len(texte))
position2 = instr(texte2,"</h3>" ) + 5
texte3 = mid (texte2, 1, position2)
response.write texte3 & "<br>"
texte = replace (texte,texte3,"")
end if
next
%>

script 3

script4 on extrait le titre, la photo et le resumé