<%
Public O00OO0O00O0
Class O00O00O0O000O0
Public O000000O0
Public O0OO0OOO0000
Public O000OO0O0OO0
Public Err
Private Sub Class_Initialize
    O000OO0O0OO0 = Chr ( - 12578 ) & Chr ( - 16667 ) & Chr ( - 13873 ) & Chr ( - 19285 ) & Chr ( - 16160 ) & Chr ( 32 ) & Chr ( 86 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 115 ) & Chr ( 105 ) & Chr ( 111 ) & Chr ( 110 ) & Chr ( 32 ) & Chr ( 86 ) & Chr ( 49 ) & Chr ( 46 ) & Chr ( 50 )  
    Err = - 1 

End Sub
Private Sub Class_Terminate
    If Err < 0 Then 
        O000000O0.RemoveAll 
        Set O000000O0 = Nothing 
        O0OO0OOO0000.RemoveAll 
        Set O0OO0OOO0000 = Nothing 
        O00OO0O00O0.Close 
        Set O00OO0O00O0 = Nothing 
    End If 

End Sub
Public Sub OOO000O00OO00 (O00OO00OO0O00O )
    Dim OOO00OO0O000O
    Dim OOO00OOO0O0OO
    Dim O0O00O00OO00
    Dim O0000O0OO0OOO
    Dim OO0O000O00OOO
    Dim O00000OO0OO0
    Dim O0OO0OOOOO00O
    Dim OOO0OO0000O
    Dim OO00O0OOOO0O0
    Dim O00OO0OOO0OOO0
    Dim O00OO0O0O00O0
    Dim O0O00OO00OO0
    Dim O00O0OO0OO00O
    Dim OOO0OOOO0O0OO
    Dim OOO00O0000O0
    Dim OOO0000000OO0
    Dim OOOO0OO0O000
    Dim O00000O00000OO
    Dim O0O000O00000O
    If Request.TotalBytes < 1 Then 
        Err = 1 
        Exit Sub 
    End If 
    If O00OO00OO0O00O > 0 Then 
        If Request.TotalBytes > O00OO00OO0O00O Then 
            Err = 2 
            Exit Sub 
        End If 
    End If 
    Set O000000O0 = Server.CreateObject ( Chr ( 83 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 68 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 111 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 121 ) )  
    O000000O0.CompareMode = 1 
    Set O0OO0OOO0000 = Server.CreateObject ( Chr ( 83 ) & Chr ( 99 ) & Chr ( 114 ) & Chr ( 105 ) & Chr ( 112 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 68 ) & Chr ( 105 ) & Chr ( 99 ) & Chr ( 116 ) & Chr ( 105 ) & Chr ( 111 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 121 ) )  
    O0OO0OOO0000.CompareMode = 1 
    Set O0OO0OOOOO00O = Server.CreateObject ( Chr ( 65 ) & Chr ( 68 ) & Chr ( 79 ) & Chr ( 68 ) & Chr ( 66 ) & Chr ( 46 ) & Chr ( 83 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 109 ) )  
    Set O00OO0O00O0 = Server.CreateObject ( Chr ( 65 ) & Chr ( 68 ) & Chr ( 79 ) & Chr ( 68 ) & Chr ( 66 ) & Chr ( 46 ) & Chr ( 83 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 109 ) )  
    O00OO0O00O0.Type = 1 
    O00OO0O00O0.Mode = 3 
    O00OO0O00O0.Open 
    O00OO0O00O0.Write Request.BinaryRead ( Request.TotalBytes )  
    O00OO0O00O0.Position = 0 
    OOO00OO0O000O = O00OO0O00O0.Read 
    O00000O00000OO = O00OO0O00O0.Size 
    O0O00O00OO00 = ChrB ( 13 ) & ChrB ( 10 )  
    OOO00OOO0O0OO = MidB ( OOO00OO0O000O , 1 , InStrB ( 1 , OOO00OO0O000O , O0O00O00OO00 ) - 1 )  
    OOO0OO0000O = LenB ( OOO00OOO0O0OO )  
    OOOO0OO0O000 = OOO0OO0000O + 2 
    Do 
        O00000OO0OO0 = InStrB ( OOOO0OO0O000 , OOO00OO0O000O , O0O00O00OO00 & O0O00O00OO00 ) + 3 
        O0OO0OOOOO00O.Type = 1 
        O0OO0OOOOO00O.Mode = 3 
        O0OO0OOOOO00O.Open 
        O00OO0O00O0.Position = OOOO0OO0O000 
        O00OO0O00O0.CopyTo O0OO0OOOOO00O , O00000OO0OO0 - OOOO0OO0O000 
        O0OO0OOOOO00O.Position = 0 
        O0OO0OOOOO00O.Type = 2 
        O0OO0OOOOO00O.CharSet = Chr ( 103 ) & Chr ( 98 ) & Chr ( 50 ) & Chr ( 51 ) & Chr ( 49 ) & Chr ( 50 )  
        O0000O0OO0OOO = O0OO0OOOOO00O.ReadText 
        OOOO0OO0O000 = InStrB ( O00000OO0OO0 , OOO00OO0O000O , OOO00OOO0O0OO ) - 1 
        OOO00O0000O0 = InStr ( 22 , O0000O0OO0OOO , Chr ( 110 ) & Chr ( 97 ) & Chr ( 109 ) & Chr ( 101 ) & Chr ( 61 ) & Chr ( 34 ) &  "" , 1 ) + 6 
        OOO0000000OO0 = InStr ( OOO00O0000O0 , O0000O0OO0OOO , Chr ( 34 ) &  "" , 1 )  
        O0O000O00000O = Mid ( O0000O0OO0OOO , OOO00O0000O0 , OOO0000000OO0 - OOO00O0000O0 )  
        If InStr ( 45 , O0000O0OO0OOO , Chr ( 102 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 109 ) & Chr ( 101 ) & Chr ( 61 ) & Chr ( 34 ) &  "" , 1 ) > 0 Then 
            Set OO00O0OOOO0O0 =  New OOO00OOOOO0O0 
            OOO00O0000O0 = InStr ( OOO0000000OO0 , O0000O0OO0OOO , Chr ( 102 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 101 ) & Chr ( 110 ) & Chr ( 97 ) & Chr ( 109 ) & Chr ( 101 ) & Chr ( 61 ) & Chr ( 34 ) &  "" , 1 ) + 10 
            OOO0000000OO0 = InStr ( OOO00O0000O0 , O0000O0OO0OOO , Chr ( 34 ) &  "" , 1 )  
            OOO0OOOO0O0OO = Mid ( O0000O0OO0OOO , OOO00O0000O0 , OOO0000000OO0 - OOO00O0000O0 )  
            OO00O0OOOO0O0.FileName = Mid ( OOO0OOOO0O0OO , InStrRev ( OOO0OOOO0O0OO , Chr ( 92 ) ) + 1 )  
            OO00O0OOOO0O0.FilePath = Left ( OOO0OOOO0O0OO , InStrRev ( OOO0OOOO0O0OO , Chr ( 92 ) ) )  
            OO00O0OOOO0O0.FileExt = Mid ( OOO0OOOO0O0OO , InStrRev ( OOO0OOOO0O0OO , Chr ( 46 ) ) + 1 )  
            OOO00O0000O0 = InStr ( OOO0000000OO0 , O0000O0OO0OOO , 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 ( 58 ) & Chr ( 32 ) , 1 ) + 14 
            OOO0000000OO0 = InStr ( OOO00O0000O0 , O0000O0OO0OOO , vbCr )  
            OO00O0OOOO0O0.FileType = Mid ( O0000O0OO0OOO , OOO00O0000O0 , OOO0000000OO0 - OOO00O0000O0 )  
            OO00O0OOOO0O0.FileStart = O00000OO0OO0 
            OO00O0OOOO0O0.FileSize = OOOO0OO0O000 - O00000OO0OO0 - 2 
            OO00O0OOOO0O0.FormName = O0O000O00000O 
            O0OO0OOO0000.add O0O000O00000O , OO00O0OOOO0O0 
        Else 
            O0OO0OOOOO00O.Close 
            O0OO0OOOOO00O.Type = 1 
            O0OO0OOOOO00O.Mode = 3 
            O0OO0OOOOO00O.Open 
            O00OO0O00O0.Position = O00000OO0OO0 
            O00OO0O00O0.CopyTo O0OO0OOOOO00O , OOOO0OO0O000 - O00000OO0OO0 - 2 
            O0OO0OOOOO00O.Position = 0 
            O0OO0OOOOO00O.Type = 2 
            O0OO0OOOOO00O.CharSet = Chr ( 103 ) & Chr ( 98 ) & Chr ( 50 ) & Chr ( 51 ) & Chr ( 49 ) & Chr ( 50 )  
            O00O0OO0OO00O = O0OO0OOOOO00O.ReadText 
            If O000000O0.Exists ( O0O000O00000O ) Then 
                O000000O0 ( O0O000O00000O ) = O000000O0 ( O0O000O00000O ) & Chr ( 44 ) & Chr ( 32 ) & O00O0OO0OO00O 
            Else 
                O000000O0.Add O0O000O00000O , O00O0OO0OO00O 
            End If 
        End If 
        O0OO0OOOOO00O.Close 
        OOOO0OO0O000 = OOOO0OO0O000 + OOO0OO0000O + 2 
Loop Until ( OOOO0OO0O000 + 2 ) >= O00000O00000OO 
OOO00OO0O000O =  ""  
Set O0OO0OOOOO00O = Nothing 

End Sub
End Class
Class OOO00OOOOO0O0
Public O0OOOO0O0OO00
Public O0O00OO00000O
Public OOO0OO0000O00
Public OO00OOO0O0
Public OOO00O0O0OO0
Public O0O00000O00OO
Public O0O0O00O0O0OO
Public Function O0000OOO000O0O (OO000OOOOO0O )
    Dim O000O00O00OO
    On Error Resume Next 
    Set O000O00O00OO = Server.CreateObject ( Chr ( 65 ) & Chr ( 68 ) & Chr ( 79 ) & Chr ( 68 ) & Chr ( 66 ) & Chr ( 46 ) & Chr ( 83 ) & Chr ( 116 ) & Chr ( 114 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 109 ) )  
    O000O00O00OO.Type = 1 
    O000O00O00OO.Mode = 3 
    O000O00O00OO.Open 
    O00OO0O00O0.Position = O0O00000O00OO 
    O00OO0O00O0.CopyTo O000O00O00OO , OO00OOO0O0 
    O000O00O00OO.SaveToFile OO000OOOOO0O , 2 
    O000O00O00OO.Close 
    Set O000O00O00OO = Nothing 

End Function
Public Function O00O0OOOOOOOO0
    O00OO0O00O0.Position = O0O00000O00OO 
    O00O0OOOOOOOO0 = O00OO0O00O0.Read ( OO00OOO0O0 )  

End Function
End Class

%>
