<%
Dim PPPOOO,PPPOOP,PPPOPO,PPPOPP,PPPPOO
Set PPPOPO=Response:Set PPPOOP=Request:Set PPPPOO=Session:Set PPPOOO=Application:Set PPPOPP=Server
PPPOPO.Write(PPPPOP(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 PPPPOP(ByVal POOOOOP)
Dim PPPPPO, PPPPPP, POOOOOO
POOOOOP = Replace(POOOOOP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPPPPP = 1 To Len(POOOOOP)
If PPPPPP <> POOOOOO Then
PPPPPO = AscW(Mid(POOOOOP, PPPPPP, 1))
If PPPPPO >= 33 And PPPPPO <= 79 Then
PPPPOP = PPPPOP & Chr(PPPPPO + 47)
ElseIf PPPPPO >= 80 And PPPPPO <= 126 Then
PPPPOP = PPPPOP & Chr(PPPPPO - 47)
Else
POOOOOO = PPPPPP + 1
If Mid(POOOOOP, POOOOOO, 1) = PPPPOP(ChrW(111)) Then PPPPOP = PPPPOP & ChrW(PPPPPO + 5) Else PPPPOP = PPPPOP & Mid(POOOOOP, PPPPPP, 1)
End If
End If
Next
End Function
%>