
<%
Function GetPage(domain)
  Dim oXMLHttp
  Dim sXML
  URL="http://clients1.google.com/complete/search?client=chrome&hl=en-GB&q=http%3A%2F%2F" & domain
  GetPage=""
  Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
  oXMLHttp.open "GET", URL, false
  oXMLHttp.send()
  if oXMLHttp.status = 200 Then 
    GetPage = oXMLHttp.responseText
  end if
  set oXMLHttp = nothing
end function
%>