From: Subject: =?windows-1251?B?z/Du4/Dg7Ozo8O7i4O3o5SDt4CBNU0FjY2VzcywgVkIsIFZC?= Date: Tue, 7 Dec 2004 18:51:04 +0300 MIME-Version: 1.0 Content-Type: multipart/related; type="text/html"; boundary="----=_NextPart_000_008B_01C4DC8D.B46A6EB0" X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 This is a multi-part message in MIME format. ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: text/html; charset="windows-1251" Content-Transfer-Encoding: quoted-printable Content-Location: http://am.rusimport.ru/MsAccess/topic.aspx?id=197 =CF=F0=EE=E3=F0=E0=EC=EC=E8=F0=EE=E2=E0=ED=E8=E5 = =ED=E0 MSAccess, VB, VB
=20 <= /TR>

=CF=F0=EE=E3=F0=E0=EC=EC=E8=F0=EE=E2=E0=ED=E8=E5 = MsAccess, VB, VBA

  

=A9=20 am 1999-2004

=C4=EE=E1=F0=EE=20 =EF=EE=E6=E0=EB=EE=E2=E0=F2=FC, = =ED=E5=E7=ED=E0=EA=EE=EC=E5=F6! [=E2=F5=EE=E4]   =D1=20 =C2=E0=EC=E8 =ED=E0 =F1=E0=E9=F2=E5:  Andrew, Dime, Marat, =CB=E5=EE=ED=E8=E4, =EE=EB=E5=E3

|  =C4=EE=EC=EE=E9=   =20 |   =CD=EE=E2=EE=F1=F2= =E8  =20 |   =C3=EE=F1=F2=E5=E2= =E0=FF  =20 |   =D4=EE=F0=F3=EC= =FB  =20 |   =CF=EE=E8=F1=EA<= /A>  =20 |   =D1=F2=F0=E0= =ED=E8=F6=FB=20 =C0=E2=F2=EE=F0=EE=E2   |=20 =
=D0=E0=E7=E4=E5=EB=FB:
 =20 =CD=EE=E2=EE=F1=F2= =E8
 =20 =D1=EE=E4=E5=F0= =E6=E0=ED=E8=E5
    =D7=E0=C2=EE= =20 (FAQ) (17)
    =C1=E0=E7=FB= =20 (22)
    =D4=EE=F0=EC= =FB=20 (36)
    =C7=E0=EF=F0= =EE=F1=FB=20 (10)
    =CE=F2=F7=E5= =F2=FB=20 (18)
    =D2=E0=E1=EB= =E8=F6=FB=20 (14)
    =CF=EE=EB=E5= =E7=ED=FB=E5=20 =F4=F3=ED=EA=F6=E8=E8 (40)
    =D1=F2=F0=EE= =EA=E8=20 (10)
    =C8=ED=F2=E5= =F0=F4=E5=E9=F1=20 (73)
    =C8=ED=F2=E5= =F0=ED=E5=F2=20 (7)
    =CE=EF=E5=F0= =E0=F6=E8=EE=ED=EA=E0=20 (35)
    Win32=20 API (47)
    ActiveX= =20 (13)
    Access=20 Add-in (25)
    =CF=EE=EB=FC= =E7=EE=E2=E0=F2=E5=EB=E8=20 (6)
    =CF=F0=EE=E8= =E7=E2=EE=E4=E8=F2=E5=EB=FC=ED=EE=F1=F2=FC=20 (3)
    =C1=E5=E7=EE= =EF=E0=F1=ED=EE=F1=F2=FC=20 (12)
    SQL=20 Server (16)
    =CE=F8=E8=E1= =EA=E8=20 (19)
    =D0=E0=E7=ED= =EE=E5=20 (45)
    =D3=F7=E5=F2= =ED=FB=E5=20 =F1=E8=F1=F2=E5=EC=FB (7)
    Download=20 (36)
    =D1=F2=E0=F2= =FC=E8=20 (8)
    =CB=E8=F2=E5= =F0=E0=F2=F3=F0=E0,=F1=F1=FB=EB=EA=E8=20 (7)

  =C4=EE=E1=E0=E2=E8=F2=FC = =F1=F2=E0=F2=FC=FE

  =D4=CE=D0=D3=CC
  =CF=CE=D0=D2=C0=CB = =D4=CE=D0=D3=CC=CE=C2
  =C2=E0=F8=E8 = =EA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E8

  =C3=EE=F1=F2=E5=E2=E0=FF=
 =20 Top 10=20 =F1=E0=E9=F2=E0!
  =D1=F1=FB=EB=EA=E8

  =CF=EE=E4=EF=E8=F1=E0=F2=FC=F1=FF=
  =ED=E0 = =ED=EE=E2=EE=F1=F2=E8=20 =F1=E0=E9=F2=E0

 OLD = HOME(=F4=EE=F2=EA=E8 =E8=20 =E4=F0.)
 =D1=EE=E7=E4= =E0=F2=E5=EB=FC=20 =F1=E0=E9=F2=E0

 
3DTopList=20

=CF=E5=F7=E0=F2=FC = =F8=F2=F0=E8=F5-=EA=EE=E4=E0 =E2 =EE=F2=F7=E5=F2=E5 = Access

(=EE=E1=F0=E0=F9=E5=ED=E8=E9: 4575 =F1=20 16.10.2002, =F3=ED=E8=EA=E0=EB=FC=ED=FB=F5 IP: = 2675)

=D0=E0=E7=E4=E5=EB=FB: =20 =CE=F2=F7=E5= =F2=FB

 

=CE=EF=E8=F1=E0=ED=E8=E5: = =C4=EB=FF =F2=EE=E3=EE, =F7=F2=EE=E1=FB =E2=F1=F2=F0=EE=E8=F2=FC=20 =E2 =EE=F2=F7=E5=F2 =ED=E0 Access =E1=E0=F0-=EA=EE=E4 EAN13 = =ED=E5=EE=E1=F5=EE=E4=E8=EC=EE =F3=F1=F2=E0=ED=EE=E2=E8=F2=FC =ED=E0 = =EA=EE=EC=EF=FC=FE=F2=E5=F0=20 =EF=F0=E8=EB=E0=E3=E0=E5=EC=FB=E9 =F8=F0=E8=F4=F2, = =F1=F4=EE=F0=EC=E8=F0=EE=E2=E0=F2=FC =F1=F2=F0=EE=EA=F3 = =E1=E0=F0=EA=EE=E4=E0 =E8=E7 12 =F1=E8=EC=E2=EE=EB=EE=E2,=20 =E4=EE=E1=E0=E2=E8=F2=FC =EA =ED=E5=E9 = =EA=EE=ED=F2=F0=EE=EB=FC=ED=F3=FE =F1=F3=EC=EC=F3 (=F4=F3=ED=EA=F6=E8=FF = CheckBar), =EF=EE=EB=F3=F7=E8=F2=FC=20 =E7=ED=E0=F7=E5=ED=E8=E5 =EA=EE=E4=E0 =E4=EB=FF = =EA=EE=F0=F0=E5=EA=F2=ED=EE=E3=EE =EE=F2=EE=E1=F0=E0=E6=E5=ED=E8=FF = =E5=E3=EE =E4=E0=ED=ED=FB=EC =F4=EE=ED=F2=EE=EC (=F4=F3=ED=EA=F6=E8=FF=20 EAN13p36TT) =E8 =EF=EE=E4=F1=F2=E0=E2=E8=F2=FC = =EF=EE=EB=F3=F7=E5=ED=ED=EE=E5 =E7=ED=E0=F7=E5=ED=E8=E5 =E2 = =EA=E0=F7=E5=F1=F2=E2=E5=20 ControlSource =E4=EB=FF TextBox=E0 =ED=E0 = =EE=F2=F7=E5=F2=E5, =E4=EB=FF =EA=EE=F2=EE=F0=EE=E3=EE = =F3=F1=F2=E0=ED=EE=E2=EB=E5=ED =E4=E0=ED=ED=FB=E9=20 =F8=F0=E8=F4=F2.
:)
=CE=E1=FA=FF=F1=ED=E8=EB = =F1=F3=EC=E1=F3=F0=ED=EE, =ED=EE =E4=F3=EC=E0=FE = =F0=E0=E7=EE=E1=F0=E0=F2=FC=F1=FF =EC=EE=E6=ED=EE=20 :)
=CA=F1=F2=E0=F2=E8, =F7=F2=EE=E1=FB = =F3=F1=F2=E0=ED=EE=E2=E8=F2=FC =F8=F0=E8=F4=F2 =EC=EE=E6=ED=EE = =E2=EE=F1=EF=EE=EB=FC=E7=EE=E2=E0=F2=FC=F1=FF =E2=EE=F2 =FD=F2=EE=E9=20 API-=F4=F3=ED=EA=F6=E8=E5=E9
Public Declare Function = AddFontResource Lib "gdi32"=20 Alias "AddFontResourceA" (ByVal lpFileName As String) As=20 Long
Declare Function SendMessage& Lib "user32" Alias = "SendMessageA" (ByVal hwnd As _
Long, ByVal wMsg As Long, = ByVal=20 wParam As Long, lParam As Any)
Public Const = HWND_BROADCAST =3D=20 &HFFFF&
Public Const WM_FONTCHANGE =3D = &H1D
=CF=EE=F1=EB=E5=20 =E4=EE=E1=E0=E2=EB=E5=ED=E8=FF =F8=F0=E8=F4=F2=E0 = =ED=E5=EE=E1=F5=EE=E4=E8=EC=EE =EE=EF=EE=E2=E5=F1=F2=E8=F2=FC = =EF=F0=E8=EB=EE=E6=E5=ED=E8=FF =EE=E1 =FD=F2=EE=EC:
Call=20 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

=C0=E2=F2=EE=F0: = =CE=F2=E4=E5=EB IT =D2=C4 =D0=F3=F1=FC=E8=EC=EF=EE=F0=F2 :)=20

=D1=EA=E0=F7=E0=F2=FC: =

=D8=F0=E8= =F4=F2=20 =E4=EB=FF =EF=E5=F7=E0=F2=E8 = =F8=F2=F0=E8=F5-=EA=EE=E4=E0 EAN13 (4 =CA=E1) (=F1=EA=E0=F7=E8=E2=E0=ED=E8=E9: 1914 = =F1=20 16.10.2002)

Option Compare Database
Option=20 Explicit


Public Function CheckBar(Bar As Currency) As=20 Integer
'=E2=FBc=F7=E8=F2=FB=E2=E0=E5=F2 =EF=EE = =EF=E5=F0=E2=FB=EC 12 =F6=E8=F4=F0=E0=EC = =F2=F0=E8=ED=E0=E4=F6=E0=F2=F3=FE=20 (=EA=EE=ED=F2=F0=EE=EB=FC=ED=F3=FE = =F1=F3=EC=EC=F3)
    Dim = Cod(12)
    Dim = c
    Dim = s
    Dim i As = Integer
    If Len(Trim(str(Bar))) <> 12 = Then
   MsgBox = "=D8=F2=F0=E8=F5 =EA=EE=E4=20 =E4=EE=EB=E6=E5=ED =F1=EE=E4=E5=F0=E6=E0=F2=FC 12 = =F6=E8=F4=F0",=20 = vbCritical
    
    Else
      =20 s =3D = 0
        For i =3D 1 To=20 12
       c =3D = mID(Bar, i,=20 1)
       s =3D s + = IIf(i Mod 2=20 =3D 0, c * 3,=20 = c)
        Next
      =20 s =3D s Mod 10
       = CheckBar=20 =3D 10 - s
    End If
End Function


Public Function EAN13(BarCode As String) As String
'=D1=F2=F0=EE=EA=F3 =E8=E7 13 = =F6=E8=F4=F0 =EF=F0=E5=EE=E1=F0=E0=E7=F3=E5=F2 =E2 = =D8=F2=F0=E8=F5-=EA=EE=E4=20 EAN-13.
'=C4=E5=EB=E0=E5=F2 =EF=F0=EE=E2=E5=F0=EA=F3=20 =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 = =F1=F3=EC=EC=FB.
'=CD=E5=EE=E1=F5=EE=E4=E8=EC=20 =F8=F0=E8=F4=F2 Code = EAN/UPC.
    Const a As Integer =3D=20 48
    Const b=20 As Integer =3D=20 65
    Const c=20 As Integer =3D=20 97
    Const d=20 As Integer =3D=20 75
    Dim i=20 As Integer
    Dim Cod(13, 2) As=20 Integer
    Dim f(6, 10) As=20 Integer
    Dim strEAN13 As=20 String
    
  &nb= sp; If Len(BarCode) <> 13 Then
     = EAN13 =3D=20 ""
     MsgBox "=D8=F2=F0=E8=F5 = =EA=EE=E4 =E7=E0 =EF=F0=E5=E4=E5=EB=E0=EC=E8=20 =EE=F2=E2=E5=E4=E5=ED=ED=EE=E3=EE = =E4=E8=E0=EF=E0=E7=EE=ED=E0.", vbExclamation, "=CC=EE=E4=F3=EB=FC = =F0=E0=E1=EE=F2=FB =F1=EE=20 = =F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
    
   &= nbsp;If Right(BarCode, 1) <>=20 EAN13Check(BarCode) Then
     = EAN13 =3D=20 ""
     MsgBox = "=CE=F8=E8=E1=EA=E0 =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9=20 =F1=F3=EC=EC=FB.", vbExclamation, "=CC=EE=E4=F3=EB=FC = =F0=E0=E1=EE=F2=FB =F1=EE=20 = =F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
    
  =20 f(1, 0) =3D a: f(1, 1) =3D a: f(1, 2) =3D a: f(1, 3) = =3D a: f(1, 4) =3D=20 a
   f(1, 5) =3D a: f(1, 6) =3D a: f(1, = 7) =3D a: f(1,=20 8) =3D a: f(1, 9) =3D=20 a
    
   f(2, 0) = =3D a:=20 f(2, 1) =3D a: f(2, 2) =3D a: f(2, 3) =3D a: f(2, 4) = =3D=20 b
   f(2, 5) =3D b: f(2, 6) =3D b: f(2, = 7) =3D b: f(2,=20 8) =3D b: f(2, 9) =3D=20 b
    
   f(3, 0) = =3D a:=20 f(3, 1) =3D b: f(3, 2) =3D b: f(3, 3) =3D b: f(3, 4) = =3D=20 a
   f(3, 5) =3D b: f(3, 6) =3D b: f(3, = 7) =3D a: f(3,=20 8) =3D a: f(3, 9) =3D=20 b
    
   f(4, 0) = =3D a:=20 f(4, 1) =3D a: f(4, 2) =3D b: f(4, 3) =3D b: f(4, 4) = =3D=20 a
   f(4, 5) =3D a: f(4, 6) =3D b: f(4, = 7) =3D b: f(4,=20 8) =3D b: f(4, 9) =3D=20 a
    
   f(5, 0) = =3D a:=20 f(5, 1) =3D b: f(5, 2) =3D a: f(5, 3) =3D b: f(5, 4) = =3D=20 b
   f(5, 5) =3D a: f(5, 6) =3D a: f(5, = 7) =3D a: f(5,=20 8) =3D b: f(5, 9) =3D=20 b
    
   f(6, 0) = =3D a:=20 f(6, 1) =3D b: f(6, 2) =3D b: f(6, 3) =3D a: f(6, 4) = =3D=20 b
   f(6, 5) =3D b: f(6, 6) =3D a: f(6, = 7) =3D b: f(6,=20 8) =3D a: f(6, 9) =3D=20 = a
    
    For i =3D 1 To = 13
    =20 Cod(i, 1) =3D val(mID(BarCode, i,=20 1))
    Next
    
   = ; For i =3D 2 To = 7
    =20 Cod(i, 2) =3D f(i - 1, Cod(1,=20 1))
    Next
   strEAN13 =3D = Chr(Cod(1,=20 1) + 75)
   strEAN13 =3D strEAN13 +=20 Chr(120)
    For i =3D 2 To = 7
    =20 strEAN13 =3D strEAN13 + Chr(Cod(i, 1) + Cod(i,=20 2))
    Next
   strEAN13 =3D = strEAN13 +=20 Chr(88)
    For=20 i =3D 8 To 13
     strEAN13 =3D = strEAN13 +=20 Chr(Cod(i, 1) + c)
    Next
   strEAN13 =3D = strEAN13 +=20 Chr(120)
   EAN13 =3D=20 strEAN13
    
End Function


Public Function EAN13Check(BarCode As String) As String
'=C2=FBc=F7=E8=F2=FB=E2=E0=E5=F2 = =EA=EE=ED=F2=F0=EE=EB=FC=ED=F3=FE =F1=F3=EC=EC=F3 = =F8=F2=F0=E8=F5-=EA=EE=E4=E0=20 EAN-13.
'=C8=F1=EF=EE=EB=FC=E7=F3=E5=F2 =EF=E5=F0=E2=FB=E5 12=20 =F1=E8=EC=E2=EE=EB=EE=E2 = =EF=E5=F0=E5=E4=E0=E2=E0=E5=EC=EE=E9 =F1=F2=F0=EE=EA=E8.
Dim Cod(12)
Dim c=20 As Long
Dim s As Long
Dim i As = Integer
  
s =3D=20 0
  For i =3D 1 = To=20 12
   c =3D val(mID(BarCode, i, = 1))
  =20 s =3D s + IIf(i Mod 2 =3D 0, c * 3, = c)
  Next
s =3D s Mod = 10
EAN13Check =3D=20 Right(Trim(str(10 - s)), 1)

End=20 Function


Public Function EAN13p36TT(BarCode As String) As String
'=D1=F2=F0=EE=EA=F3 =E8=E7 13 = =F6=E8=F4=F0 =EF=F0=E5=EE=E1=F0=E0=E7=F3=E5=F2 =E2 = =D8=F2=F0=E8=F5-=EA=EE=E4=20 EAN-13.
'=C4=E5=EB=E0=E5=F2 =EF=F0=EE=E2=E5=F0=EA=F3=20 =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 = =F1=F3=EC=EC=FB.
'=CD=E5=EE=E1=F5=EE=E4=E8=EC=20 =F8=F0=E8=F4=F2 Code = EAN/UPC.
    Const a As Integer =3D=20 48
    Const b=20 As Integer =3D=20 65
    Const c=20 As Integer =3D=20 97
    Const d=20 As Integer =3D=20 35
    Dim i=20 As Integer
    Dim Cod(13, 2) As=20 Integer
    Dim f(6, 10) As=20 Integer
    Dim strEAN13 As=20 String
    
  &nb= sp; If Len(BarCode) <> 13 Then
     = EAN13p36TT=20 =3D ""
     MsgBox = "=D8=F2=F0=E8=F5 =EA=EE=E4 =E7=E0=20 =EF=F0=E5=E4=E5=EB=E0=EC=E8 = =EE=F2=E2=E5=E4=E5=ED=ED=EE=E3=EE =E4=E8=E0=EF=E0=E7=EE=ED=E0.", = vbExclamation, "=CC=EE=E4=F3=EB=FC=20 =F0=E0=E1=EE=F2=FB =F1=EE = =F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
    
   &= nbsp;If Right(BarCode, 1) <>=20 EAN13Check(BarCode) Then
     = EAN13p36TT=20 =3D ""
     MsgBox = "=CE=F8=E8=E1=EA=E0 =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9=20 =F1=F3=EC=EC=FB.", vbExclamation, "=CC=EE=E4=F3=EB=FC = =F0=E0=E1=EE=F2=FB =F1=EE=20 = =F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
    
  =20 f(1, 0) =3D a: f(1, 1) =3D a: f(1, 2) =3D a: f(1, 3) = =3D a: f(1, 4) =3D=20 a
   f(1, 5) =3D a: f(1, 6) =3D a: f(1, = 7) =3D a: f(1,=20 8) =3D a: f(1, 9) =3D=20 a
    
   f(2, 0) = =3D a:=20 f(2, 1) =3D a: f(2, 2) =3D a: f(2, 3) =3D a: f(2, 4) = =3D=20 b
   f(2, 5) =3D b: f(2, 6) =3D b: f(2, = 7) =3D b: f(2,=20 8) =3D b: f(2, 9) =3D=20 b
    
   f(3, 0) = =3D a:=20 f(3, 1) =3D b: f(3, 2) =3D b: f(3, 3) =3D b: f(3, 4) = =3D=20 a
   f(3, 5) =3D b: f(3, 6) =3D b: f(3, = 7) =3D a: f(3,=20 8) =3D a: f(3, 9) =3D=20 b
    
   f(4, 0) = =3D a:=20 f(4, 1) =3D a: f(4, 2) =3D b: f(4, 3) =3D b: f(4, 4) = =3D=20 a
   f(4, 5) =3D a: f(4, 6) =3D b: f(4, = 7) =3D b: f(4,=20 8) =3D b: f(4, 9) =3D=20 a
    
   f(5, 0) = =3D a:=20 f(5, 1) =3D b: f(5, 2) =3D a: f(5, 3) =3D b: f(5, 4) = =3D=20 b
   f(5, 5) =3D a: f(5, 6) =3D a: f(5, = 7) =3D a: f(5,=20 8) =3D b: f(5, 9) =3D=20 b
    
   f(6, 0) = =3D a:=20 f(6, 1) =3D b: f(6, 2) =3D b: f(6, 3) =3D a: f(6, 4) = =3D=20 b
   f(6, 5) =3D b: f(6, 6) =3D a: f(6, = 7) =3D b: f(6,=20 8) =3D a: f(6, 9) =3D=20 = a
    
    For i =3D 1 To = 13
    =20 Cod(i, 1) =3D val(mID(BarCode, i,=20 1))
    Next
    
   = ; For i =3D 2 To = 7
    =20 Cod(i, 2) =3D f(i - 1, Cod(1,=20 1))
    Next
   strEAN13 =3D = Chr(Cod(1,=20 1) + 35)
   strEAN13 =3D strEAN13 +=20 Chr(33)
    For=20 i =3D 2 To 7
     strEAN13 =3D = strEAN13 +=20 Chr(Cod(i, 1) + Cod(i, = 2))
    Next
   strEAN13 =3D = strEAN13 +=20 Chr(45)
    For=20 i =3D 8 To 13
     strEAN13 =3D = strEAN13 +=20 Chr(Cod(i, 1) + c)
    Next
   strEAN13 =3D = strEAN13 +=20 Chr(33)
   EAN13p36TT =3D=20 strEAN13
    
End Function


[Back]


=D2=E5=EA=F3=F9=E8=E9 = =F0=E5=E9=F2=E8=ED=E3:
5 =E8=E7 5=20 (=EF=F0=EE=E3=EE=EB=EE=F1=EE=E2=E0=EB=EE:1).
=C7=E4=F0=E0=E2=F1=F2=E2=F3=E9=F2=E5!
=C4=EB=FF = =F3=F7=E0=F1=F2=E8=FF =E2 =F0=E5=E9=F2=E8=ED=E3=E5=20 =ED=E5=EE=E1=F5=EE=E4=E8=EC=EE = =E7=E0=EB=EE=E3=E8=ED=E8=F2=FC=F1=FF =ED=E0 =F1=E0=E9=F2.
=DD=F2=EE = =F1=E4=E5=EB=E0=ED=EE =E4=EB=FF =F2=EE=E3=EE,=20 =F7=F2=EE=E1=FB =E1=EE=EB=E5=E5 =F2=EE=F7=ED=EE = =EF=F0=EE=E8=E7=E2=EE=E4=E8=F2=FC =EE=F6=E5=ED=EA=F3 =F1=F2=E0=F2=E5=E9 = (=F7=F2=EE=E1=FB =EE=E4=ED=EE=EC=F3 =E8=20 =F2=EE=EC=F3 =E6=E5 =F7=E5=EB=EE=E2=E5=EA=F3 = =E1=FB=EB=EE =F2=F0=F3=E4=ED=E5=E5 =E3=EE=EB=EE=F1=EE=E2=E0=F2=FC = =ED=E5=F1=EA=EE=EB=FC=EA=EE =F0=E0=E7, =EF=EE=F0=F2=FF=20 =F2=E5=EC =F1=E0=EC=FB=EC = =F1=F2=E0=F2=E8=F1=F2=E8=EA=F3.
=DD=F2=E0 =EF=F0=EE=F6=E5=E4=F3=F0=E0 = =EE=F7=E5=ED=FC =E1=FB=F1=F2=F0=E0=FF =E8,=20 =ED=E0=E4=E5=FE=F1=FC, =C2=E0=F1 =ED=E5 = =E7=E0=F2=F0=F3=E4=ED=E8=F2 :).
=C2=F1=E5 =EC=FB=F1=EB=E8 =EF=EE = =EF=EE=E2=EE=E4=F3 =F0=E0=E1=EE=F2=FB=20 =F1=E0=E9=F2=E0 =E2=F1=E5=E3=E4=E0 =EC=EE=E6=ED=EE = =E2=FB=F1=EA=E0=E7=E0=F2=FC =ED=E0 =F4=EE=F0=F3=EC=E5= !
=C2=F5=EE=E4=20 =ED=E0 =F1=E0=E9=F2 =

=CE=E1=F1=F3=E6=E4=E5=ED=E8=E5=20 =F1=F2=E0=F2=FC=E8:   
=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 SSY   
=D5=EE=F0=EE=F8=EE =E1=FB =F8=F0=E8=F4=F2 =E2 zip = =E7=E0=EF=E0=EA=EE=E2=E0=F2=FC, =E0 =F2=EE =E5=E3=EE =EE=F7=E5=ED=FC = =EF=F0=EE=E1=EB=E5=EC=E0=F2=E8=F7=ED=EE=20 =F1=EA=E0=F7=E0=F2=FC (=ED=E5 =E8=E7-=E7=E0 = =F0=E0=E7=EC=E5=F0=E0 :)).
17.10.2002 = 14:54

=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 am   
=E7=E0=EF=E0=EA=EE=E2=E0=EB :)
18.10.2002 = 11:59

=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 Dmitrijs   
Shrift dla ispolzafanija freeware, il eto nelegalnaja = veshitsa=20 ???
25.10.2002 = 12:52

=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 am   
2Dmitrijis:
Opa...
A vot ne znaju. Font nayden v = inete=20 (vrode by, tochno ne znaju)
Esli kto predyavit prava - = uberu s=20 sayta.
25.10.2002 = 12:57

=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 boar   
=CA=E0=EA =ED=E5 =F1=F2=F0=E0=ED=ED=EE =ED=EE...=20
http://www.atomictype.co.uk/brock_page.html =
=E1=E5=F1=EF=EB=E0=F2=ED=FB=E9=20 =F1=FB=F0...
03.12.2002 = 11:00

=CA=EE=EC=EC=E5=ED=F2=E0=F0=E8=E9 co   
=F1=EF=E0=F1=E8=E1=EE =EE=F7=E5=ED=FC = =EF=EE=EC=EE=E3=EB=EE =E8 =F0=E0=E1=EE=F2=E0=E5=F2 =E8=E7 vb6 = =EE=F2=EB=E8=F7=ED=EE

=ED=EE =ED=F3=E6=E5=ED=20 =EA=EE=E4 128 =E5=F1=EB=E8 =EC=EE=E6=ED=EE = =EF=EE=EC=EE=E3=E8=F2=E5.

=F1=EF=E0=F1=E8=E1=EE.
18.12.2002 = 01:26

=D7=D2=C5=CD=C8=C5 = =F8=F2=F0=E8=F5=EA=EE=E4=E0 Zufir   
=D0=E0=E7=ED=FB=F5 =E3=E5=ED=E5=F0=E0=F2=EE=F0=EE=E2 = =D8=CA (=EE=F2 ActiveX-=EA=EE=EC=EF=EE=ED=E5=ED=F2 =E4=EE = =E3=EE=F2=EE=E2=EE=E3=EE =CF=CE)=20 =ED=E0=F8=E5=EB =F3=E9=EC=F3. =C0 =E2=EE=F2 = =F2=E5=EF=E5=F0=FC =EF=EE=ED=E0=E4=EE=E1=E8=EB=F1=FF =EC=EE=E4=F3=EB=FC = =E4=EB=FF =D7=D2=C5=CD=C8=DF=20 =F8=F2=F0=E8=F5=EA=EE=E4=E0.=C5=F1=EB=E8 =EA=F2=EE =F7=F2=EE = =E7=ED=E0=E5=F2 - =EF=EB=E7, =EE=F2=EF=E8=F8=E8=F2=E5 =ED=E0 = =EC=FB=EB=EE...
07.03.2003 = 22:24

Re:=D7=D2=C5=CD=C8=C5 = =F8=F2=F0=E8=F5=EA=EE=E4=E0 am   
=C4=EB=FF =F7=F2=E5=ED=E8=FF =EC=FB = =E8=F1=EF=EE=EB=FC=E7=F3=E5=EC =EE=E1=FB=F7=ED=EE=E5 = =F2=E5=EA=F1=F2=EE=E2=EE=E5 =EF=EE=EB=E5 =E8 =F1=EA=E0=ED=E5=F0=20 =F8=F2=F0=E8=F5-=EA=EE=E4=E0, =EA=EE=F2=EE=F0=FB=E9 = =E2=EA=EB=FE=F7=E0=E5=F2=F1=FF =E2 =F0=E0=E7=F0=FB=E2 = =EA=EB=E0=E2=E8=E0=F2=F3=F0=FB, =F2=E0=EA =F7=F2=EE=20 =F1=F7=E8=F2=FB=E2=E0=E5=F8=FC =F1=EA=E0=ED=E5=F0=EE=EC = =E7=ED=E0=F7=E5=ED=E8=E5 - =EE=ED=EE =F3=E6=E5 =E2 =E2=E8=E4=E5 = =F2=E5=EA=F1=F2=E0 =E2 =EF=EE=EB=E5...=20
11.03.2003 = 10:55

=E1=E5=E7 =F2=E5=EC=FB Dmitry   
=C2 =F7=E5=EC =F4=F3=ED=EA=F6=E8=EE=ED=E0=EB=FC=ED=E0=FF = =F0=E0=E7=ED=E8=F6=E0 =F4=F3=ED=EA=F6=E8=E9 EAN13 =E8 EAN13p36TT ? =
=CD=E5=20 =EC=EE=E3=F3 =E2=FA=E5=F5=E0=F2=FC.

Public Function = EAN13(BarCode As String) As=20 String
'=D1=F2=F0=EE=EA=F3 =E8=E7 13 =F6=E8=F4=F0 = =EF=F0=E5=EE=E1=F0=E0=E7=F3=E5=F2 =E2 =D8=F2=F0=E8=F5-=EA=EE=E4 EAN-13.=20
'=C4=E5=EB=E0=E5=F2 =EF=F0=EE=E2=E5=F0=EA=F3 = =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 =F1=F3=EC=EC=FB. =
'=CD=E5=EE=E1=F5=EE=E4=E8=EC =F8=F0=E8=F4=F2 Code=20 EAN/UPC.
---------------------------------------------=20

Public Function EAN13p36TT(BarCode As String) As = String=20
'=D1=F2=F0=EE=EA=F3 =E8=E7 13 =F6=E8=F4=F0 = =EF=F0=E5=EE=E1=F0=E0=E7=F3=E5=F2 =E2 =D8=F2=F0=E8=F5-=EA=EE=E4 EAN-13. =
'=C4=E5=EB=E0=E5=F2=20 =EF=F0=EE=E2=E5=F0=EA=F3 =EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 = =F1=F3=EC=EC=FB.
'=CD=E5=EE=E1=F5=EE=E4=E8=EC =F8=F0=E8=F4=F2 Code = EAN/UPC.
07.08.2003 = 17:50

Re:=E1=E5=E7 = =F2=E5=EC=FB am   
=ED=E0=F1=EA=EE=EB=FC=EA=EE =FF =EF=EE=EC=ED=FE - = =E2=F0=EE=E4=E5 =E1=FB =EE=ED=E8 =E4=EB=FF =F0=E0=E7=ED=FB=F5 = =F4=EE=ED=F2=EE=E2...
=C4=EB=FF=20 =F2=EE=E3=EE, =EA=EE=F2=EE=F0=FB=E9 =EC=EE=E6=ED=EE = =F1=EA=E0=F7=E0=F2=FC =E7=E4=E5=F1=FC =ED=E0=E4=EE =FE=E7=E0=F2=FC = EAN13p36TT.
=C2=F0=EE=E4=E5=20 =F2=E0=EA.
07.08.2003 = 17:54

CheckBar(240000007777)=3D10 = ???? Dmitry   
=D4=F3=ED=EA=F6=E8=FF CheckBar =E4=EE=EB=E6=ED=E0 = =E2=FB=E4=E0=E2=E0=F2=FC 1 =E7=ED=E0=EA.

=CF=EE=F7=E5=EC=F3:=20
CheckBar(240000007777)=3D10

???
15.08.2003 = 10:46

Re:CheckBar(240000007777)=3D10 ???? am   
=CF=EE=F7=E5=EC=F3:
CheckBar(240000007777)=3D10 =
=E2=E8=E4=E8=EC=EE =ED=E5 =EE=F7=E5=ED=FC=20 =F5=EE=F0=EE=F8=E0=FF =F4=F3=ED=EA=F6=E8=FF =20
=CF=EE=EF=F0=EE=E1=F3=E9=F2=E5 = =E8=F1=EF=EE=EB=FC=E7=EE=E2=E0=F2=FC EAN13Check.
15.08.2003 = 11:23

=D8=F2=F0=E8=F5-=EA=EE=E4 = =E2 =EE=F2=F7=E5=F2=E5 =D1=E2=E5=F2=EB=E0=ED=E0   
=CF=EE=EC=EE=E3= =E8=F2=E5,=20 =ED=E0=E4=EE =F3=E2=E8=E4=E5=F2=FC = =E2=E8=E7=F3=E0=EB=FC=ED=EE =F8=F2=F0=E8=F5-=EA=EE=E4 =E2 = =EE=F2=F7=E5=F2=E5: =EA=EE=E4 =E8=E7 12 =F6=E8=F4=F0, =E0 = =F0=FF=E4=EE=EC=20 =E5=E3=EE =E8=E7=EE=E1=F0=E0=E6=E5=ED=E8=E5, =F2.=E5. = =F1=E0=EC =F8=F2=F0=E8=F5-=EA=EE=E4.
14.10.2003 = 09:54

Re:=D8=F2=F0=E8=F5-=EA=EE=E4 = =E2 =EE=F2=F7=E5=F2=E5 am   
=D1=E2=E5=F2=EB=E0=ED=E0 =EF=E8=F1=E0=EB:
=CF=EE=EC=EE=E3=E8=F2=E5, = =ED=E0=E4=EE =F3=E2=E8=E4=E5=F2=FC =E2=E8=E7=F3=E0=EB=FC=ED=EE = =F8=F2=F0=E8=F5-=EA=EE=E4 =E2=20 =EE=F2=F7=E5=F2=E5: =EA=EE=E4 =E8=E7 12 =F6=E8=F4=F0, = =E0 =F0=FF=E4=EE=EC =E5=E3=EE =E8=E7=EE=E1=F0=E0=E6=E5=ED=E8=E5, = =F2.=E5. =F1=E0=EC=20 = =F8=F2=F0=E8=F5-=EA=EE=E4.

=C0 = =E5=F1=EB=E8 =EF=E5=F0=E5=E9=F2=E8 =E2=20 =F1=E0=E0=E0=EC=FB=E9 =E2=E5=F0=F5 =F1=F2=E0=F2=FC=E8 =E8 = =E5=F9=B8 =F0=E0=E7 =EF=F0=EE=F7=E8=F2=E0=F2=FC =E5=B8 = =E2=ED=E8=EC=E0=F2=E5=EB=FC=ED=EE?
=C8=EC=E5=ED=ED=EE=20 =E4=EB=FF =F2=EE=E3=EE =F7=F2=EE=E1=FB = =EF=EE=EA=E0=E7=E0=F2=FC =EA=E0=EA =ED=E0=EF=E5=F7=E0=F2=E0=F2=FC = =F1=E0=EC =F8=F2=F0=E8=F5 =EA=EE=E4 =E2 =EE=F2=F7=E5=F2=E5 =EE=ED=E0 =E8 = =E1=FB=EB=E0 = =EE=EF=F3=E1=EB=E8=EA=EE=E2=E0=ED=E0...
14.10.2003 = 09:59

=CF=F0=EE=F1=F2=EE = =F1=EF=E0=F1=E8=E1=EE! mas   
=D0=E5=E0=EB=FC=ED=EE =F0=E5=F8=E8=EB=EE = =EF=F0=EE=E1=EB=E5=EC=EE!
05.02.2004 = 11:17

=C7=E0=EC=E5=F7=E0=F2=E5=EB=FC=ED=EE. =D1=E0=EB=E8=EA   
=20 =D1=EF=E0=F1=E8=E1=EE!
=C2=F1=E5 =F0=E0=E1=EE=F2=E0=E5=F2 = =E7=E0=EC=E5=F7=E0=F2=E5=EB=FC=ED=EE.
23.05.2004 = 17:12

Re:=C7=E0=EC=E5=F7=E0=F2=E5=EB=FC=ED=EE. Ant   
=C0 =E4=EB=FF Code 39 =EA=F2=EE-=ED=E8=F2=FC = =E7=ED=E0=E5=F2, =E3=E4=E5 =E2=E7=FF=F2=FC =F4-=F6=E8=E8 =E4=EB=FF=20 =EF=EE=EB=FC=E7=EE=E2=E0=ED=E8=FF?
21.06.2004 = 11:08

=CE=E1=EB=EE=EC-=F1 Ant   
=C0 =EA=E0=EA =EF=E5=F0=E5=E4=E5=EB=E0=F2=FC =FD=F2=F3 = =E1=E0=E9=E4=F3 =EF=EE=E4 EAN8. =CA=E0=EA =E1=F3=E4=F2=EE =E1=FB = =E2=F1=B8=20 =EF=E5=F0=E5=EF=F0=E0=E2=E8=EB, =E2 =F1=F2=E0=F2=FC=FF=F5 = =F0=E0=E7=ED=FB=F5 =EF=E8=F8=E5=F2=F1=FF, =F7=F2=EE = =EA=EE=ED=F2=F0=EE=EB=FC=ED=E0=FF =F6=E8=F4=F0=E0=20 =F1=F7=E8=F2=E0=E5=F2=F1=FF =F2=E0=EA=E6=E5 =EA=E0=EA =E8 = =E2 EAN13, =ED=EE =E2=EE=F2 =ED=E0 =F1=E0=EC=EE=EC =E4=E5=EB=E5 =ED=E5 = =F2=E0=EA=E6=E5 :((.=20 =CF=EE=E4=F1=EA=E0=E6=E8=F2=E5, =F7=F2=EE =ED=E0=E4=EE = =E8=E7=EC=E5=ED=E8=F2=FC, =EC=EE=E6=E5=F2 =F4=F3=ED=EA=F6=E8=FE = EAN13Check?, =FF =EE=F1=F2=E0=E2=E8=EB=20 =F2=EE=F2=E6=E5 =ED=E0=E1=EE=F0 =F1=E8=EC=E2=EE=EB=EE=E2. = VErY need
25.06.2004 = 11:30

=CD=E5 =EE=E1=EB=EE=EC-=F1 = !!!!!! Ant   
=D0=E0=E7=EE=E1=F0=E0=EB=F1=FF, =F7=F2=EE =EA = =F7=E5=EC=F3. =C5=F1=EB=E8 =EA=EE=EC=F3 =ED=E0=E4=EE, =F2=EE =E2=EE=F2 = =ED=E5=EC=ED=EE=E3=EE=20 =EF=E5=F0=E5=E4=E5=EB=E0=ED=ED=FB=E5 =F4=F3=ED=EA=F6=E8=E8 = =EF=EE=E4 EAN8. =C0 =E2=EE=F2 =F1=F1=FB=EB=EA=E0 =ED=E0 =E8=ED=F4=F3:=20 http://www.retail.ru/biblio/code02.htm

'*****=F2=EE =E6=E5 =F1=E0=EC=EE=E5 =
=E4=EB=FF EAN8
'
'
Public Function Bar8(n As =
Double) As =
String ' =E4=EB=FF =
EAN-8
Dim sBar As String

sBar =3D Format(n, "0000000")
sBar =3D sBar & EAN8Check(sBar)

Bar8 =3D EAN8p36TT(sBar)
End Function

Public Function EAN8Check(BarCode As String) As String
'=C2=FBc=F7=E8=F2=FB=E2=E0=E5=F2 =
=EA=EE=ED=F2=F0=EE=EB=FC=ED=F3=FE =F1=F3=EC=EC=F3 =
=F8=F2=F0=E8=F5-=EA=EE=E4=E0 EAN-8.
'=C8=F1=EF=EE=EB=FC=E7=F3=E5=F2 =
=EF=E5=F0=E2=FB=E5 7 =F1=E8=EC=E2=EE=EB=EE=E2 =
=EF=E5=F0=E5=E4=E0=E2=E0=E5=EC=EE=E9 =F1=F2=F0=EE=EA=E8.
Dim Cod(7)
Dim c As =
Long
Dim S As =
Long
Dim I As =
Integer
 =20
S =3D 0
  For I =3D 1 To 7
   c =3D val(Mid(BarCode, I, 1))
   S =3D S + IIf(I Mod 2 =3D 0, c, c * 3) '=E7=E4=E5=F1=FC =ED=E0 3 =F3=EC=ED=EE=E6=E0=E5=F2=F1=FF =
=ED=E5=F7=E5=F2=ED=FB=E9 =FD=EB-=F2
  Next
S =3D S Mod 10
EAN8Check =3D right(Trim(str(10 - S)), 1)
End Function

Public Function EAN8p36TT(BarCode As String) As String
'=D1=F2=F0=EE=EA=F3 =E8=E7 8 =F6=E8=F4=F0 =
=EF=F0=E5=EE=E1=F0=E0=E7=F3=E5=F2 =E2 =D8=F2=F0=E8=F5-=EA=EE=E4 EAN-8.
'=C4=E5=EB=E0=E5=F2 =EF=F0=EE=E2=E5=F0=EA=F3 =
=EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 =F1=F3=EC=EC=FB.
'=CD=E5=EE=E1=F5=EE=E4=E8=EC =F8=F0=E8=F4=F2 =
Code EAN/UPC.
    Const a As Integer =3D 48 =
'=EA=EE=EC=E1=E8=ED=E0=F6=E8=FF =C0
    Const b As Integer =3D 65 =
'=EA=EE=EC=E1=E8=ED=E0=F6=E8=FF B
    Const c As Integer =3D 97 =
'=EA=EE=EC=E1=E8=ED=E0=F6=E8=FF C
    'Const d As Integer =3D 35 =
'=EF=E5=F0=E2=FB=E9 =F1=E8=EC=E2=EE=EB
    Dim I As Integer
    Dim Cod(8) As Integer
    Dim strEAN8 As String
   =20
    If Len(BarCode) <> 8 Then
     EAN8p36TT =3D ""
     msgbox "=D8=F2=F0=E8=F5 =EA=EE=E4 =E7=E0 =
=EF=F0=E5=E4=E5=EB=E0=EC=E8 =EE=F2=E2=E5=E4=E5=ED=ED=EE=E3=EE =
=E4=E8=E0=EF=E0=E7=EE=ED=E0.", vbExclamation, "=CC=EE=E4=F3=EB=FC =F0=E0=E1=EE=F2=FB =F1=EE =
=F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
   =20
    If right(BarCode, 1) <> EAN8Check(BarCode) =
Then
     EAN8p36TT =3D ""
     msgbox "=CE=F8=E8=E1=EA=E0 =
=EA=EE=ED=F2=F0=EE=EB=FC=ED=EE=E9 =F1=F3=EC=EC=FB.", =
vbExclamation, "=CC=EE=E4=F3=EB=FC =F0=E0=E1=EE=F2=FB =
=F1=EE =F8=F2=F0=E8=F5-=EA=EE=E4=E0=EC=E8"
     Exit Function
    End If
   =20
    For I =3D 1 To 8
     Cod(I) =3D val(Mid(BarCode, I, 1))
    Next
          =20
   strEAN8 =3D Chr(33) ' =EA=F0=E0=E5=E2=EE=E9 =F8=F2=F0=E8=F5
   For I =3D 1 To 4
     strEAN8 =3D strEAN8 + Chr(Cod(I) + a) =
'=EF=E5=F0=E2=FB=E5 4 =F6=E8=F4=F0=FB =
=E2=FB=EF=EE=EB=ED=E5=ED=FB =E2 =EA=EE=EC=E1=E8=ED=E0=F6=E8=E8 =C0
   Next
   strEAN8 =3D strEAN8 + Chr(45) '=F6=E5=ED=F2=F0=E0=EB=FC=ED=FB=E9 =F8=F2=F0=E8=F5
   For I =3D 5 To 8
     strEAN8 =3D strEAN8 + Chr(Cod(I) + c) =
'=EF=EE=F1=EB=E5=E4=ED=E8=E5 4 =F6=E8=F4=F0=FB =
=E2=FB=EF=EE=EB=ED=E5=ED=FB =E2 =EA=EE=EC=E1=E8=ED=E0=F6=E8=E8 =D1
   Next
   strEAN8 =3D strEAN8 + Chr(33) ' =EA=F0=E0=E5=E2=EE=E9 =F8=F2=F0=E8=F5
  =20
   EAN8p36TT =3D strEAN8
End Function =

28.06.2004=20 11:31

Footer
  ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/Images/curve.gif R0lGODlhEgAUALMAAMDAwIaGhnl5eXR0dG9vb2tra1NTU0ZGRkFBQTMzMyoqKhMTEwkJCQUFBQAA AAAAACH5BAEAAAAALAAAAAASABQAQAQ4EACSnL0Yy807ul0YGiLXZE5ZHqm4oKC6ZXI3WHXY5mqg wJpSAZhj0HKCIO+0WzZ5z5yCxxlQOREAOw== ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/userinfo.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAP//////AAAA//8A/wD/ /////3D6EgAAAAAAAAAAAPUBAAAbAAAAAAAAAMZv1Hew+RIA/PgSAPtv1HcWBXAAAAAAAEAGFAAA AAAAAQAAALJv1HcWBXAARwAAAPj4EgAAABQA9Rb1dyQAAABIDRQAAAAUAPj7FADQ+BIAAAAAAOj6 EgACJPh3IFX3d//////1FvV3zRf1dwsY9XcAAAAAAABAADiGSADtWtR3eAEUAFhhGAAAAAAAeAEU AHgBFACkWtR3EAVXAEYAAAAAAAAAuFrUd1BhGAAeKPV3Jyj1dxBhGAAIAAAA1gEAACz6EgAw+hIA AAAAALMW9XcYYRgAcRb1d9gHFACNFvV3NGEYACBhGAAAAAAAjRb1dwUAAAAoAAAAAAAAAGgBFAAA AAAAAAABAAAAFAD8+BIACF8YAOT5EgACJPh3+FT3d/////+NFvV3OTP1d1Qz9XfAUPx3RzP1d/Dc FgDQ3BYANGEYAADg/X/M+RIAAQAAACj6EgACJPh3SGL3d/////9HM/V33DL1dwcAAAA4AAAAIGEY AAAAAADI8RYACFEBAAAAFAB0+RIAAAAAAHT6EgACJPh3+FT3d/////+NFvV3Lo/ndwAAFAAAAAAA Oo/ndyd91HcAAEAAAQAAAAhfGAAA4P1/AABAAAAAAAAAAAAA/AAAACBhGABE+hIAAAAAALD/EgCG u+l3AI3od/////86j+d3XFdDACBhGAAnfdR3AABAACAAAADy2yaQ483CAUw+KZDjzcIBTD4pkOPN wgEAAAAAhQAAACQAAAAgAQAAVXNlckluZm8uZ2lmAAAAAAAAAAD4+xQAAAAUAAT5EgAAAAAANPsS AAIk+HcQVfd3/////wsY9XfTmOd3AAAUAAgAFADkmOd3J33UdwAAAAAAAAAAAAAAAAAAAABE2kQA JPwUAEzVFgAo/BQAaIZIAP/////4+xQAntpEACT8FABz0EQA+PsUACH5BAEAAAoALAAAAAAQABAA QAhVABUIHEiwoAICCBMeeMAwIUKBDgkwbJhw4IGIGA8QvIgRoUaIHTsq4KhwosOPFiOiNEjSI8uT DEl+bElg4YOWGiNOpFgxo0mHIBHu5LkxZE2DSA0GBAA7 ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: application/octet-stream Content-Transfer-Encoding: base64 Content-Location: http://counter.rambler.ru/top100.cnt?93587 R0lGODdhUQA/APIAAAAAYPj8+MjMyDAwmGBkmMjM+GBkyAAAACwAAAAAUQA/AAAD/gi63P4wyklZ uDjrzbv/YBgoYmmeaEZ2wuASaVYAQ5EJBGGXriCuG4IjdhECdheBYlCaAUpAzQOJMlKdT5HhCM1q sC2FoSgs+MgDgWCmCxi3uYCSRj76CAYYYaDwrfEwHFEYcwA4CmYOPnwQBUZGADpLIww1jAsYWH2C XjILWJQNaRIDbwxGpUsLW5WZC3wdg0mfC5A2tQuFhVZuCpCMBXyWvhu1HrIBoK+YAYzOurhcTs60 ZqFUSZCxnYSYqJeXqNB9y4hLjARhYYYaOLacHKComtQ040+XvnM1Du+eDNguICvUi0QwGtGO0DIY LhkmTWMYnXFlDB6RGBPjZbxI/omjx48fkIEceVEkyZMnTKJcCUIly5fFKsicSbOmzZs4c+rcybOn z59AIQhDOBTn0KIA8uzJ5ysYJJ3HcgY5QmXNpyuFcHpgSjNIwFkbKWrt4CyHCwelcgDM+DXTB641 kWS1lgRLGxnobmQoJQNvhqc3J2L5qiTQhjmGk/1NTCUOBsA25SLyQFdOYzpuMfAl9JfJ451InCAp k/kCn9CR+j5mvPgv6G5cLgSbmLHG6NScCV25kRFyTcHEyKr+nPju4TQdNOGUvGnqcIeYi3huJyQd p5061tAzw52RjALgIekAv4679gZq1lgNKlMF+/cz3cOfL8E8/fv48+vfz/8968z/IbgEIEwCDshS gQaihOBLRIXF0YIHfnKSS47kcMYf1tWlnmXgZbKhQLXQVWE6Z3BnQwF5bENZPnr0U5AdFkB2SwM2 cDWjKCrGw1QeEKjVBxapTKEIXIbAleMGQJ5Xy1O2FHKWL77ZsYsjn4CzRlQdiIfBKyCqggiQDKyH UC5yfFLdDpe0tSU3sEFJD42vgJOmciFmpQYbobATEpsYsLIKnX1kFWaYQDJ1yANPxoblisasI6Ec TNWYiyYvsgMZDJc46J4IlWmIJHm6baheaB8mA15VnR6ZYIIQrvpRq64+yGesEdJqYH/9JQAAOw== ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: application/octet-stream Content-Transfer-Encoding: base64 Content-Location: http://top.list.ru/counter?js=na;id=33428;t=8 R0lGODdhWAAoAOYAANza2////6aonoyOhFhaUOzs62doYVhYWIKDfyoqKI2LjFlXWDk5NmJjXeub FYyMjM3OytCRJEpLR9XW0cqhVZubl3t9drqkdby9tuKdJoV0UrO1rpKUi/T088SlZ7WGMKCimHRW IqOjoldWTu/w7tPU0Nra2CwtKtjY1oyOhUBBPsTFv9afP6ynky4uK46Qh/j494CBe6Cdjo2Ohp+f nYqMg4mLg6t2G+Tk4YeIg6GUc7OLRPz8/HJzbTAwLq+miwAAAEn2OEf/AUi/QFS4AAA2AAABAABA AAAAMAAA9wAA/wAAvwAA/QCNGwAECgAIQgAgUQCxCAAAAABCAACwAAA7AAABAABAAAABAAAAAAAA AAAAAIT/uwX/mwf/c0L/ADG4wDL29wD//wC/v0GAuIpJNgATAUBCQOkA6IoAAwQAAAgAANChADha 8AEN/0BC/wwj0IIAYRMAAEIAQt+AsPdJO/8TAb9CQGgAmPUA9/8A/78AvzaE+BYFcwcHB0JCQiwA AAAAWAAoAAAH/oADgoOEhYaHiImKi4yLBI+QkZKTlJWWl5iZlYIEAp6foKGio6SlpqeoogScqaYY ARsCASWttbamqwOdt6MzCQETCQa8xLa5nSQrBR20EB0FGKDOHTgbEygCKx2ewAkNoxQZGQIZF6EX DsWpx7IBAR3uATDuFjUCPO4F8SQNGwEVDLp9A/XDgcEPDBxQYGDhEwUHFlyow8UqAI4ECVAEQJAg IIQEJAKscIFRn4kENDb+CjYMlEEdGE8o9ObQQYMEE0uxm5VAQokAKhL0CFDARwATDBI0lAUApcpu LT2ho0CSg4CZAwU8vHkqALGdJYT9NICTqApYND2RIOGUI8+o/gI8OIDZcmbUh2TbeY0nCxRfr30B 73W3k+WEAHnNBsCQwCo3EipSuj0J96GGBC88Ocgg7BMLB4m5AQ4smFu7voE9FRZ2ODFbdyqW4gjA VvKvAGk9WU6QwtPnEAw8tdg8oqw7vadLJ9e7V3VFw4jLdhDmTgSEkBYTiAiQI8EKdxU2yNXq4HJv zQ5u7PjsQEZH1PCPK5ePurkAsN5+cqXdcQM8dxuUUEACFQQQA28QVPeBAzGEAFoCNoDCngMRFJcA CPHRV59pqXXIjiedCZAXiCp4wkFSGBkgQXBkOdYDRg3k9WIFokiAUQIqYJgTKR/u6OOPo/QI5JA/ rqLAAgAk/qnkkkw26eSTUEIZz5RUVmkllQc8cGSUXHbp5ZNXhilmPFlu+eWZaII55ppVlolkmnDC KSYQ8QBhJ50B2FknngG4GeefZ4apJ5V04lmoO3j6CeiiUc5J6KN1uqPokkA4WamSd2JqZ5OZ3rlp kpku6eiUfOZJKplavqkppwBcemmrsIJK6axMvsrkqIieGimqZspqa6ywvvqrsLWG+quoV965a57K eippqqzSGiym0rZqLLWeNsnmtryqSq20roYKrKzkYvutktxyO+m55Q5b7rnuEossm4Myu2e30c7q 7rjwAlupvOjSm2uppfYJrabitvuptQmL6/DCAW9rqKmmavK5LqMYRyyxvYUeanCvGYe8ccUD5/qx tyFjzG29LFt8cMoZp7vtxTADKjObNNcc581r5qxzmjyP6eYCRBdt9NFIJ6300ksf4PTTUEct9dRP a6nA1VhnrfXWXHft9dcPhC322GSXbfbYgQAAOw== ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: application/octet-stream Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/bar.aspx?maxvalue=5&value=5 R0lGODlhZAAUAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAAD/AP//AAAA//8A/wD/ /////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMwAAZgAAmQAAzAAA/wAzAAAzMwAzZgAzmQAzzAAz/wBm AABmMwBmZgBmmQBmzABm/wCZAACZMwCZZgCZmQCZzACZ/wDMAADMMwDMZgDMmQDMzADM/wD/AAD/ MwD/ZgD/mQD/zAD//zMAADMAMzMAZjMAmTMAzDMA/zMzADMzMzMzZjMzmTMzzDMz/zNmADNmMzNm ZjNmmTNmzDNm/zOZADOZMzOZZjOZmTOZzDOZ/zPMADPMMzPMZjPMmTPMzDPM/zP/ADP/MzP/ZjP/ mTP/zDP//2YAAGYAM2YAZmYAmWYAzGYA/2YzAGYzM2YzZmYzmWYzzGYz/2ZmAGZmM2ZmZmZmmWZm zGZm/2aZAGaZM2aZZmaZmWaZzGaZ/2bMAGbMM2bMZmbMmWbMzGbM/2b/AGb/M2b/Zmb/mWb/zGb/ /5kAAJkAM5kAZpkAmZkAzJkA/5kzAJkzM5kzZpkzmZkzzJkz/5lmAJlmM5lmZplmmZlmzJlm/5mZ AJmZM5mZZpmZmZmZzJmZ/5nMAJnMM5nMZpnMmZnMzJnM/5n/AJn/M5n/Zpn/mZn/zJn//8wAAMwA M8wAZswAmcwAzMwA/8wzAMwzM8wzZswzmcwzzMwz/8xmAMxmM8xmZsxmmcxmzMxm/8yZAMyZM8yZ ZsyZmcyZzMyZ/8zMAMzMM8zMZszMmczMzMzM/8z/AMz/M8z/Zsz/mcz/zMz///8AAP8AM/8AZv8A mf8AzP8A//8zAP8zM/8zZv8zmf8zzP8z//9mAP9mM/9mZv9mmf9mzP9m//+ZAP+ZM/+ZZv+Zmf+Z zP+Z///MAP/MM//MZv/Mmf/MzP/M////AP//M///Zv//mf//zP///yH5BAEAABAALAAAAABkABQA AAj/AFEIHEiwoMGDCBMqXMiwocIxhrp0CQQxkBiKXQBBjJhxTCBDYwB97GKIIkSSFEF2GYMSYsWP HkuKAcklZUySFQGBDISSokmYI8d4XMkxpcCJhkCKdKnTY8yLIWMKjXgREEqUhkTulGlRqcqRJaNa 9Khx7MewhrjILBsxqcaIZ0MGErjTo5gxVVkm7QI1aciIWqWChAgVL0WoFMvy9Lu4YtvDW8dwEdp0 58W7QUvWHSvwcsmPKcOeHQkTp9KTgUhXlNsWZ1ePk2cmdgk69WXQOzui1ehUo+fUhgSWvXvX6tSL K/VKJX3x413NNWcK/f12ZW3DcGeufN4SNu3nKQFp/w80HO8Yuj41QxQZGjfelm+F3pwaE7hT2jqf yx5ckq/miScx9thwqdm1Gm4CbcTXYjY1Nhl5QG1FHlf9WQYbdGb5tNJKIr1VIEmGXAQXhVPZpBN5 CiJ3VHonGSYdcGPZpVFN5h2WUkokxXfjWmLo9J9LVJWGlnKJVVjWVADCFBwKAbKG22uhHemXVuHh 5SFip9F331hhLcUYSwGWJR5P0pHUHEhtySXQSJdNV5h9zRHmk1OPrbYUSQsOONFZLQlpEXBuOaUk UzcSdlOba4r4ZHh31QSTlxrlZxONIM2kXpFA3oWnZiJyaF6SU2IEVI9yyaVoSQm+KYZrWFYaoGlI /fqJZmoTcfjln3KBhplpmukaknV4kTgkTKquCViIj6L1U4d2mnSkR6+FxZJzYEEmlHO5ERWVTF4J BuCmW2WErHBI2mijjPyxaGlXzl37lnrKveqTYn+hZpdPzPUmXX9klXsekyW925hzUkYK3pxjdZgw nmfKipV4/Llm8Lkh5pRmgcjO+u5Rgxk3a2QoFkgrZtWZNOu1dlUq8l2CfkRjU0oSDC3LqKXVW7zG oRcYigtG5RuQG/GJVn9FZnWgb0lNiFNfiAkap9EBe+mYrBDulOpJLyqr8Z/l3djXadal6ZpEdRkN FERqdWphi2gmCZ55VC3p0Nx012333QEBADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/images/NewMSG.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAP//////AAAA//8A/wD/ /////3D6EgAAAAAAAAAAAPUBAAAbAAAAAAAAAMZv1Hew+RIA/PgSAPtv1HcIBHAAAAAAAEAGFAAA AAAAAQAAALJv1HcIBHAARwAAAPj4EgAAABQA9Rb1dyQAAABIDRQAAAAUAAD8FADQ+BIAAAAAAOj6 EgACJPh3IFX3d//////1FvV3zRf1dwsY9XcAAAAAAABAADiGSADtWtR3eAEUAGBhGAAAAAAAeAEU AHgBFACkWtR3ZgRlAEYAAAAAAAAAuFrUd1hhGAAeKPV3Jyj1dxhhGAAKAAAA1QEAACz6EgAw+hIA AAAAALMW9XcgYRgAcRb1d9gHFACNFvV3PGEYAChhGAAAAAAAjRb1dwUAAAAoAAAAAAAAAGgBFAAA AAAAAAABAAAAFAD8+BIAEF8YAOT5EgACJPh3+FT3d/////+NFvV3OTP1d1Qz9XfAUPx3RzP1d/jc FgDY3BYAPGEYAADg/X/M+RIAAQAAACj6EgACJPh3SGL3d/////9HM/V33DL1dwcAAAA4AAAAKGEY AAAAAADQ8RYACFEBAAAAFAB0+RIAAAAAAHT6EgACJPh3+FT3d/////+NFvV3Lo/ndwAAFAAAAAAA Oo/ndyd91HcAAEAAAQAAABBfGAAA4P1/AABAAAAAAAAAAAAA/AAAAChhGABE+hIAAAAAALD/EgCG u+l3AI3od/////86j+d3XFdDAChhGAAnfdR3AABAACAAAACol2V15M3CAaiXZXXkzcIBqJdldeTN wgEAAAAAkwAAACQAAAAgAQAATmV3TXNnLmdpZgAAAAAAAAAAAAAA/BQAAAAUAAT5EgAAAAAANPsS AAIk+HcQVfd3/////wsY9XfTmOd3AAAUAAgAFADkmOd3J33UdwAAAAAAAAAAAAAAAAAAAABE2kQA KvwUAFTVFgAu/BQAZoZIAP////8A/BQAntpEACr8FABz0EQAAPwUACH5BAEAAAoALAAAAAAQABAA QAhjABUIHEiwIMEDDwAoXAjgQUKBCw4seHCgIsKGDwk2ZLjQIQCICg4olOjxo0GEFBU6XGlS4EaO GFsqwLiyZkaBEnEuPBmxJ8ubIUUumMiS4UGiNj1qTFpTJk2mTpmy1AiTo4KAADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/images/subscr.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8EAgAGAgAIAgAKAgAMAg AOAgAABAACBAAEBAAGBAAIBAAKBAAMBAAOBAAABgACBgAEBgAGBgAIBgAKBgAMBgAOBgAACAACCA AECAAGCAAICAAKCAAMCAAOCAAACgACCgAECgAGCgAICgAKCgAMCgAOCgAADAACDAAEDAAGDAAIDA AKDAAMDAAODAAADgACDgAEDgAGDgAIDgAKDgAMDgAODgAAAAQCAAQEAAQGAAQIAAQKAAQMAAQOAA QAAgQCAgQEAgQGAgQIAgQKAgQMAgQOAgQABAQCBAQEBAQGBAQIBAQKBAQMBAQOBAQABgQCBgQEBg QGBgQIBgQKBgQMBgQOBgQACAQCCAQECAQGCAQICAQKCAQMCAQOCAQACgQCCgQECgQGCgQICgQKCg QMCgQOCgQADAQCDAQEDAQGDAQIDAQKDAQMDAQODAQADgQCDgQEDgQGDgQIDgQKDgQMDgQODgQAAA gCAAgEAAgGAAgIAAgKAAgMAAgOAAgAAggCAggEAggGAggIAggKAggMAggOAggABAgCBAgEBAgGBA gIBAgKBAgMBAgOBAgABggCBggEBggGBggIBggKBggMBggOBggACAgCCAgECAgGCAgICAgKCAgMCA gOCAgACggCCggECggGCggICggKCggMCggOCggADAgCDAgEDAgGDAgIDAgKDAgMDAgODAgADggCDg gEDggGDggIDggKDggMDggODggAAAwCAAwEAAwGAAwIAAwKAAwMAAwOAAwAAgwCAgwEAgwGAgwIAg wKAgwMAgwOAgwABAwCBAwEBAwGBAwIBAwKBAwMBAwOBAwABgwCBgwEBgwGBgwIBgwKBgwMBgwOBg wACAwCCAwECAwGCAwICAwKCAwMCAwOCAwACgwCCgwECgwGCgwICgwKCgwMCgwOCgwADAwCDAwEDA wGDAwIDAwKDAwP/78KCgpICAgP8AAAD/AP///wAA//8A/wD//////yH5BAEAAPsALAAAAAAQABAA QAhjAPcJHLiPlEGDBEn9W/gPgEMADBceADCQ1IGLGDNOVBhxIUWCIAVy7Phx5D+FJv8FCAAgpUeN Gzt6DEkz5UeQLhlSPMhT5sqWJw96JEBUIlCeCgEQJWAUZc+HUI8+pRkVKs2AADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image15.gif R0lGODlhEAAQALMAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAAD/AP//AAAA//8A/wD/ /////yH5BAEAAAgALAAAAAAQABAAAAQ/EMlJq6Xn3JrX01v2eAvIHaRYYsf4oa6JAKP6eiZA1m1K 6TdebULbdVwLAFG4AyiJO5LzAvRMN8XrRqLdeicRADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/images/unread.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAP//////AAAA//8A/wD/ /////3D6EgAAAAAAAAAAAPUBAAAbAAAAAAAAAMZv1Hew+RIA/PgSAPtv1HdUBV0AAAAAAEAGFAAA AAAAAQAAALJv1HdUBV0ARwAAAPj4EgAAABQA9Rb1dyQAAABIDRQAAAAUAAD8FADQ+BIAAAAAAOj6 EgACJPh3IFX3d//////1FvV3zRf1dwsY9XcAAAAAAABAADiGSADtWtR3eAEUAGhhGAAAAAAAeAEU AHgBFACkWtR3UAVmAEYAAAAAAAAAuFrUd2BhGAAeKPV3Jyj1dyBhGAAKAAAA1AEAACz6EgAw+hIA AAAAALMW9XcoYRgAcRb1d9gHFACNFvV3RGEYADBhGAAAAAAAjRb1dwUAAAAoAAAAAAAAAGgBFAAA AAAAAAABAAAAFAD8+BIAGF8YAOT5EgACJPh3+FT3d/////+NFvV3OTP1d1Qz9XfAUPx3RzP1dwDd FgDg3BYARGEYAADg/X/M+RIAAQAAACj6EgACJPh3SGL3d/////9HM/V33DL1dwcAAAA4AAAAMGEY AAAAAADY8RYACFEBAAAAFAB0+RIAAAAAAHT6EgACJPh3+FT3d/////+NFvV3Lo/ndwAAFAAAAAAA Oo/ndyd91HcAAEAAAQAAABhfGAAA4P1/AABAAAAAAAAAAAAA/AAAADBhGABE+hIAAAAAALD/EgCG u+l3AI3od/////86j+d3XFdDADBhGAAnfdR3AABAACAAAADy+jCK483CAfL6MIrjzcIB8vowiuPN wgEAAAAAkwAAACQAAAAgAQAAdW5yZWFkLmdpZgAAAAAAAAAAAAAA/BQAAAAUAAT5EgAAAAAANPsS AAIk+HcQVfd3/////wsY9XfTmOd3AAAUAAgAFADkmOd3J33UdwAAAAAAAAAAAAAAAAAAAABE2kQA KvwUAFzVFgAu/BQAZoZIAP////8A/BQAntpEACr8FABz0EQAAPwUACH5BAEAAAoALAAAAAAQABAA QAhpABUIHEiwoMADDx4MAJBwAYABCBAcAHCwYcIHCy46pKjggMePID9yNEhy4AEEADJafPBw4kGI EQfIjIhggMuSOHMaDMnTI8eJGoM+/LkAJcaLDyUShbgQQFKIN0/SnErzptOrWLPqNBgQADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/images/Reply.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAP//////AAAA//8A/wD/ /////3D6EgAAAAAAAAAAAPUBAAAbAAAAAAAAAMZv1Hew+RIA/PgSAPtv1HcWBW4AAAAAAEAGFAAA AAAAAQAAALJv1HcWBW4ARwAAAPj4EgAAABQA9Rb1dyQAAABIDRQAAAAUABD9FADQ+BIAAAAAAOj6 EgACJPh3IFX3d//////1FvV3zRf1dwsY9XcAAAAAAABAADiGSADtWtR3eAEUAGBhGAAAAAAAeAEU AHgBFACkWtR3rgReAEYAAAAAAAAAuFrUd1hhGAAeKPV3Jyj1dxhhGAALAAAA1QEAACz6EgAw+hIA AAAAALMW9XcgYRgAcRb1d9gHFACNFvV3PGEYAChhGAAAAAAAjRb1dwUAAAAoAAAAAAAAAGgBFAAA AAAAAAABAAAAFAD8+BIAEF8YAOT5EgACJPh3+FT3d/////+NFvV3OTP1d1Qz9XfAUPx3RzP1d/jc FgDY3BYAPGEYAADg/X/M+RIAAQAAACj6EgACJPh3SGL3d/////9HM/V33DL1dwcAAAA4AAAAKGEY AAAAAADQ8RYACFEBAAAAFAB0+RIAAAAAAHT6EgACJPh3+FT3d/////+NFvV3Lo/ndwAAFAAAAAAA Oo/ndyd91HcAAEAAAQAAABBfGAAA4P1/AABAAAAAAAAAAAAA/AAAAChhGABE+hIAAAAAALD/EgCG u+l3AI3od/////86j+d3XFdDAChhGAAnfdR3AABAACAAAADUZ6OC483CAS7KpYLjzcIBLsqlguPN wgEAAAAAhgAAACQAAAAgAQAAcmVwbHkuZ2lmABIAAAAAAAAAAAAQ/RQAAAAUAAT5EgAAAAAANPsS AAIk+HcQVfd3/////wsY9XfTmOd3AAAUAAgAFADkmOd3J33UdwAAAAAAAAAAAAAAAAAAAABE2kQA Of0UAFTVFgA9/RQAZYZIAP////8Q/RQAntpEADn9FABz0EQAEP0UACH5BAEAAAoALAAAAAAQABAA QAhXABUIHEiwoAICBA4mVACgIYAHEAEIXDjQocUHEicuzOjQoEGLGSlWbAgRY0OFCBEKfNjRo8uX MD2CdChy5UWTCyk6LBkxZUqbPDOi3PgQo0GdBYXGJBgQADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/ui1.gif R0lGODlhEAAQAPcAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAP//////AAAA//8A/wD/ /////3D6EgAAAAAAAAAAAPUBAAAbAAAAAAAAAMZv1Hew+RIA/PgSAPtv1HcWBXAAAAAAAEAGFAAA AAAAAQAAALJv1HcWBXAARwAAAPj4EgAAABQA9Rb1dyQAAABIDRQAAAAUAPj7FADQ+BIAAAAAAOj6 EgACJPh3IFX3d//////1FvV3zRf1dwsY9XcAAAAAAABAADiGSADtWtR3eAEUAFhhGAAAAAAAeAEU AHgBFACkWtR3EAVXAEYAAAAAAAAAuFrUd1BhGAAeKPV3Jyj1dxBhGAAIAAAA1gEAACz6EgAw+hIA AAAAALMW9XcYYRgAcRb1d9gHFACNFvV3NGEYACBhGAAAAAAAjRb1dwUAAAAoAAAAAAAAAGgBFAAA AAAAAAABAAAAFAD8+BIACF8YAOT5EgACJPh3+FT3d/////+NFvV3OTP1d1Qz9XfAUPx3RzP1d/Dc FgDQ3BYANGEYAADg/X/M+RIAAQAAACj6EgACJPh3SGL3d/////9HM/V33DL1dwcAAAA4AAAAIGEY AAAAAADI8RYACFEBAAAAFAB0+RIAAAAAAHT6EgACJPh3+FT3d/////+NFvV3Lo/ndwAAFAAAAAAA Oo/ndyd91HcAAEAAAQAAAAhfGAAA4P1/AABAAAAAAAAAAAAA/AAAACBhGABE+hIAAAAAALD/EgCG u+l3AI3od/////86j+d3XFdDACBhGAAnfdR3AABAACAAAADy2yaQ483CAUw+KZDjzcIBTD4pkOPN wgEAAAAAhQAAACQAAAAgAQAAVXNlckluZm8uZ2lmAAAAAAAAAAD4+xQAAAAUAAT5EgAAAAAANPsS AAIk+HcQVfd3/////wsY9XfTmOd3AAAUAAgAFADkmOd3J33UdwAAAAAAAAAAAAAAAAAAAABE2kQA JPwUAEzVFgAo/BQAaIZIAP/////4+xQAntpEACT8FABz0EQA+PsUACH5BAEAAAoALAAAAAAQABAA QAhVABUIHEiwoAIDCBMeyMcwIUKBDg0wbJhw4IGIGA8QvIgRoUaIHTsq4KhwosOPFiOiNEjSI8uT DEl+bGlgYb6WGiNOpFgxo0mHIBHu5LkxZE2DSA0GBAA7 ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image18.gif R0lGODlhEAAQALMAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAAD/AP//AAAA//8A/wD/ /////yH5BAEAAAgALAAAAAAQABAAAAQ6EMlJaz0k52MR1iDBTd/2POWIhOcJSqWJglxov2z7hGt4 tDzbz/WKiYCaEUhHJJBuNIoxajGqOthJBAA7 ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image2.gif R0lGODlhEAAQAPcAAAAAANbWzv//AP////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////yH5BAEAAAEALAAAAAAQABAA AAhTAAMIHEiwoMEAABImPCgwoYCHDxcWBACxYkSCFC1aBDCQYkYBHjNyRAhRYcSPHD9qrJhypcaW LlmSBLlSZMOIGy/ePGlS586aBh2yHHlQocSBAQEAOw== ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image16.gif R0lGODlhEAAQALMAAAAAAIAAAACAAICAAAAAgIAAgACAgICAgMDAwP8AAAD/AP//AAAA//8A/wD/ /////yH5BAEAAAgALAAAAAAQABAAAAQ+EMlJay0s62xxJiDITV74mVJJHIfEhCuChW36gvVZz/T0 5bdVzRIUWlw01hGhGy4RLOdxJu2onq5f1RKtRAAAOw== ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image10.gif R0lGODlhEAAQAPcAAAAAAEIhAEJCAEJCQmNCAGNCQmNjQmPGxoRjAIRjQoSEQoSEhKWEQqWlQqWl paXO98YhAMaEQsalQsalhMbGQsbGhMbGxsbnANbWzucAQuchQuelhOfGQufGhOfnAOfnhP8AAP// AP//9/////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////yH5BAEAABgALAAAAAAQABAA AAiRADEIHEiwYEEACA0aBNCgQwUACgkCkPDhA8SIAid+eIgxo4QOFzECYMABJMKTJzM24LDRQAUO CgIIUCBBAsQOFT8oqPChQYEGEhIwaACRZc6eBQIwqGkgIQWjHyQUUMCgwE8JRDEweMqBA4MAVyU0 vUiVAgUGM6tezYoBIdWYAoD6TCgRAIK7MuWGrIuSLoaAAAA7 ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: image/gif Content-Transfer-Encoding: base64 Content-Location: http://am.rusimport.ru/MsAccess/Images/image6.gif R0lGODlhEAAQAPcAAAAAAEIhAEJCAEJCQmNCAGNCQmNjQmPGxoRjAIRjQoSEQoSEhKWEQqWlQqWl paXO98YhAMaEQsalQsalhMbGQsbGhMbGxsbnANbWzucAQuchQuelhOfGQufGhOfnAOfnhP8AAP// AP//9/////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////yH5BAEAABgALAAAAAAQABAA AAhXADEIHEiwoEEMABImPCgw4YWHDxcWBACxYkSCFC1aBDAwo8OIHhtC/HiBJMeMGjciTKnxZEmW L12WVEgz5MqIGgDkHNlxpIafKDn2BBnUIEmQDBHSLBgQADs= ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: text/css; charset="koi8-r" Content-Transfer-Encoding: quoted-printable Content-Location: http://am.rusimport.ru/MsAccess/styles.css A.rss { BORDER-RIGHT: #7d3302 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: = #ffc8a4 1px solid; PADDING-LEFT: 3px; PADDING-BOTTOM: 0px; MARGIN: 0px; = FONT: bold 10px verdana,sans-serif; VERTICAL-ALIGN: middle; BORDER-LEFT: = #ff9a57 1px solid; COLOR: #ffffff; PADDING-TOP: 0px; BORDER-BOTTOM: = #3f1a01 1px solid; BACKGROUND-COLOR: #ff6600; TEXT-DECORATION: none } A.rss:hover { BORDER-RIGHT: #7d3302 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: = #ffc8a4 1px solid; PADDING-LEFT: 3px; PADDING-BOTTOM: 0px; MARGIN: 0px; = FONT: bold 10px verdana,sans-serif; VERTICAL-ALIGN: middle; BORDER-LEFT: = #ff9a57 1px solid; COLOR: #ffffff; PADDING-TOP: 0px; BORDER-BOTTOM: = #3f1a01 1px solid; BACKGROUND-COLOR: #ff6600; TEXT-DECORATION: none } A.rss:visited { BORDER-RIGHT: #7d3302 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: = #ffc8a4 1px solid; PADDING-LEFT: 3px; PADDING-BOTTOM: 0px; MARGIN: 0px; = FONT: bold 10px verdana,sans-serif; VERTICAL-ALIGN: middle; BORDER-LEFT: = #ff9a57 1px solid; COLOR: #ffffff; PADDING-TOP: 0px; BORDER-BOTTOM: = #3f1a01 1px solid; BACKGROUND-COLOR: #ff6600; TEXT-DECORATION: none } .ftHead { BACKGROUND-COLOR: #99ccff } .ftInfo { FONT-SIZE: xx-small; BACKGROUND-COLOR: #eeeeee } .err { FONT-WEIGHT: bold; COLOR: red; FONT-FAMILY: Arial } .btn { BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-LEFT-COLOR: = black; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: black; FONT: 8pt = verdana; WIDTH: 45px; BORDER-TOP-COLOR: black; BORDER-RIGHT-WIDTH: 1px; = BORDER-RIGHT-COLOR: black } .ed { BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-LEFT-COLOR: = black; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: black; FONT: 8pt = verdana; BORDER-TOP-COLOR: black; BORDER-RIGHT-WIDTH: 1px; = BORDER-RIGHT-COLOR: black } .fh { FONT-SIZE: 7pt; COLOR: #ffffff; FONT-FAMILY: Arial; BACKGROUND-COLOR: = #999999 } .fr { BACKGROUND-COLOR: #eeeeee } .frc { BACKGROUND-COLOR: #ffffff } .frs { FONT-SIZE: 8pt; FONT-FAMILY: Arial } .newsh { FONT-SIZE: 7pt; COLOR: #ffffff; FONT-FAMILY: Arial; BACKGROUND-COLOR: = #999999 } .newsr { BACKGROUND-COLOR: #eeeeee } .ulh { FONT-SIZE: 7pt; COLOR: #ffffff; FONT-FAMILY: Arial; BACKGROUND-COLOR: = #999999 } .ulr { BACKGROUND-COLOR: #eeeeee } .fnm { WIDTH: 600px; HEIGHT: 180px } .fmnu { BACKGROUND-COLOR: whitesmoke } .nv { FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } .fl { FONT-SIZE: 9pt; COLOR: blue; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } .ared { FONT-WEIGHT: bold; FONT-SIZE: 12pt; COLOR: red; FONT-FAMILY: Verdana; = TEXT-DECORATION: none } .ared:visited { FONT-WEIGHT: bold; FONT-SIZE: 12pt; COLOR: red; FONT-FAMILY: Verdana; = TEXT-DECORATION: none } HR { TEXT-ALIGN: left } TABLE.reference { PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: 8pt = verdana; WIDTH: 90%; PADDING-TOP: 1px } TABLE.reference TD A { COLOR: black } TABLE.reference TD A:hover { COLOR: darkred } TABLE.reference TD { PADDING-BOTTOM: 2px; WIDTH: 25%; TEXT-INDENT: 5px } .TODO { COLOR: red } BODY { FONT: 8pt verdana; COLOR: black; BACKGROUND-COLOR: white } BODY DIV { FONT: 10pt tahoma, verdana } TABLE.outer { FONT-SIZE: 8pt; FONT-FAMILY: Verdana } TABLE TD { FONT: 11pt Helvetica, Arial } TD.toc { FONT-SIZE: 8pt; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #f1e0c6 } DIV.toc { MARGIN-TOP: 0px; MARGIN-LEFT: 10px; FONT-FAMILY: Verdana, Arial, = Helvetica } DIV.body { MARGIN-TOP: 20px; MARGIN-LEFT: 10px; MARGIN-RIGHT: 15px; FONT-FAMILY: = Tahoma, Verdana, Arial, Helvetica } TD.small { FONT-SIZE: 6pt; FONT-FAMILY: Verdana } A { FONT-SIZE: 11pt; COLOR: blue; FONT-FAMILY: Verdana } A:hover { COLOR: darkred } A:visited { COLOR: #006600 } A.small { FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: Verdana } A.small:hover { COLOR: darkred } A.small:visited { COLOR: black } A.fpMSG { FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: Verdana } A.fpMSG:hover { COLOR: darkred } A.fpMSG:visited { COLOR: #006600 } .ushow { FONT-SIZE: 12px; COLOR: #003399; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } .posetit { FONT-SIZE: 10px; COLOR: #003399; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } .posetit:hover { COLOR: #003399 } .posetit:visited { COLOR: #003399 } .fposetit { FONT-SIZE: 10px; COLOR: #0000ff; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } .fposetit:hover { COLOR: #0000ff } .fposetit:visited { COLOR: #0000ff } A.outer { FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Verdana } A.outer:hover { COLOR: darkred } A.outer:visited { COLOR: green } A.toc2 { COLOR: blue } A.toc2:hover { COLOR: darkred } A.toc2:visited { COLOR: #006600 } A.head { FONT-SIZE: 10pt; COLOR: white; FONT-FAMILY: Verdana; TEXT-DECORATION: = none } A.head:hover { COLOR: white } A.head:visited { COLOR: white } SPAN.q { FONT-SIZE: 10pt; FONT-STYLE: italic } SPAN.qa { FONT-SIZE: 7pt; COLOR: #aaaaaa } SPAN.ArtHeader { FONT-SIZE: 22pt } SPAN.ArtInfo { FONT-WEIGHT: bold; COLOR: blue } SPAN.ArtSubHeader { FONT-SIZE: 16pt } SPAN.Err { FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: Verdana, = Arial } SPAN.ArtAcc { FONT-SIZE: xx-small; FONT-FAMILY: 'Times New Roman' } SPAN.ArtObr { FONT-SIZE: 12pt; FONT-FAMILY: Verdana, Arial } SPAN.ArtPartHead { FONT-WEIGHT: bold; FONT-FAMILY: Verdana, Arial } TABLE.ArtCommentHead { FONT-WEIGHT: bold; FONT-FAMILY: Verdana, Arial } TD.ArtCommentHead { FONT-WEIGHT: bold; FONT-FAMILY: Verdana, Arial } TR.ArtCommentBody { BORDER-RIGHT: #000000 thin solid; BORDER-TOP: #000000 thin solid; = BORDER-LEFT: #000000 thin solid; BORDER-BOTTOM: #000000 thin solid; = FONT-FAMILY: Verdana, Arial; BACKGROUND-COLOR: whitesmoke } TABLE.ArtComment { BORDER-RIGHT: #6699ff 1px solid; BORDER-TOP: #6699ff 1px solid; = FONT-WEIGHT: bold; BORDER-LEFT: #6699ff 1px solid; WIDTH: 100%; = BORDER-BOTTOM: #6699ff 1px solid; FONT-FAMILY: Verdana, Arial; = BORDER-COLLAPSE: collapse } TR.ArtCommentHead { BORDER-RIGHT: #000000 thin solid; BORDER-TOP: #000000 thin solid; = BORDER-LEFT: #000000 thin solid; BORDER-BOTTOM: #000000 thin solid; = FONT-FAMILY: Verdana, Arial; BACKGROUND-COLOR: #ccffff } PRE.CODESAMP { BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; = BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; = FONT-FAMILY: 'Courier New' , Verdana, Arial; BACKGROUND-COLOR: #ffffda } A.ArtCommentHead { FONT-WEIGHT: bold; FONT-FAMILY: Verdana, Arial } TABLE.Rating { BORDER-TOP: 1px solid; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: = whitesmoke } H1 { FONT-SIZE: 22pt } H4 { FONT-SIZE: 12pt } bak_span.subhead { FONT-WEIGHT: 600; FONT-SIZE: 10pt; COLOR: black } bak_h5 { FONT-WEIGHT: 600; FONT-SIZE: 10pt; COLOR: black } SPAN.subhead { FONT-SIZE: 12pt } H5 { FONT-WEIGHT: 100; FONT-SIZE: 8pt } H6 { FONT-WEIGHT: 600; FONT-SIZE: 7pt; COLOR: darkblue } DIV.comment { PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; = MARGIN-LEFT: 5px; WIDTH: 90%; PADDING-TOP: 10px; FONT-FAMILY: Times; = BACKGROUND-COLOR: #ffffcc } CODE { COLOR: darkred } TD.code { PADDING-LEFT: 25px; COLOR: darkred; FONT-FAMILY: "courier new" } DIV.code { PADDING-LEFT: 25px; COLOR: darkred; FONT-FAMILY: "courier new" } bogus.code { PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; WIDTH: = 100%; COLOR: darkred; PADDING-TOP: 10px; FONT-FAMILY: "courier new"; = BACKGROUND-COLOR: #cccccc } SPAN.caption { MARGIN-TOP: 5px; FONT-WEIGHT: 600; FONT-SIZE: 10pt; COLOR: black; = FONT-FAMILY: tahoma,verdana } DIV.caption { MARGIN-TOP: 5px; FONT-WEIGHT: 600; FONT-SIZE: 10pt; COLOR: darkgreen; = FONT-FAMILY: tahoma,verdana } TD.caption { MARGIN-TOP: 5px; FONT-WEIGHT: 600; FONT-SIZE: 10pt; COLOR: darkgreen; = FONT-FAMILY: tahoma,verdana } DIV.aside { WIDTH: 90%; BACKGROUND-COLOR: #eeeeee } IMG { BORDER-LEFT-COLOR: black; BORDER-BOTTOM-COLOR: black; BORDER-TOP-COLOR: = black; BORDER-RIGHT-COLOR: black } A.srcview { FONT-SIZE: 9pt } TABLE.srcview { WIDTH: 90% } DIV.indent { PADDING-LEFT: 25px } DIV.buffer-top { PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; = PADDING-TOP: 7px } .issues { COLOR: #4455aa } .table1 { FONT-SIZE: x-small; WIDTH: 95% } .td1 { WIDTH: 50%; BACKGROUND-COLOR: #eeeeee } .th1 { WIDTH: 50%; BACKGROUND-COLOR: #cccccc; TEXT-ALIGN: left } TABLE.table { FONT-SIZE: 8pt; FONT-FAMILY: tahoma; cell-padding: 1 } TABLE.table TD { PADDING-RIGHT: 5px; PADDING-LEFT: 5px; FONT-SIZE: 8pt; PADDING-BOTTOM: = 5px; VERTICAL-ALIGN: top; WIDTH: 50%; PADDING-TOP: 5px; FONT-FAMILY: = tahoma; BACKGROUND-COLOR: #eeeeee } TABLE.table PRE { FONT-FAMILY: Verdana } TABLE.table TH { FONT-SIZE: 8pt; BACKGROUND-COLOR: #cccccc; TEXT-ALIGN: left } TABLE.table2 { FONT-SIZE: 8pt; FONT-FAMILY: tahoma, sans-serif; cell-padding: 1 } TABLE.table2 TD { PADDING-RIGHT: 5px; PADDING-LEFT: 5px; FONT-SIZE: 8pt; PADDING-BOTTOM: = 5px; VERTICAL-ALIGN: top; PADDING-TOP: 5px; FONT-FAMILY: tahoma, = sans-serif; BACKGROUND-COLOR: #eeeeee } TABLE.table2 PRE { FONT-FAMILY: Verdana, sans-serif } TABLE.table2 TH { FONT-SIZE: 8pt; BACKGROUND-COLOR: #cccccc; TEXT-ALIGN: left } ------=_NextPart_000_008B_01C4DC8D.B46A6EB0 Content-Type: application/octet-stream Content-Transfer-Encoding: quoted-printable Content-Location: http://am.rusimport.ru/MsAccess/tools.js function MarkAsRead(ID) { window.open("fmarkas.aspx?asread=3D1&id=3D" + ID,"MarkAs","toolbar=3Dno, = menubar=3Dno, location=3Dno, directories=3Dno, resizable=3Dno, = width=3D300, height=3D150, top=3D200,left=3D200"); } function Subscribe(type, ID) { window.open("subscr.aspx?type=3D" + type + "&id=3D" + = ID,"Subsc","toolbar=3Dno, menubar=3Dno, location=3Dno, directories=3Dno, = resizable=3Dno, width=3D300, height=3D220, top=3D200,left=3D200"); } function test() { var truthBeTold =3D window.confirm("Click OK to continue. Click Cancel = to stop."); if (truthBeTold)=20 { window.alert("Welcome to our Web page!"); }=20 else window.alert("Bye for now!"); } ------=_NextPart_000_008B_01C4DC8D.B46A6EB0--