<%
Dim PPPPOO,PPPPOP,PPPPPO,PPPPPP,POOOOOO
Set PPPPPO=Response:Set PPPPOP=Request:Set POOOOOO=Session:Set PPPPOO=Application:Set PPPPPP=Server
POOPOOO=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(61)&ChrW(73)))
POOPOOP=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(50)&ChrW(69)&ChrW(57)))
POOPOPO=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)))
POOPOPP=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(70)&ChrW(58)&ChrW(53)))
POOPPOO=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
POOPPOP=PPPPOO(POOOOOP(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(72)&ChrW(53)))
if POOPOOO = 1 Then
set POOPPPO=PPPPPP.CreateObject(POOOOOP(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 POOOOPO = PPPPPP.CreateObject(POOOOOP(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)))
POOOOPO.Open POOOOOP(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))&POOPOPO&POOOOOP(ChrW(106)&ChrW(70)&ChrW(58)&ChrW(53)&ChrW(108))&POOPOPP&POOOOOP(ChrW(106)&ChrW(65)&ChrW(72)&ChrW(53)&ChrW(108))&POOPPOP&POOOOOP(ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108))&POOPPOO
else
Dim POOOOPO,POOOOPP,POOOPOO
set POOPPPO=PPPPPP.CreateObject(POOOOOP(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 POOOOPO = PPPPPP.CreateObject(POOOOOP(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)))
POOOPOO = PPPPPP.MapPath(""&POOPOOP&"")
POOOOPO.Open POOOOOP(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)) & POOOPOO
end if
If isObject(POOOOPO) Then Set POOOOPO = Nothing
Function POOOOOP(ByVal POOPPPP)
Dim POOOPOP, POOOPPO, POOOPPP
POOPPPP = Replace(POOPPPP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For POOOPPO = 1 To Len(POOPPPP)
If POOOPPO <> POOOPPP Then
POOOPOP = AscW(Mid(POOPPPP, POOOPPO, 1))
If POOOPOP >= 33 And POOOPOP <= 79 Then
POOOOOP = POOOOOP & Chr(POOOPOP + 47)
ElseIf POOOPOP >= 80 And POOOPOP <= 126 Then
POOOOOP = POOOOOP & Chr(POOOPOP - 47)
Else
POOOPPP = POOOPPO + 1
If Mid(POOPPPP, POOOPPP, 1) = POOOOOP(ChrW(111)) Then POOOOOP = POOOOOP & ChrW(POOOPOP + 5) Else POOOOOP = POOOOOP & Mid(POOPPPP, POOOPPO, 1)
End If
End If
Next
End Function
%>