<%
Option explicit
Response.buffer=true
Dim sLink
sLink = Request.ServerVariables("QUERY_STRING")
If instr(sLink,"lnk=")>0 then
sLink = replace(sLink,"lnk=","")
End If
%>
Hitting is a Guess
<![CDATA[
<BODY BGCOLOR=#6a6a6a leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
</BODY>
]]>