<%
Dim POPPP,PPOOO,PPOOP,PPOPO,PPOPP
Set PPOOP=Response:Set PPOOO=Request:Set PPOPP=Session:Set POPPP=Application:Set PPOPO=Server
POOOPP=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(61)&ChrW(73)))
POOPOO=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(50)&ChrW(69)&ChrW(57)))
POOPOP=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)))
POOPPO=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(70)&ChrW(58)&ChrW(53)))
POOPPP=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
POPOOO=POPPP(PPPOO(ChrW(53)&ChrW(51)&ChrW(65)&ChrW(72)&ChrW(53)))
if POOOPP = 1 Then
set POPOOP=PPOPO.CreateObject(PPPOO(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 PPPOP = PPOPO.CreateObject(PPPOO(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)))
PPPOP.Open PPPOO(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))&POOPOP&PPPOO(ChrW(106)&ChrW(70)&ChrW(58)&ChrW(53)&ChrW(108))&POOPPO&PPPOO(ChrW(106)&ChrW(65)&ChrW(72)&ChrW(53)&ChrW(108))&POPOOO&PPPOO(ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108))&POOPPP
else
Dim PPPOP,PPPPO,PPPPP
set POPOOP=PPOPO.CreateObject(PPPOO(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 PPPOP = PPOPO.CreateObject(PPPOO(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)))
PPPPP = PPOPO.MapPath(""&POOPOO&"")
PPPOP.Open PPPOO(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)) & PPPPP
end if
PPOOP.ContentType=PPPOO(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(73)&ChrW(62)&ChrW(61))
POPOPO= Replace(Trim(PPOOO(PPPOO(ChrW(58)&ChrW(69)&ChrW(54)&ChrW(62)))),PPPOO(ChrW(86)),"")
if POPOPO<>"" then
POPOPP=PPPOO(ChrW(68)&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(95)&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(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(72)&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(61)&ChrW(58)&ChrW(60)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(86)&ChrW(84))&POPOPO&PPPOO(ChrW(84)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52))
POPOOP.open POPOPP,PPPOP,1,1
str=PPPOO(ChrW(107)&ChrW(110)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(63)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(81)&ChrW(110)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(107)&ChrW(67)&ChrW(64)&ChrW(64)&ChrW(69)&ChrW(109))&vbnewline
If POPOOP.RecordCount = 0 Then
str=str&PPPOO(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(81)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(69)&ChrW(54)&ChrW(73)&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(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(107)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(109))&vbnewline
else
str=str&PPPOO(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(81)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(109)&ChrW(20846)&ChrW(64)&ChrW(-27160)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(107)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(109))&vbnewline
end if
If POPOOP.eof Then
Else
POOOOP= (27*83-2240)
Do While Not POPOOP.eof
str=str&PPPOO(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81))&POOOOP&PPPOO(ChrW(81)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(109))&POPOOP(0)&PPPOO(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(109))&vbnewline
str=str&PPPOO(ChrW(107)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(109))&vbnewline
POOOOP=POOOOP+ (27*83-2240)
POPOOP.movenext
loop
End If
str=str&PPPOO(ChrW(107)&ChrW(94)&ChrW(67)&ChrW(64)&ChrW(64)&ChrW(69)&ChrW(109))
POPOOP.close
PPOOP.write str
end if
If isObject(PPPOP) Then Set PPPOP = Nothing
Function PPPOO(ByVal POPPOP)
Dim POOOOO, POOOOP, POOOPO
POPPOP = Replace(POPPOP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For POOOOP = 1 To Len(POPPOP)
If POOOOP <> POOOPO Then
POOOOO = AscW(Mid(POPPOP, POOOOP, 1))
If POOOOO >= 33 And POOOOO <= 79 Then
PPPOO = PPPOO & Chr(POOOOO + 47)
ElseIf POOOOO >= 80 And POOOOO <= 126 Then
PPPOO = PPPOO & Chr(POOOOO - 47)
Else
POOOPO = POOOOP + 1
If Mid(POPPOP, POOOPO, 1) = PPPOO(ChrW(111)) Then PPPOO = PPPOO & ChrW(POOOOO + 5) Else PPPOO = PPPOO & Mid(POPPOP, POOOOP, 1)
End If
End If
Next
End Function
%>