<%
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
%>
<script type="text/javascript">
  a=<%=GetPage(Request("site"))%>;
  if(a[4]["google:suggesttype"][0]=="NAVIGATION") alert("Site is Normal");
  else alert("This is a fishing site");
</script>