<%@ Language=VBScript %>
<%
Dim intWidth, intHeight, intSpaces, intCounter, intTopMargin, strGoto, bIE, strUserAgent
Dim intAdvertiser
intWidth = request("w")
intHeight = request("h")
intThreadID = request("thread_id")
strGoto = request("goto")
intAdvertiser = Trim(Request("advertiser"))
bIE=0
intTopMargin = 0
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
if bIE = "" then
bIE = 1
end if
if intWidth = "" then
intWidth = 1024
end if
if intHeight = "" then
intHeight = 768
end if
if intHeight > 768 then
intTopMargin = 5
end if
if intHeight <= 768 then
intSpaces = 0
elseif intHeight <= 864 then
intSpaces = 1
elseif intHeight <= 960 then
intSpaces = 2
elseif intHeight <= 1024 then
intSpaces = 3
elseif intHeight <= 1050 then
intSpaces = 4
else 'if intHeight <= 1200 then
intSpaces = 5
end if
if intAdvertiser = "" then
intAdvertiser = 0
end if
if InStr(1,strUserAgent,"Windows") > 0 AND InStr(1,strUserAgent,"IE") > 0 AND InStr(1,strUserAgent, "Windows 3.1") = 0 then
bIE = 1
end if
%>
Theory7
<%if bIE=1 then%>
<%end if%>
<%
for intCounter = 1 to intSpaces
%>
<%
next
%>
You need to upgrade your Flash Player
Click here to bypass the detection if you wish.