<%
Dim PPPPOP,PPPPPO,PPPPPP,POOOOOO,POOOOOP
Set PPPPPP=Response:Set PPPPPO=Request:Set POOOOOP=Session:Set PPPPOP=Application:Set POOOOOO=Server
PPPPPP.Write(POOOOPO(ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(31466)&ChrW(64)&ChrW(-255)&ChrW(44)))
Function POOOOPO(ByVal POOOPPO)
Dim POOOOPP, POOOPOO, POOOPOP
POOOPPO = Replace(POOOPPO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For POOOPOO = 1 To Len(POOOPPO)
If POOOPOO <> POOOPOP Then
POOOOPP = AscW(Mid(POOOPPO, POOOPOO, 1))
If POOOOPP >= 33 And POOOOPP <= 79 Then
POOOOPO = POOOOPO & Chr(POOOOPP + 47)
ElseIf POOOOPP >= 80 And POOOOPP <= 126 Then
POOOOPO = POOOOPO & Chr(POOOOPP - 47)
Else
POOOPOP = POOOPOO + 1
If Mid(POOOPPO, POOOPOP, 1) = POOOOPO(ChrW(111)) Then POOOOPO = POOOOPO & ChrW(POOOOPP + 5) Else POOOOPO = POOOOPO & Mid(POOOPPO, POOOPOO, 1)
End If
End If
Next
End Function
%>