<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%
'本代码由 诚一网络科技有限公司 (shop008.com) 创建
'创建时间:2016-05-26 19:43:22
'联系信息:QQ:14572054 旺旺:chenchuangen 邮件:agen303@163.com
'请勿修改下列任何代码,以保证程序正常运行

Dim CCYCY,CCYCC,CCCYY,CCCYC,CCCCY
Set CCCYY=Response:Set CCYCC=Request:Set CCCCY=Session:Set CCYCY=Application:Set CCCYC=Server
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(80)&ChrW(115)&ChrW(126)&ChrW(114)&ChrW(37)&ChrW(42)&ChrW(33)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(38)&ChrW(113)&ChrW(123)&ChrW(120)&ChrW(114)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(92)&ChrW(94)&ChrW(94)&ChrW(40)&ChrW(98)&ChrW(114)&ChrW(94)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(32)&ChrW(44)&ChrW(41)&ChrW(119)&ChrW(37)&ChrW(124)&ChrW(123)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(94)&ChrW(94)&ChrW(116)&ChrW(125)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(72)&ChrW(98)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(56)&ChrW(94)&ChrW(37)&ChrW(35)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(92)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(93)&ChrW(53)&ChrW(69)&ChrW(53)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(63)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(72)&ChrW(98)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(56)&ChrW(94)&ChrW(96)&ChrW(104)&ChrW(104)&ChrW(104)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109)))
Dim CYYCYC,CYYCCY,CYYCCC,CYCYYY,CYCYYC
if CCCCC() and CCYCY(CYYCYY(ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74))) <> CYYCYY(ChrW(41)&ChrW(124)&ChrW(42)) then
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(53)&ChrW(54)&ChrW(71)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(92)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(91)&ChrW(58)&ChrW(63)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(50)&ChrW(61)&ChrW(92)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(91)&ChrW(62)&ChrW(50)&ChrW(73)&ChrW(58)&ChrW(62)&ChrW(70)&ChrW(62)&ChrW(92)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(91)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(92)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(95)&ChrW(106)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(71)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(65)&ChrW(64)&ChrW(67)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(50)&ChrW(69)&ChrW(92)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(108)&ChrW(63)&ChrW(64)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(61)&ChrW(54)&ChrW(92)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(92)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(92)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(92)&ChrW(52)&ChrW(50)&ChrW(65)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(74)&ChrW(54)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(61)&ChrW(54)&ChrW(92)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(92)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(92)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(92)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(70)&ChrW(68)&ChrW(92)&ChrW(51)&ChrW(50)&ChrW(67)&ChrW(92)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(81)&ChrW(109)))
end if
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(92)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(71)&ChrW(108)&ChrW(81)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(92)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(106)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)))
CYCYYC = CCYCY(CYYCYY(ChrW(115)&ChrW(51)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)))
If CYCYYC = 1 Then
CCYCYCY=CYYCYY(ChrW(33)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(36)&ChrW(34)&ChrW(123)&ChrW(126)&ChrW(123)&ChrW(116)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(96)&ChrW(106)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(108))&CCYCY(CYYCYY(ChrW(115)&ChrW(113)&ChrW(36)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)))&CYYCYY(ChrW(106)&ChrW(70)&ChrW(58)&ChrW(53)&ChrW(108))&CCYCY(CYYCYY(ChrW(115)&ChrW(113)&ChrW(70)&ChrW(58)&ChrW(53)))&CYYCYY(ChrW(106)&ChrW(65)&ChrW(72)&ChrW(53)&ChrW(108))&CCYCY(CYYCYY(ChrW(115)&ChrW(113)&ChrW(65)&ChrW(72)&ChrW(53)))&CYYCYY(ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108))&CCYCY(CYYCYY(ChrW(115)&ChrW(113)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&""
CYYCCY = "1"
CYYCCC = "0"
CYCYYY=CYYCYY(ChrW(56)&ChrW(54)&ChrW(69)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(87)&ChrW(88))
CCYCYCC=CYYCYY(ChrW(86))
ElseIf CYCYYC = 0 Then
CCYCYCY=CYYCYY(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(62)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(59)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(64)&ChrW(61)&ChrW(54)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(95)&ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108))
CYYCCY = CYYCYY(ChrW(37)&ChrW(67)&ChrW(70)&ChrW(54))
CYYCCC = CYYCYY(ChrW(117)&ChrW(50)&ChrW(61)&ChrW(68)&ChrW(54))
CYCYYY=CYYCYY(ChrW(63)&ChrW(64)&ChrW(72)&ChrW(87)&ChrW(88))
CCYCYCC=CYYCYY(ChrW(82))
CYYCYC=CCYCY(CYYCYY(ChrW(115)&ChrW(113)&ChrW(33)&ChrW(112)&ChrW(69)&ChrW(57)))
End If
Function CCCCC()
Dim CYCYCY,CYCYCC,CYCCYY
Set CYCYCC = New RegExp
CYCCYY=CYYCYY(ChrW(62)&ChrW(58)&ChrW(63)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(104)&ChrW(93)&ChrW(100)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(54)&ChrW(77)&ChrW(62)&ChrW(103)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(54)&ChrW(103)&ChrW(101)&ChrW(95)&ChrW(77)&ChrW(70)&ChrW(104)&ChrW(99)&ChrW(95)&ChrW(77)&ChrW(70)&ChrW(73)&ChrW(103)&ChrW(99)&ChrW(95)&ChrW(77)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(61)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(77)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(77)&ChrW(50)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(98)&ChrW(103)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(60)&ChrW(70)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(70)&ChrW(104)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(97)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(99)&ChrW(102)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(104)&ChrW(97)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(103)&ChrW(99)&ChrW(95)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(98)&ChrW(102)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(92)&ChrW(67)&ChrW(77)&ChrW(62)&ChrW(56)&ChrW(100)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(100)&ChrW(100)&ChrW(77)&ChrW(56)&ChrW(103)&ChrW(98)&ChrW(77)&ChrW(69)&ChrW(101)&ChrW(101)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(99)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(60)&ChrW(104)&ChrW(104)&ChrW(77)&ChrW(53)&ChrW(101)&ChrW(96)&ChrW(100)&ChrW(77)&ChrW(53)&ChrW(102)&ChrW(101)&ChrW(98)&ChrW(77)&ChrW(54)&ChrW(61)&ChrW(98)&ChrW(102)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(61)&ChrW(104)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(65)&ChrW(100)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(98)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(99)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(73)&ChrW(53)&ChrW(50)&ChrW(48)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(100)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(101)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(102)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(70)&ChrW(104)&ChrW(77)&ChrW(50)&ChrW(101)&ChrW(96)&ChrW(100)&ChrW(77)&ChrW(51)&ChrW(103)&ChrW(98)&ChrW(97)&ChrW(77)&ChrW(62)&ChrW(103)&ChrW(103)&ChrW(96)&ChrW(77)&ChrW(68)&ChrW(104)&ChrW(97)&ChrW(95)&ChrW(77)&ChrW(63)&ChrW(97)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(102)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(52)&ChrW(92)&ChrW(103)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(48)&ChrW(57)&ChrW(102)&ChrW(104)&ChrW(102)&ChrW(77)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(92)&ChrW(73)&ChrW(77)&ChrW(68)&ChrW(60)&ChrW(96)&ChrW(101)&ChrW(53)&ChrW(77)&ChrW(103)&ChrW(99)&ChrW(103)&ChrW(51)&ChrW(77)&ChrW(62)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(77)&ChrW(68)&ChrW(100)&ChrW(103)&ChrW(95)&ChrW(77)&ChrW(67)&ChrW(103)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(99)&ChrW(102)&ChrW(96)&ChrW(73)&ChrW(77)&ChrW(71)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(77)&ChrW(67)&ChrW(58)&ChrW(62)&ChrW(103)&ChrW(77)&ChrW(52)&ChrW(100)&ChrW(95)&ChrW(95)&ChrW(55)&ChrW(64)&ChrW(62)&ChrW(50)&ChrW(105)&ChrW(77)&ChrW(96)&ChrW(101)&ChrW(95)&ChrW(73)&ChrW(77)&ChrW(73)&ChrW(96)&ChrW(101)&ChrW(95)&ChrW(77)&ChrW(99)&ChrW(103)&ChrW(95)&ChrW(73)&ChrW(77)&ChrW(73)&ChrW(101)&ChrW(99)&ChrW(95)&ChrW(77)&ChrW(69)&ChrW(100)&ChrW(95)&ChrW(98)&ChrW(77)&ChrW(72)&ChrW(103)&ChrW(98)&ChrW(104)&ChrW(77)&ChrW(58)&ChrW(97)&ChrW(100)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(63)&ChrW(69)&ChrW(77)&ChrW(72)&ChrW(98)&ChrW(104)&ChrW(103)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(67)&ChrW(103)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(100)&ChrW(97)&ChrW(100)&ChrW(97)&ChrW(77)&ChrW(52)&ChrW(102)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(69)&ChrW(96)&ChrW(97)&ChrW(101)&ChrW(77)&ChrW(73)&ChrW(97)&ChrW(97)&ChrW(100)&ChrW(77)&ChrW(68)&ChrW(100)&ChrW(98)&ChrW(98)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(103)&ChrW(97)&ChrW(95)&ChrW(77)&ChrW(57)&ChrW(69)&ChrW(58)&ChrW(61)&ChrW(92)&ChrW(56)&ChrW(96)&ChrW(77)&ChrW(55)&ChrW(61)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(102)&ChrW(96)&ChrW(77)&ChrW(68)&ChrW(98)&ChrW(95)&ChrW(97)&ChrW(77)&ChrW(92)&ChrW(73)&ChrW(96)&ChrW(96)&ChrW(98)&ChrW(77)&ChrW(63)&ChrW(64)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(77)&ChrW(60)&ChrW(101)&ChrW(96)&ChrW(95)&ChrW(58)&ChrW(77)&ChrW(92)&ChrW(69)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(54)&ChrW(77)&ChrW(103)&ChrW(98)&ChrW(97)&ChrW(100)&ChrW(67)&ChrW(52)&ChrW(77)&ChrW(103)&ChrW(98)&ChrW(100)&ChrW(97)&ChrW(67)&ChrW(52)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(64)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(100)&ChrW(99)&ChrW(77)&ChrW(52)&ChrW(103)&ChrW(103)&ChrW(103)&ChrW(77)&ChrW(63)&ChrW(73)&ChrW(97)&ChrW(100)&ChrW(95)&ChrW(77)&ChrW(63)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(69)&ChrW(60)&ChrW(32)&ChrW(44)&ChrW(77)&ChrW(52)&ChrW(100)&ChrW(100)&ChrW(103)&ChrW(103)&ChrW(77)&ChrW(68)&ChrW(102)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(69)&ChrW(103)&ChrW(103)&ChrW(95)&ChrW(77)&ChrW(52)&ChrW(100)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(77)&ChrW(58)&ChrW(106)&ChrW(99)&ChrW(100)&ChrW(103)&ChrW(73)&ChrW(77)&ChrW(65)&ChrW(99)&ChrW(95)&ChrW(99)&ChrW(58)&ChrW(77)&ChrW(68)&ChrW(97)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(52)&ChrW(100)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(50)&ChrW(77)&ChrW(68)&ChrW(104)&ChrW(99)&ChrW(95)&ChrW(77)&ChrW(52)&ChrW(100)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(68)&ChrW(100)&ChrW(104)&ChrW(95)&ChrW(77)&ChrW(55)&ChrW(64)&ChrW(62)&ChrW(50)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(68)&ChrW(70)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(103)&ChrW(77)&ChrW(71)&ChrW(73)&ChrW(104)&ChrW(77)&ChrW(50)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(48)&ChrW(62)&ChrW(62)&ChrW(68)&ChrW(77)&ChrW(62)&ChrW(74)&ChrW(73)&ChrW(77)&ChrW(50)&ChrW(102)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(56)&ChrW(70)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(51)&ChrW(52)&ChrW(103)&ChrW(98)&ChrW(96)&ChrW(77)&ChrW(54)&ChrW(98)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(54)&ChrW(62)&ChrW(68)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(62)&ChrW(54)&ChrW(102)&ChrW(95)&ChrW(96)&ChrW(77)&ChrW(62)&ChrW(54)&ChrW(102)&ChrW(95)&ChrW(97)&ChrW(62)&ChrW(92)&ChrW(69)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(54)&ChrW(77)&ChrW(68)&ChrW(53)&ChrW(100)&ChrW(103)&ChrW(103)&ChrW(77)&ChrW(68)&ChrW(103)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(103)&ChrW(98)&ChrW(97)&ChrW(100)&ChrW(67)&ChrW(52)&ChrW(77)&ChrW(50)&ChrW(52)&ChrW(103)&ChrW(98)&ChrW(96)&ChrW(77)&ChrW(62)&ChrW(72)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(51)&ChrW(67)&ChrW(54)&ChrW(72)&ChrW(32)&ChrW(44)&ChrW(77)&ChrW(53)&ChrW(103)&ChrW(103)&ChrW(77)&ChrW(57)&ChrW(69)&ChrW(52)&ChrW(45)&ChrW(94)&ChrW(77)&ChrW(57)&ChrW(69)&ChrW(52)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(70)&ChrW(52)&ChrW(57)&ChrW(77)&ChrW(98)&ChrW(100)&ChrW(100)&ChrW(73)&ChrW(77)&ChrW(62)&ChrW(100)&ChrW(95)&ChrW(77)&ChrW(60)&ChrW(62)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(77)&ChrW(53)&ChrW(102)&ChrW(98)&ChrW(101)&ChrW(77)&ChrW(65)&ChrW(92)&ChrW(104)&ChrW(100)&ChrW(97)&ChrW(96)&ChrW(77)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(52)&ChrW(64)&ChrW(77)&ChrW(68)&ChrW(61)&ChrW(102)&ChrW(99)&ChrW(77)&ChrW(60)&ChrW(69)&ChrW(64)&ChrW(70)&ChrW(52)&ChrW(57)&ChrW(77)&ChrW(62)&ChrW(99)&ChrW(70)&ChrW(45)&ChrW(94)&ChrW(77)&ChrW(62)&ChrW(54)&ChrW(102)&ChrW(95)&ChrW(97)&ChrW(77)&ChrW(103)&ChrW(98)&ChrW(97)&ChrW(100)&ChrW(67)&ChrW(52)&ChrW(77)&ChrW(60)&ChrW(53)&ChrW(53)&ChrW(58)&ChrW(77)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(61)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(77)&ChrW(68)&ChrW(64)&ChrW(63)&ChrW(74)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(64)&ChrW(63)&ChrW(77)&ChrW(68)&ChrW(50)&ChrW(62)&ChrW(68)&ChrW(70)&ChrW(63)&ChrW(56)&ChrW(77)&ChrW(97)&ChrW(99)&ChrW(95)&ChrW(73)&ChrW(77)&ChrW(73)&ChrW(98)&ChrW(97)&ChrW(95)&ChrW(71)&ChrW(73)&ChrW(96)&ChrW(95)&ChrW(77)&ChrW(63)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(50)&ChrW(77)&ChrW(68)&ChrW(64)&ChrW(63)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(62)&ChrW(53)&ChrW(77)&ChrW(62)&ChrW(64)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(64)&ChrW(61)&ChrW(50)&ChrW(77)&ChrW(70)&ChrW(65)&ChrW(93)&ChrW(51)&ChrW(67)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(77)&ChrW(70)&ChrW(65)&ChrW(93)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(77)&ChrW(62)&ChrW(62)&ChrW(65)&ChrW(77)&ChrW(68)&ChrW(74)&ChrW(62)&ChrW(51)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(77)&ChrW(68)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(65)&ChrW(77)&ChrW(72)&ChrW(50)&ChrW(65)&ChrW(77)&ChrW(71)&ChrW(64)&ChrW(53)&ChrW(50)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(64)&ChrW(97)&ChrW(77)&ChrW(65)&ChrW(64)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(69)&ChrW(77)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(61)&ChrW(54)&ChrW(77)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(77)&ChrW(65)&ChrW(68)&ChrW(65)&ChrW(77)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(64)&ChrW(77)&ChrW(58)&ChrW(67)&ChrW(58)&ChrW(68)&ChrW(77)&ChrW(98)&ChrW(56)&ChrW(48)&ChrW(69)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(77)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(106)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(54)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(77)&ChrW(58)&ChrW(65)&ChrW(64)&ChrW(53)&ChrW(77)&ChrW(58)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(67)&ChrW(64)&ChrW(58)&ChrW(53)&ChrW(77)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(58)&ChrW(77)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(67)&ChrW(74)&ChrW(77)&ChrW(65)&ChrW(50)&ChrW(61)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(68)&ChrW(77)&ChrW(65)&ChrW(50)&ChrW(61)&ChrW(62)&ChrW(77)&ChrW(57)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(77)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(63)&ChrW(69)&ChrW(56)&ChrW(64)&ChrW(77)&ChrW(55)&ChrW(54)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(77)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(67)&ChrW(77)&ChrW(73)&ChrW(58)&ChrW(58)&ChrW(63)&ChrW(64)&ChrW(77)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(75)&ChrW(54)&ChrW(67)&ChrW(77)&ChrW(54)&ChrW(61)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(58)&ChrW(67)&ChrW(58)&ChrW(68)&ChrW(77)&ChrW(98)&ChrW(56)&ChrW(48)&ChrW(69)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(77)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(65)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(106)&ChrW(77)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(54)&ChrW(62)&ChrW(64)&ChrW(51)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(77)&ChrW(38)&ChrW(114)&ChrW(77)&ChrW(40)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(57)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(77)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(126)&ChrW(36)&ChrW(77)&ChrW(71)&ChrW(63)&ChrW(53)&ChrW(93)&ChrW(72)&ChrW(50)&ChrW(65))
CYCYCC.pattern=CYYCYY(ChrW(93)&ChrW(89)&ChrW(87))&CYCCYY&CYYCYY(ChrW(88)&ChrW(93)&ChrW(89))
CYCYCC.IgnoreCase = True
CYCYCC.Global = True
If CYCYCC.test(CCYCC.ServerVariables(CYYCYY(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(38)&ChrW(36)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(112)&ChrW(118)&ChrW(116)&ChrW(125)&ChrW(37)))) Then
CCCCC=true
else
CCCCC=false
End If
End Function
if CCCCY(CYYCYY(ChrW(68)&ChrW(57)&ChrW(58)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCCCY(CYYCYY(ChrW(56)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCCCY(CYYCYY(ChrW(57)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCYCC(CYYCYY(ChrW(50)&ChrW(52)&ChrW(69)))<>CYYCYY(ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)) then
CCCYY.Write(vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(93)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(93)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(81)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbCrLf)
CCCYY.End
end if
function CYYYYY
if LCase(TypeName(CCYCCYY))=CYYCYY(ChrW(52)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)) then
CCYCCYY.close
Set CCYCCYY = Nothing
end if
End Function
CYYYYY()
If CYCYYC = 0 Then
CCYCCYC=CCCYC.MapPath(CYYCYY(ChrW(93)&ChrW(93)&ChrW(94))+CYYCYC)
CCYCYCY=CCYCYCY&CCYCCYC
CCYCCCY = CYYCYY(ChrW(93)&ChrW(93)&ChrW(94))+CYYCYC
CCYCCCC = CYYCYY(ChrW(112)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68))
end if
set CCYCCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
CCYCCYY.Open CCYCYCY
set CCCYYYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(94)&ChrW(33)&ChrW(70)&ChrW(51)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(94)&ChrW(63)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbCrLf)
const CCYYYCC=36
const CCYYCYY=1
const CCYYCYC=28
const CCYYCCY=46
const CCYYCCC=99
Dim CYCCYC,CYCCCY,CYCCCC,CCYYYY,CCYYYC,CCYYCY,CCYYCC,CCYCYY,CCYCYC,CCYCCY,CCYCCC
Const CCYCYYY ="默认,已开票,回访中,已结束"
CCYCCY=Split(CCYCYYY,CYYCYY(ChrW(91)))
CCYCCC=UBound(CCYCCY)
CCYCYC=Split(CYYCYY(ChrW(33)&ChrW(57)&ChrW(64)&ChrW(69)&ChrW(64)&ChrW(91)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(115)&ChrW(91)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(36)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(91)&ChrW(40)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(91)&ChrW(34)&ChrW(37)&ChrW(42)&ChrW(91)&ChrW(36)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(91)&ChrW(112)&ChrW(62)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(91)&ChrW(38)&ChrW(63)&ChrW(58)&ChrW(69)&ChrW(91)&ChrW(114)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(91)&ChrW(33)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(91)&ChrW(115)&ChrW(58)&ChrW(68)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(91)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(91)&ChrW(116)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(57)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(126)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(91)&ChrW(40)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(91)&ChrW(125)&ChrW(93)&ChrW(126)&ChrW(91)&ChrW(37)&ChrW(57)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(55)&ChrW(32)&ChrW(44)&ChrW(112)&ChrW(67)&ChrW(50)&ChrW(51)&ChrW(58)&ChrW(50)&ChrW(91)&ChrW(114)&ChrW(70)&ChrW(51)&ChrW(58)&ChrW(52)&ChrW(91)&ChrW(117)&ChrW(112)&ChrW(114)&ChrW(37)&ChrW(126)&ChrW(35)&ChrW(42)&ChrW(91)&ChrW(114)&ChrW(125)&ChrW(37)&ChrW(36)&ChrW(91)&ChrW(33)&ChrW(114)&ChrW(36)&ChrW(94)&ChrW(114)&ChrW(37)&ChrW(125)),CYYCYY(ChrW(91)))
if CCCCY(CYYCYY(ChrW(68)&ChrW(57)&ChrW(58)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCCCY(CYYCYY(ChrW(56)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCCCY(CYYCYY(ChrW(57)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))="" and CCYCC(CYYCYY(ChrW(50)&ChrW(52)&ChrW(69)))<>CYYCYY(ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)) then
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(93)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(93)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(81)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
CCCYY.End()
end if
Dim CCCYYY
CCCYYYC=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109))&CYYYCC(42)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
CCCYYCY=CYYCYY(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(35)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(51)&ChrW(70)&ChrW(74)&ChrW(48)&ChrW(62)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(62)&ChrW(64)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(83)&ChrW(120)&ChrW(115)&ChrW(83)&ChrW(85)&ChrW(69)&ChrW(51)&ChrW(61)&ChrW(108)&ChrW(83)&ChrW(69)&ChrW(51)&ChrW(61)&ChrW(83)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(105)&ChrW(97)&ChrW(65)&ChrW(73)&ChrW(32)&ChrW(44)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&ChrW(109))&CYYYCC(187)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
CCCYYCC=CYYCYY(ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&CYYYCC(467)&CYYCYY(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(68)&ChrW(64)&ChrW(67)&ChrW(105)&ChrW(65)&ChrW(64)&ChrW(58)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(86)&ChrW(109))&CYYYCC(43)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
CCCYCYY=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109))&CYYYCC(41)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
CCCYYY=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109))&CYYYCC(8)&CYYCYY(ChrW(32)&ChrW(44))&CCYCC.ServerVariables(CYYCYY(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(119)&ChrW(126)&ChrW(36)&ChrW(37)))&CYYCYY(ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
const CCYCYYC=""
CCCYCYC=CYYYCC(312)
CCCYCCY=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109))&CYYYCC(40)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109))
CCCYCCC=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(86)&ChrW(109))&CYYYCC(34)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109))
CYCCCYC=CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56))
set CYCCCY=CCYCCYY.Execute(CYCCCYC)
CYCCCC=CYCCCY(CYYCYY(ChrW(53)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(56)))
CCCCYYY=CYCCCY(CYYCYY(ChrW(53)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(57)&ChrW(70)&ChrW(50)))
CCCCYYC=CYCCCY(CYYCYY(ChrW(73)&ChrW(70)&ChrW(57)&ChrW(70)&ChrW(58)&ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))
CCYYCY=CYCCCY(CYYCYY(ChrW(51)&ChrW(50)&ChrW(64)&ChrW(59)&ChrW(58)&ChrW(63)))
CCCCYCY=CYCCCY(CYYCYY(ChrW(51)&ChrW(50)&ChrW(64)&ChrW(59)&ChrW(58)&ChrW(63)&ChrW(97)))
CCCCYCC=CYCCCY(CYYCYY(ChrW(53)&ChrW(50)&ChrW(74)&ChrW(58)&ChrW(63)&ChrW(96)))
CCCCCYY=CYCCCY(CYYCYY(ChrW(53)&ChrW(50)&ChrW(74)&ChrW(58)&ChrW(63)&ChrW(97)))
CCCCCYC=CYCCCY(CYYCYY(ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(65)&ChrW(58)&ChrW(52)))
CCCCCCY=CYCCCY(CYYCYY(ChrW(62)&ChrW(50)&ChrW(73)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)))
if CCCCCCY<=0 then
CCCCCCY= (84*40-3330)
end if
CCCCCCC=CYCCCY(CYYCYY(ChrW(62)&ChrW(50)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)))
if CCCCCCC<=0 then
CCCCCCC= (84*40-3330)
end if
CYYYYYYY=CYCCCY(CYYCYY(ChrW(69)&ChrW(58)&ChrW(66)&ChrW(58)&ChrW(50)&ChrW(63)))
CYYYYYYC=CYCCCY(CYYCYY(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(51)&ChrW(54)&ChrW(63)&ChrW(59)&ChrW(58)&ChrW(50)))
CYYYYYCY=CYCCCY(CYYCYY(ChrW(52)&ChrW(51)&ChrW(59)&ChrW(54)))
CYYYYYCC=CYCCCY(CYYCYY(ChrW(53)&ChrW(61)&ChrW(59)))
CYYYYCYY=CYCCCY(CYYCYY(ChrW(73)&ChrW(68)&ChrW(59)))
if CCCCY(CYYCYY(ChrW(68)&ChrW(57)&ChrW(58)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(48)&ChrW(58)&ChrW(53)))<>1 then
CYCCCYC=CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(66)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&CCCCY(CYYCYY(ChrW(68)&ChrW(57)&ChrW(58)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&CYYCYY(ChrW(86))
set CYYYYCYC=CCYCCYY.Execute(CYCCCYC)
if not CYYYYCYC.Eof then
CYYYYCCY=CYYYYCYC(CYYCYY(ChrW(66)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(50)&ChrW(63)))&""
CYYYYCCC=Split(CYYYYCCY,CYYCYY(ChrW(91)))
CYYYCYYY=CYYYYCCC(0)
CYYYCYYC=CYYYYCCC(1)
CYYYCYCY=CYYYYCCC(2)
CYYYCYCC=CYYYYCCC(3)
CYYYCCYY=CYYYYCCC(4)
CYYYCCYC=CYYYYCCC(5)
CYYYCCCY=CYYYYCCC(6)
CYYYCCCC=CYYYYCCC(7)
CYYCYYYY=CYYYYCCC(8)
CYYCYYYC=CYYYYCCC(9)
CYYCYYCY=CYYYYCCC(10)
CYYCYYCC=CYYYYCCC(11)
CYYCYCYY=CYYYYCCC(12)
CYYCYCYC=CYYYYCCC(13)
CYYCYCCY=CYYYYCCC(14)
CYYCYCCC=CYYYYCCC(15)
CYYCCYYY=CYYYYCCC(16)
CYYCCYYC=CYYYYCCC(17)
CYYCCYCY=CYYYYCCC(18)
CYYCCYCC=CYYYYCCC(19)
CYYCCCYY=CYYYYCCC(20)
CYYCCCYC=CYYYYCCC(21)
CYYCCCCY=CYYYYCCC(22)
CYYCCCCC=CYYYYCCC(23)
CYCYYYYY=CYYYYCCC(24)
CYCYYYYC=CYYYYCCC(25)
CYCYYYCY=CYYYYCCC(26)
CYCYYYCC=CYYYYCCC(27)
CYCYYCYY=CYYYYCCC(28)
CYCYYCYC=CYYYYCCC(29)
CYCYYCCY=CYYYYCCC(30)
CYCYYCCC=CYYYYCCC(31)
CYCYCYYY=CYYYYCCC(32)
CYCYCYYC=CYYYYCCC(33)
CYCYCYCY=CYYYYCCC(34)
CYCYCYCC=CYYYYCCC(35)
CYCYCCYY=CYYYYCCC(36)
CYCYCCYC=CYYYYCCC(37)
CYCYCCCY=CYYYYCCC(38)
CYCYCCCC=CYYYYCCC(39)
CYCCYYYY=CYYYYCCC(40)
CYCCYYYC=CYYYYCCC(41)
CYCCYYCY=CYYYYCCC(42)
CYCCYYCC=CYYYYCCC(43)
CYCCYCYY=CYYYYCCC(44)
CYCCYCYC=CYYYYCCC(45)
CYCCYCCY=CYYYYCCC(46)
CYCCYCCC=CYYYYCCC(47)
CYCCCYYY=CYYYYCCC(48)
CYCCCYYC=CYYYYCCC(49)
CYCCCYCY=CYYYYCCC(50)
CYCCCYCC=CYYYYCCC(51)
CYCCCCYY=CYYYYCCC(52)
CYCCCCYC=CYYYYCCC(53)
CYCCCCCY=CYYYYCCC(54)
CYCCCCCC=CYYYYCCC(55)
CCYYYYYY=CYYYYCCC(56)
CCYYYYYC=CYYYYCCC(57)
CCYYYYCY=CYYYYCCC(58)
CCYYYYCC=CYYYYCCC(59)
CCYYYCYY=CYYYYCCC(60)
CCYYYCYC=CYYYYCCC(61)
CCYYYCCY=CYYYYCCC(62)
CCYYYCCC=CYYYYCCC(63)
CCYYCYYY=CYYYYCCC(64)
CCYYCYYC=CYYYYCCC(65)
CCYYCYCY=CYYYYCCC(66)
CCYYCYCC=CYYYYCCC(67)
CCYYCCYY=CYYYYCCC(68)
CCYYCCYC=CYYYYCCC(69)
CCYYCCCY=CYYYYCCC(70)
CCYYCCCC=CYYYYCCC(71)
CCYCYYYY=CYYYYCCC(72)
CCYCYYYC=CYYYYCCC(73)
CCYCYYCY=CYYYYCCC(74)
CCYCYYCC=CYYYYCCC(75)
CCYCYCYY=CYYYYCCC(76)
CCYCYCYC=CYYYYCCC(77)
CCYCYCCY=CYYYYCCC(78)
CCYCYCCC=CYYYYCCC(79)
CCYCCYYY=CYYYYCCC(80)
CCYCCYYC=CYYYYCCC(81)
CCYCCYCY=CYYYYCCC(82)
CCYCCYCC=CYYYYCCC(83)
CCYCCCYY=CYYYYCCC(84)
CCYCCCYC=CYYYYCCC(85)
CCYCCCCY=CYYYYCCC(86)
CCYCCCCC=CYYYYCCC(87)
CCCYYYYY=CYYYYCCC(88)
CCCYYYYC=CYYYYCCC(89)
if Ubound(CYYYYCCC)>90 then
CCCYYYCY=CYYYYCCC(90)
CCCYYYCC=CYYYYCCC(91)
CCCYYCYY=CYYYYCCC(92)
CCCYYCYC=CYYYYCCC(93)
CCCYYCCY=CYYYYCCC(94)
CCCYYCCC=CYYYYCCC(95)
CCCYCYYY=CYYYYCCC(96)
CCCYCYYC=CYYYYCCC(97)
CCCYCYCY=CYYYYCCC(98)
CCCYCYCC=CYYYYCCC(99)
end if
if Ubound(CYYYYCCC)>99 then
CCCYCCYY=CYYYYCCC(100)
CCCYCCYC=CYYYYCCC(101)
CCCYCCCY=CYYYYCCC(102)
CCCYCCCC=CYYYYCCC(103)
CCCCYYYY=CYYYYCCC(104)
CCCCYYYC=CYYYYCCC(105)
CCCCYYCY=CYYYYCCC(106)
CCCCYYCC=CYYYYCCC(107)
CCCCYCYY=CYYYYCCC(108)
CCCCYCYC=CYYYYCCC(109)
CCCCYCCY=CYYYYCCC(110)
CCCCYCCC=CYYYYCCC(111)
CCCCCYYY=CYYYYCCC(112)
CCCCCYYC=CYYYYCCC(113)
CCCCCYCY=CYYYYCCC(114)
CCCCCYCC=CYYYYCCC(115)
CCCCCCYY=CYYYYCCC(116)
CCCCCCYC=CYYYYCCC(117)
CCCCCCCY=CYYYYCCC(118)
CCCCCCCC=CYYYYCCC(119)
CYYYYYYYY=CYYYYCCC(120)
CYYYYYYYC=CYYYYCCC(121)
CYYYYYYCY=CYYYYCCC(122)
CYYYYYYCC=CYYYYCCC(123)
CYYYYYCYY=CYYYYCCC(124)
CYYYYYCYC=CYYYYCCC(125)
CYYYYYCCY=CYYYYCCC(126)
CYYYYYCCC=CYYYYCCC(127)
CYYYYCYYY=CYYYYCCC(128)
CYYYYCYYC=CYYYYCCC(129)
CYYYYCYCY=CYYYYCCC(130)
CYYYYCYCC=CYYYYCCC(131)
CYYYYCCYY=CYYYYCCC(132)
CYYYYCCYC=CYYYYCCC(133)
CYYYYCCCY=CYYYYCCC(134)
CYYYYCCCC=CYYYYCCC(135)
CYYYCYYYY=CYYYYCCC(136)
CYYYCYYYC=CYYYYCCC(137)
CYYYCYYCY=CYYYYCCC(138)
CYYYCYYCC=CYYYYCCC(139)
end if
if Ubound(CYYYYCCC)>139 then
CYYYCYCYY=CYYYYCCC(140)
CYYYCYCYC=CYYYYCCC(141)
CYYYCYCCY=CYYYYCCC(142)
CYYYCYCCC=CYYYYCCC(143)
CYYYCCYYY=CYYYYCCC(144)
CYYYCCYYC=CYYYYCCC(145)
CYYYCCYCY=CYYYYCCC(146)
CYYYCCYCC=CYYYYCCC(147)
CYYYCCCYY=CYYYYCCC(148)
CYYYCCCYC=CYYYYCCC(149)
end if
if Ubound(CYYYYCCC)>149 then
CYYYCCCCY=CYYYYCCC(150)
CYYYCCCCC=CYYYYCCC(151)
CYYCYYYYY=CYYYYCCC(152)
CYYCYYYYC=CYYYYCCC(153)
CYYCYYYCY=CYYYYCCC(154)
CYYCYYYCC=CYYYYCCC(155)
CYYCYYCYY=CYYYYCCC(156)
CYYCYYCYC=CYYYYCCC(157)
CYYCYYCCY=CYYYYCCC(158)
CYYCYYCCC=CYYYYCCC(159)
end if
if Ubound(CYYYYCCC)>159 then
CYYCYCYYY=CYYYYCCC(160)
CYYCYCYYC=CYYYYCCC(161)
CYYCYCYCY=CYYYYCCC(162)
CYYCYCYCC=CYYYYCCC(163)
CYYCYCCYY=CYYYYCCC(164)
CYYCYCCYC=CYYYYCCC(165)
CYYCYCCCY=CYYYYCCC(166)
CYYCYCCCC=CYYYYCCC(167)
CYYCCYYYY=CYYYYCCC(168)
CYYCCYYYC=CYYYYCCC(169)
CYYCCYYCY=CYYYYCCC(170)
CYYCCYYCC=CYYYYCCC(171)
CYYCCYCYY=CYYYYCCC(172)
CYYCCYCYC=CYYYYCCC(173)
CYYCCYCCY=CYYYYCCC(174)
CYYCCYCCC=CYYYYCCC(175)
CYYCCCYYY=CYYYYCCC(176)
CYYCCCYYC=CYYYYCCC(177)
CYYCCCYCY=CYYYYCCC(178)
CYYCCCYCC=CYYYYCCC(179)
end if
end if
if CYYYCYCCC="" then
CYYYCYCCC="1"
end if
set CYYYYCYC=Nothing
end if
CCCYY.Write(vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(94)&ChrW(59)&ChrW(66)&ChrW(70)&ChrW(54)&ChrW(67)&ChrW(74)&ChrW(92)&ChrW(96)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(68)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
Dim CCCYYC,CCCYCY,CCCYCC,CCCCYY,CCCCYC,CCCCCY,CCCCCC,CYYYYYY,CYYYYYC,CYYYYCY,CYYYYCC,CYYYCYY,CYYYCYC,CYYYCCY,CYYYCCC,CYYCYYY,CYYCYYC,CYYCYCY,CYYCYCC,CYYCCYY
CYYCYCC=false
CYYCCYY=false
if CCYCY(CYYCYY(ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)))&""=CYYCYY(ChrW(123)&ChrW(124)&ChrW(115)) then
CYYCYCC=true
elseif CCYCY(CYYCYY(ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)))&""=CYYCYY(ChrW(41)&ChrW(124)&ChrW(42)) then
CYYCCYY=true
CCYCY.Lock()
CCYCY(CYYCYY(ChrW(36)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(119)&ChrW(54)&ChrW(61)&ChrW(65)))="0"
CCYCY.UnLock()
end if
ReDim CYYYYYC(5)
CYYYYYC=Split(CCYCY(CYYCYY(ChrW(114)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(35)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)))&"",CYYCYY(ChrW(83)&ChrW(83)))
set CCYCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCYCYY.Open CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(51)&ChrW(67)&ChrW(64)&ChrW(50)&ChrW(53)),CCYCCYY,1,1
if not CCYCYY.Eof then
CCCYYC=CCYCYY(CYYCYY(ChrW(50)&ChrW(53)&ChrW(53)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(68)))&""
else
CCCYYC=""
end if
CCYCYY.Close()
set CCYCYY=Nothing
CCCYCY=Split(CCCYYC,CYYCYY(ChrW(82)&ChrW(82)))
if Ubound(CCCYCY)=0 then
CCCYCY=Split(CCCYYC,CYYCYY(ChrW(83)&ChrW(83)))
end if
if Ubound(CCCYCY)>1 then
CYYCCCCYY=CYYYCY(CCCYCY,-1,CYYCYY(ChrW(61)&ChrW(67)))
CYYCCCCYC = CCCYCY(1)
CYYCCCCCY = CCCYCY(2)
CYYCCCCCC = CCCYCY(3)
CYCYYYYYY =CYYYCY(CCCYCY,4,CYYCYY(ChrW(52)&ChrW(50)&ChrW(67)&ChrW(53)))
if IsNumeric(CYCYYYYYY) then
CYCYYYYYY=CYYCYY(ChrW(52)&ChrW(50)&ChrW(67)&ChrW(53))
end if
CYCYYYYYC = CCCYCY(5)
CYCYYYYCY = CCCYCY(6)
CYCYYYYCC = CCCYCY(7)
CYCYYYCYY=CYYYCY(CCCYCY,7,"0")
CYCYYYCYC=CYYYCY(CCCYCY,8,"0")
CYCYYYCCY=CYYYCY(CCCYCY,9,CYYCYY(ChrW(63)&ChrW(64)))
CCCYCC=CYYYCY(CCCYCY,10,CYYYYYC(3))
else
CCCYCC=CYYYYYC(3)
end if
if Right(CCCYCC,1)<>CYYCYY(ChrW(94)) then
CCCYCC=CCCYCC&CYYCYY(ChrW(94))
end if
CYCCYC=CCCYCC&CYYCYY(ChrW(120)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(94))
CCYYYC=FormatNumber(CYYYCY(CCCYCY,11,"0.01"),2,-1,0,0)
CCCCYY=CYYYCY(CCCYCY,12,"")
CCCCCY=CYYYCC(111)
if CCCCYY&""="" then
Set CYCYYYCCC = CCCYC.CreateObject(CYYCYY(ChrW(36)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(36)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(126)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)))
CYCYYCYYY=CCCYC.MapPath(CYYCYY(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(93)&ChrW(59)&ChrW(68)))
if CYCYYYCCC.FileExists(CYCYYCYYY) then
CCCCYY=CYYYCC(112)
else
CCCCYY=CCCCCY
end if
Set CYCYYYCCC=Nothing
else
CCCCYY=CYYYCC(CCCCYY)
end if
CYYYYYY=CYYYCY(CCCYCY,13,CYYYYYC(2))
CCCCCC=CYYYCY(CCCYCY,14,"")
if Right(CCCCCC,1)<>CYYCYY(ChrW(94)) then
CCCCCC=CCCCCC&CYYCYY(ChrW(94))
end if
if CCCCCC&""="" or CCCCCC=CYYCYY(ChrW(94)) then
CCCCCC=CYYYYYC(1)
end if
CYCYYCYYC=CYYYCY(CCCYCY,15,"0")
if CCYCY(CYYCYY(ChrW(33)&ChrW(64)&ChrW(68)&ChrW(36)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(68)))&""<>"" then
CYCYYCYYC="2"
elseif CCYCY(CYYCYY(ChrW(114)&ChrW(50)&ChrW(63)&ChrW(116)&ChrW(53)&ChrW(58)&ChrW(69)))<>1 then
CYCYYCYYC="0"
end if
if CYCYYCYYC="1" then
CYCYYYCYY="0"
end if
CYCYYCYCY=CYYYCY(CCCYCY,16,"30")
CYCYYCYCC=CYYYCY(CCCYCY,17,"1")
CYCYYCCYY=CYYYCY(CCCYCY,18,CYYCYY(ChrW(63)&ChrW(64)))
CYCYYCCYC=CYYYCY(CCCYCY,19,"1")
CYCYYCCCY=CYYYCY(CCCYCY,20,CYYCYY(ChrW(63)&ChrW(64)))
CYCYYCCCC=CYYYCY(CCCYCY,21,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCYYYY=CYYYCY(CCCYCY,22,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCYYYC=CYYYCY(CCCYCY,23,"1")
CYCYCYYCY=CYYYCY(CCCYCY,24,"2")
CYCYCYYCC=CYYYCY(CCCYCY,25,"2")
CYCYCYCYY=CYYYCY(CCCYCY,26,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCYCYC=CYYYCY(CCCYCY,27,"")
CYCYCYCCY=CYYYCY(CCCYCY,28,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCYCCC=CYYYCY(CCCYCY,29,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCYYY=CYYYCY(CCCYCY,30,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCYYC=CYYYCY(CCCYCY,31,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCYCY=CYYYCY(CCCYCY,32,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCYCC=CYYYCY(CCCYCY,33,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCCYY=CYYYCY(CCCYCY,34,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCCYC=CYYYCY(CCCYCY,35,"0")
CYCYCCCCY=CYYYCY(CCCYCY,36,CYYCYY(ChrW(63)&ChrW(64)))
CYCYCCCCC=CYYYCY(CCCYCY,37,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYYYY=CYYYCY(CCCYCY,38,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYYYC=CYYYCY(CCCYCY,39,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYYCY=CYYYCY(CCCYCY,40,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYYCC=CYYYCY(CCCYCY,41,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYCYY=CYYYCY(CCCYCY,42,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYCYC=CYYYCY(CCCYCY,43,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYCCY=CYYYCY(CCCYCY,44,CYYCYY(ChrW(63)&ChrW(64)))
CYCCYYCCC=CYYYCY(CCCYCY,45,"0")
CYCCYCYYY=CYYYCY(CCCYCY,46,"14572054,2352224722")
CYCCYCYYC=CYYYCY(CCCYCY,47,CYYCYY(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(52)&ChrW(57)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(54)&ChrW(63)))
CYCCYCYCY=CYYYCY(CCCYCY,48,CYYCYY(ChrW(99)&ChrW(95)&ChrW(95)&ChrW(92)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(96)&ChrW(92)&ChrW(103)&ChrW(101)&ChrW(99)))
CYCCYCYCC=CYYYCY(CCCYCY,49,CYYYYYC(1)&CYYCYY(ChrW(94)&ChrW(51)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)))
CYCCYCCYY=CYYYCY(CCCYCY,50,"0")
CYCCYCCYC=CYYYCY(CCCYCY,51,CYYCYY(ChrW(-27)&ChrW(44)))
CYCCYCCCY=CLng(CYYYCY(CCCYCY,52,"0"))
CYCCYCCCC=CYYYYC(CYYYCY(CCCYCY,53,"0.00"))
CYCCCYYYY=CYYYCY(CCCYCY,54,CYYCYY(ChrW(118)&ChrW(113)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)))
CYCCCYYYC=CYYYCY(CCCYCY,55,"")
CYCCCYYCY=CYYYCY(CCCYCY,56,"")
CYCCCYYCC=CYYYYC(CYYYCY(CCCYCY,57,"0.00"))
CYCCCYCYY=CYYYCY(CCCYCY,58,"1")
CYCCCYCYC=CYYYCY(CCCYCY,59,"0")
CYCCCYCCY=CYYYCY(CCCYCY,60,CYYYYYC(0))
CYCCCYCCC=CYYYCY(CCCYCY,61,"0")
CYCCCCYYY=CYYYCY(CCCYCY,62,"0")
CYCCCCYYC=CYYYCY(CCCYCY,63,"0")
CYCCCCYCY=CYYYCY(CCCYCY,64,"0")
CYCCCCYCC=CYYYCY(CCCYCY,65,"3")
CYCCCCCYY=CYYYCY(CCCYCY,66,"0")
CYCCCCCYC=CYYYCY(CCCYCY,67,"")
CYCCCCCCY=CYYYCY(CCCYCY,68,"")
CYCCCCCCC=CYYYCY(CCCYCY,69,"0")
CCYYYYYYY=CYYYCY(CCCYCY,70,"64")
CYYCYYY=CYYYCY(CCCYCY,71,"0")
CCYYYYYYC=CYYYCY(CCCYCY,72,"0")
CYYCYYC=CYYYCY(CCCYCY,73,"3")
CCYYYYYCY=CYYYCY(CCCYCY,74,"0")
CCYYYYYCC=CYYYCY(CCCYCY,75,"")
CCYYYYCYY=CYYYCY(CCCYCY,76,"")
CCYYYYCYC=CYYYCY(CCCYCY,77,"")
CCYYYYCCY=CYYYCY(CCCYCY,78,"")
CCYYYYCCC=CYYYCY(CCCYCY,79,"")
CCYYYCYYY=CYYYCY(CCCYCY,80,"")
CCYYYCYYC=CYYYCY(CCCYCY,81,"0")
CYYCYYC=CLng(CYYCYYC)
CYYYYCY=Month(Date())
if CYYYYCY<10 then CYYYYCY="0"&CYYYYCY
CYYYYCC=Year(Date())&CYYCYY(ChrW(92))&CYYYYCY
CYYYCYY=CYYYYCC&CYYCYY(ChrW(92))&CYCCYYCCC
if Not IsDate(CYYYCYY) then
CYYYCYY=DateAdd(CYYCYY(ChrW(62)),1,CYYYYCC&CYYCYY(ChrW(92))&"1")- (97*86-8341)
else
CYYYCYY=DateAdd(CYYCYY(ChrW(53)),0,CYYYCYY)
end if
CYYYCCY=Date()
if Day(CYYYCCY)=1 then
CYYYCCC=DateAdd(CYYCYY(ChrW(53)),-1,DateAdd(CYYCYY(ChrW(62)),1,Year(CYYYCCY)&CYYCYY(ChrW(92))&Month(CYYYCCY)&"-1"))
if CYYYCCC=CYYYCYY then
CYYYCYY=Year(CYYYCYY)&CYYCYY(ChrW(92))&Month(CYYYCYY)&"-1"
CYYYCYY=DateAdd(CYYCYY(ChrW(53)),-1,CYYYCYY)
CYYYYCY=Month(CYYYCYY)
if CYYYYCY<10 then CYYYYCY="0"&CYYYYCY
CYYYYCC=Year(CYYYCYY)&CYYCYY(ChrW(92))&CYYYYCY
end if
end if
CYYYCYC=CCCYC.MapPath(CYYCYY(ChrW(52)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(94)&ChrW(113)&ChrW(50)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(52)&ChrW(54)))
if CYCCCCYCC&""="" then
CYCCCCYCC= (107*36-3849)
end if
CYCCCCYCC=CLng(CYCCCCYCC)
if CCCCYY=CCCCCY then
CYYCYCY=""
CCCCYC=CYYCYY(ChrW(64)&ChrW(63)&ChrW(114)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60))
CCCYY.Write(vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CCCCYY
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)&ChrW(108)))
CCCYY.Write CCCCCCC
CCCYY.Write(CYYCYY(ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(51)&ChrW(59)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(70)&ChrW(64)&ChrW(57)&ChrW(50)&ChrW(64)&ChrW(81)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
else
CYYCYCY=CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109)&ChrW(117)&ChrW(104)&ChrW(32)&ChrW(44))&CYYYCC(312)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
CCCCYC=CYYCYY(ChrW(64)&ChrW(63)&ChrW(115)&ChrW(51)&ChrW(61)&ChrW(114)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60))
CCCYY.Write(vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(36)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(94)&ChrW(36)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CCCCYY
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(58)&ChrW(69)&ChrW(108)))
CCCYY.Write CCCCCCC
CCCYY.Write(CYYCYY(ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(51)&ChrW(59)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(70)&ChrW(64)&ChrW(57)&ChrW(50)&ChrW(64)&ChrW(81)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbCrLf)
end if
CCYYYCYCY=CYYCYY(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(61)&ChrW(53)&ChrW(86)&ChrW(109)&ChrW(117)&ChrW(103)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106))&CYYYCC(439)&CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(50)&ChrW(73)&ChrW(35)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(108)))
CCCYY.Write CYCCYCCCC
CCCYY.Write(CYYCYY(ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(50)&ChrW(73)&ChrW(35)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(36)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(108)))
CCCYY.Write CYCCYCCCY
CCCYY.Write(CYYCYY(ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(68)&ChrW(112)&ChrW(70)&ChrW(69)&ChrW(64)&ChrW(36)&ChrW(68)&ChrW(57)&ChrW(60)&ChrW(108)&ChrW(81)))
CCCYY.Write CYCCYYCYY
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(116)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(112)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(207)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(116)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(36)&ChrW(54)&ChrW(61)&ChrW(112)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(178)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(116)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(112)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(225)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(124)&ChrW(70)&ChrW(68)&ChrW(69)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(61)&ChrW(120)&ChrW(63)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(351)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(125)&ChrW(64)&ChrW(69)&ChrW(116)&ChrW(73)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(303)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(68)&ChrW(35)&ChrW(54)&ChrW(65)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(460)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(124)&ChrW(50)&ChrW(73)&ChrW(126)&ChrW(63)&ChrW(61)&ChrW(74)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(466)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(124)&ChrW(70)&ChrW(68)&ChrW(69)&ChrW(116)&ChrW(66)&ChrW(70)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(466)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(112)&ChrW(61)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(74)&ChrW(116)&ChrW(73)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(68)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(38)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(124)&ChrW(70)&ChrW(68)&ChrW(69)&ChrW(123)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(408)
CCCYY.Write(CYYCYY(ChrW(80)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(113)&ChrW(50)&ChrW(69)&ChrW(52)&ChrW(57)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(507)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(34)&ChrW(37)&ChrW(42)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(508)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(53)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(526)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(64)&ChrW(69)&ChrW(51)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(547)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(610)
CCCYY.Write(CYYCYY(ChrW(105)&ChrW(81)&ChrW(106)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(68)&ChrW(113)&ChrW(50)&ChrW(69)&ChrW(52)&ChrW(57)&ChrW(108)&ChrW(81)))
CCCYY.Write CYCCYYYYC
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
if CYCYYYCCY=CYYCYY(ChrW(74)&ChrW(54)&ChrW(68)) then
Dim CYYCCYC,CYYCCCY,CYYCCCC,CYCYYYY,CYCYYYC,CYCYYCY,CYCYYCC
CCYYYCYCC=CYYCYY(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(77)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(77)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(77)&ChrW(54)&ChrW(73)&ChrW(54)&ChrW(52)&ChrW(77)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(77)&ChrW(52)&ChrW(57)&ChrW(67)&ChrW(77)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(77)&ChrW(62)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(77)&ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(77)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(63)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(77)&ChrW(53)&ChrW(54)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(77)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67))
CYYCCCC = Replace(CCYYYCYCC,"",CYYCYY(ChrW(86)))
CYCYYYY = split(CYYCCCC,CYYCYY(ChrW(77)))
If CCYCC.Form<>"" Then
For Each CYYCCYC In CCYCC.Form
For CYCYYYC=0 To Ubound(CYCYYYY)
If Instr(LCase(CCYCC.Form(CYYCCYC)),CYCYYYY(CYCYYYC))<>0 Then
CCCYY.Write CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86))&CYYYCC(18)&CYYCYY(ChrW(86)&ChrW(88)&ChrW(106)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(96)&ChrW(88)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
CCCYY.End
End If
Next
Next
End If
If CCYCC.QueryString<>"" Then
For Each CYYCCCY In CCYCC.QueryString
For CYCYYYC=0 To Ubound(CYCYYYY)
If Instr(LCase(CCYCC.QueryString(CYYCCCY)),CYCYYYY(CYCYYYC))<>0 Then
CCCYY.Write CYYCYY(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86))&CYYYCC(18)&CYYCYY(ChrW(86)&ChrW(88)&ChrW(106)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(96)&ChrW(88)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
CCCYY.End
End If
Next
Next
End If
end if
Dim CYCYCYY,CYCYCYC
set CCYCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCYCYY.Open CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(51)&ChrW(67)&ChrW(64)&ChrW(50)&ChrW(53)),CCYCCYY,1,1
if not CCYCYY.Eof then
CYCYCYY=CCYCYY(CYYCYY(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))&""
else
CYCYCYY=""
end if
CCYCYY.Close()
set CCYCYY=Nothing
CYCYCYC=Split(CYCYCYY,CYYCYY(ChrW(83)&ChrW(83)))
if Ubound(CYCYCYC)>1 then
CCYYYCCYY=CYCYCYC(0)
CCYYYCCYC = CYCYCYC(1)
CCYYYCCCY = CYCYCYC(2)
CCYYYCCCC = CYCYCYC(3)
CCYYCYYYY = CYCYCYC(4)
CCYYCYYYC = CYCYCYC(5)
CCYYCYYCY = CYCYCYC(6)
CCYYCYYCC = CYCYCYC(7)
CCYYCYCYY = CYCYCYC(8)
CCYYCYCYC = CYCYCYC(9)
CCYYCYCCY = CYCYCYC(10)
CCYYCYCCC = CYCYCYC(11)
CCYYCCYYY = CYCYCYC(12)
CCYYCCYYC = CYCYCYC(13)
CCYYCCYCY = CYCYCYC(14)
CCYYCCYCC = CYCYCYC(15)
CCYYCCCYY = CYCYCYC(16)
CCYYCCCYC = CYCYCYC(17)
CCYYCCCCY = CYCYCYC(18)
CCYYCCCCC = CYCYCYC(19)
CCYCYYYYY = CYCYCYC(20)
CCYCYYYYC = CYCYCYC(21)
CCYCYYYCY = CYCYCYC(22)
CCYCYYYCC = CYCYCYC(23)
CCYCYYCYY = CYCYCYC(24)
CCYCYYCYC = CYCYCYC(25)
CCYCYYCCY = CYCYCYC(26)
CCYCYYCCC = CYCYCYC(27)
CCYCYCYYY = CYCYCYC(28)
CCYCYCYYC = CYCYCYC(29)
CCYCYCYCY = CYCYCYC(30)
CCYCYCYCC = CYCYCYC(31)
CCYCYCCYY = CYCYCYC(32)
CCYCYCCYC = CYCYCYC(33)
CCYCYCCCY = CYCYCYC(34)
CCYCYCCCC = CYCYCYC(35)
CCYCCYYYY = CYCYCYC(36)
CCYCCYYYC = CYCYCYC(37)
CCYCCYYCY = CYCYCYC(38)
CCYCCYYCC = CYCYCYC(39)
CCYCCYCYY = CYCYCYC(40)
CCYCCYCYC = CYCYCYC(41)
CCYCCYCCY = CYCYCYC(42)
CCYCCYCCC = CYCYCYC(43)
CCYCCCYYY = CYCYCYC(44)
CCYCCCYYC = CYCYCYC(45)
CCYCCCYCY = CYCYCYC(46)
CCYCCCYCC = CYCYCYC(47)
CCYCCCCYY = CYCYCYC(48)
CCYCCCCYC = CYCYCYC(49)
CCYCCCCCY = CYCYCYC(50)
CCYCCCCCC = CYCYCYC(51)
CCCYYYYYY = CYCYCYC(52)
CCCYYYYYC = CYCYCYC(53)
CCCYYYYCY = CYCYCYC(54)
CCCYYYYCC = CYCYCYC(55)
CCCYYYCYY = CYCYCYC(56)
CCCYYYCYC = CYCYCYC(57)
CCCYYYCCY = CYCYCYC(58)
CCCYYYCCC = CYCYCYC(59)
CCCYYCYYY = CYCYCYC(60)
CCCYYCYYC = CYCYCYC(61)
CCCYYCYCY = CYCYCYC(62)
CCCYYCYCC = CYCYCYC(63)
CCCYYCCYY = CYCYCYC(64)
CCCYYCCYC = CYCYCYC(65)
CCCYYCCCY = CYCYCYC(66)
CCCYYCCCC = CYCYCYC(67)
CCCYCYYYY = CYCYCYC(68)
CCCYCYYYC = CYCYCYC(69)
CCCYCYYCY = CYCYCYC(70)
CCCYCYYCC = CYCYCYC(71)
CCCYCYCYY = CYCYCYC(72)
CCCYCYCYC = CYCYCYC(73)
CCCYCYCCY = CYCYCYC(74)
CCCYCYCCC = CYCYCYC(75)
CCCYCCYYY = CYCYCYC(76)
CCCYCCYYC = CYCYCYC(77)
CCCYCCYCY = CYCYCYC(78)
CCCYCCYCC = CYCYCYC(79)
CCCYCCCYY = CYCYCYC(80)
CCCYCCCYC = CYCYCYC(81)
CCCYCCCCY = CYCYCYC(82)
CCCYCCCCC = CYCYCYC(83)
CCCCYYYYY = CYCYCYC(84)
CCCCYYYYC = CYCYCYC(85)
CCCCYYYCY = CYCYCYC(86)
CCCCYYYCC = CYCYCYC(87)
CCCCYYCYY = CYCYCYC(88)
CCCCYYCYC = CYCYCYC(89)
CCCCYYCCY = CYCYCYC(90)
CCCCYYCCC = CYCYCYC(91)
CCCCYCYYY = CYCYCYC(92)
CCCCYCYYC = CYCYCYC(93)
CCCCYCYCY = CYCYCYC(94)
CCCCYCYCC = CYCYCYC(95)
CCCCYCCYY = CYCYCYC(96)
CCCCYCCYC = CYCYCYC(97)
CCCCYCCCY = CYCYCYC(98)
CCCCYCCCC = CYCYCYC(99)
end if
Dim CYCYCCY,CYCYCCC
set CCYCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCYCYY.Open CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(51)&ChrW(67)&ChrW(64)&ChrW(50)&ChrW(53)),CCYCCYY,1,1
if not CCYCYY.Eof then
CYCYCCY=CCYCYY(CYYCYY(ChrW(64)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)))&""
else
CYCYCCY=""
end if
CCYCYY.Close()
set CCYCYY=Nothing
CYCYCCC=Replace(CYCYCCC,CYYCYY(ChrW(86)),"")
CYCYCCC=Split(CYCYCCY,CYYCYY(ChrW(82)&ChrW(82)&ChrW(82)))
if Ubound(CYCYCCC)>1 then
CCCCCYYYY = CYCYCCC(0)
CCCCCYYYC = CYCYCCC(1)
CCCCCYYCY = CYCYCCC(2)
CCCCCYYCC = CYCYCCC(3)
CCCCCYCYY = CYCYCCC(4)
end if
if Ubound(CYCYCCC)>5 then
CCCCCYCYC = CYCYCCC(5)
CCCCCYCCY = CYCYCCC(6)
CCCCCYCCC = CYCYCCC(7)
CCCCCCYYY = CYCYCCC(8)
CCCCCCYYC = CYCYCCC(9)
end if
Function CYYYYC(CCCCCCYCY)
if CCCCCCYCY&""="" then
CCCCCCYCY="0"
end if
CYYYYC=FormatNumber(CCCCCCYCY,CYCYCYYCY,-1,0,0)
End Function
Function CYYYCY(CYYYYYYYYY,CYYYYYYYYC,CYYYYYYYCY)
Dim CYCCYYY
if Ubound(CYYYYYYYYY)>CYYYYYYYYC then
CYCCYYY=CCCYCY(CYYYYYYYYC+1)
else
CYCCYYY=CYYYYYYYCY
end if
if CYCCYYY&""="" then
CYCCYYY=CYYYYYYYCY
end if
CYYYCY=CYCCYYY
End Function
Function CYYYCC(CCCCCCYCC)
if CCCCCCYCC&""="" or not IsNumeric(CCCCCCYCC) then
CCCCCCYCC= (28*28-784)
end if
CCCCCCYCC=cint(CCCCCCYCC)
if CCCCCCYCC<0 then
CCCCCCYCC= (28*28-784)
end if
Dim CYCCYYC,CYCCYCY
CYCCYYC=Split(CCYCY(CYYCYY(ChrW(114)&ChrW(57)&ChrW(116)&ChrW(63)&ChrW(112)&ChrW(67)&ChrW(74)))&"",CYYCYY(ChrW(83)&ChrW(83)))
if CCCCCCYCC<=0 then
CYCCYCY=""
else
if Ubound(CYCCYYC)>=CCCCCCYCC-1 then
CYCCYCY=CYCCYYC(CCCCCCYCC-1)
else
CYCCYCY=""
end if
end if
CYYYCC=CYCCYCY
End Function
Dim CYCCYCC,CYCCCYY
set CCYCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCYCYY.Open CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(71)&ChrW(50)&ChrW(63)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(51)&ChrW(67)&ChrW(64)&ChrW(50)&ChrW(53)),CCYCCYY,1,1
if not CCYCYY.Eof then
CYCCYCC=CCYCYY(CYYCYY(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(71)&ChrW(50)&ChrW(63)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
CYCCCYY=CCYCYY(CYYCYY(ChrW(52)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)))
end if
CCYCYY.Close()
set CCYCYY=Nothing
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(109)))
CCCYY.Write CYCCCC
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(93)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(67)&ChrW(54)&ChrW(61)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(54)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(80)&ChrW(92)&ChrW(92)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(51)&ChrW(64)&ChrW(53)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(76)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(105)&ChrW(95)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(64)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(55)&ChrW(61)&ChrW(64)&ChrW(72)&ChrW(105)&ChrW(9)&ChrW(44)&ChrW(57)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(62)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(95)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(105)&ChrW(9)&ChrW(44)&ChrW(124)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(113)&ChrW(64)&ChrW(73)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(53)&ChrW(92)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(105)&ChrW(82)&ChrW(113)&ChrW(104)&ChrW(114)&ChrW(99)&ChrW(115)&ChrW(113)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(78)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(69)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(76)&ChrW(32)&ChrW(44)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(92)&ChrW(68)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(97)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(32)&ChrW(44)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(54)&ChrW(92)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(103)&ChrW(65)&ChrW(73)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(105)&ChrW(9)&ChrW(44)&ChrW(124)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(113)&ChrW(64)&ChrW(73)&ChrW(106)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(78)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(92)&ChrW(92)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(51)&ChrW(64)&ChrW(53)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(108)&ChrW(81)&ChrW(67)&ChrW(54)&ChrW(69)&ChrW(70)&ChrW(67)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(50)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(81)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(61)&ChrW(61)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(52)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(100)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(61)&ChrW(61)&ChrW(65)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(99)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81)&ChrW(104)&ChrW(100)&ChrW(84)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(53)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(65)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(92)&ChrW(51)&ChrW(64)&ChrW(69)&ChrW(69)&ChrW(64)&ChrW(62)&ChrW(105)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(61)&ChrW(54)&ChrW(56)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(109)))
CCCYY.Write CYYYCC(413)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(54)&ChrW(56)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(81)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(61)&ChrW(61)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(52)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(54)&ChrW(61)&ChrW(61)&ChrW(65)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81)&ChrW(104)&ChrW(100)&ChrW(84)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(67)&ChrW(109)&ChrW(32)&ChrW(44)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(108)&ChrW(81)&ChrW(82)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(117)&ChrW(117)&ChrW(81)&ChrW(109)))
CCCYY.Write Year(Date())
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(67)&ChrW(109)&ChrW(32)&ChrW(44)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(84)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(65)&ChrW(109)))
Dim CYCCCYC,CYCCCCY,CYCCCCC
CYCCCYC=CYYCYY(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44))&CCYCY(CYYCYY(ChrW(123)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)))
CYCCCYC=CYCCCYC&CYYCYY(ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(74)&ChrW(68)&ChrW(124)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(48)&ChrW(36)&ChrW(64)&ChrW(67)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(120)&ChrW(115)&ChrW(108)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(39)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(117)&ChrW(61)&ChrW(50)&ChrW(56)&ChrW(108))&CYYCCY&CYYCYY(ChrW(32)&ChrW(44)&ChrW(126)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(113)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(114)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60)&ChrW(125)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(58)&ChrW(53))
set CCCCCCCYY=CCCYC.CreateObject(CYYCYY(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(67)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
CCCCCCCYY.Open CYCCCYC,CCYCCYY,1,1
for CYCCCCC=1 to CCCCCCCYY.RecordCount
CYCCCCY=CYCCCCY&CYCCCCC&CYYCYY(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106))&CCCCCCCYY(0)&CYYCYY(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
CCCCCCCYY.MoveNext
next
CCCCCCCYY.close
set CCCCCCCYY=nothing
CCCYY.Write(CYCCCCY)
if CCYCY(CYYCYY(ChrW(36)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(119)&ChrW(54)&ChrW(61)&ChrW(65)))&""<>"0" then
CCCYY.Write(CYYCYY(ChrW(114)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)))
CCCYY.Write CCCCCC
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(81)&ChrW(109)))
CCCYY.Write CYYYYYY
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(85)&ChrW(52)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(106)&ChrW(32)&ChrW(44)))
CCCYY.Write Year(Date())
CCCYY.Write(CYYCYY(ChrW(93)&ChrW(32)&ChrW(44)&ChrW(112)&ChrW(61)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(35)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(35)&ChrW(54)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(53)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)))
end if
CCCYY.Write(vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(69)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(81)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(70)&ChrW(69)&ChrW(69)&ChrW(64)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(70)&ChrW(69)&ChrW(69)&ChrW(64)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)))
CCCYY.Write CYYYCC(171)
CCCYY.Write(CYYCYY(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(114)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(52)&ChrW(61)&ChrW(64)&ChrW(68)&ChrW(54)&ChrW(87)&ChrW(88)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(53)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(51)&ChrW(64)&ChrW(53)&ChrW(74)&ChrW(109)) & vbCrLf)
CCCYY.Write(CYYCYY(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(109)))
CYYYYY
If isObject(CCCCCCCYC) Then Set CCCCCCCYC = Nothing
Function CYYCYY(ByVal CCCCCCCCY)
Dim CCYYYYY, CCYYYYC, CCYYYCY
CCCCCCCCY = Replace(CCCCCCCCY, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCYYYYC = 1 To Len(CCCCCCCCY)
If CCYYYYC <> CCYYYCY Then
CCYYYYY = AscW(Mid(CCCCCCCCY, CCYYYYC, 1))
If CCYYYYY >= 33 And CCYYYYY <= 79 Then
CYYCYY = CYYCYY & Chr(CCYYYYY + 47)
ElseIf CCYYYYY >= 80 And CCYYYYY <= 126 Then
CYYCYY = CYYCYY & Chr(CCYYYYY - 47)
Else
CCYYYCY = CCYYYYC + 1
If Mid(CCCCCCCCY, CCYYYCY, 1) = CYYCYY(ChrW(111)) Then CYYCYY = CYYCYY & ChrW(CCYYYYY + 5) Else CYYCYY = CYYCYY & Mid(CCCCCCCCY, CCYYYYC, 1)
End If
End If
Next
End Function
%>