<%
Dim POPOPP,POPPOO,POPPOP,POPPPO,POPPPP
Set POPPOP=Response:Set POPPOO=Request:Set POPPPP=Session:Set POPOPP=Application:Set POPPPO=Server
Private Const PPOPPO =8
Private Const PPOPPP =4
Private Const PPPOOO =32
Private PPOOOP(30)
Private PPOOPO(30)
PPPOOP = Trim(POPPOO(PPOOOO(ChrW(112)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))))
If PPPOOP = PPOOOO(ChrW(114)&ChrW(61)&ChrW(54)&ChrW(50)&ChrW(67)) Then
POPPOP.Cookies(PPOOOO(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(95))) = ""
POPPOP.Cookies(PPOOOO(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(98))) = ""
POPPOP.Cookies(PPOOOO(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(99))) = ""
POPPOP.Cookies(PPOOOO(ChrW(50)&ChrW(67)&ChrW(67)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(100))) = ""
POPPOP.Redirect(PPOOOO(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)))
End IF
Function PPOOOO(ByVal PPPOPO)
Dim PPOOPP, PPOPOO, PPOPOP
PPPOPO = Replace(PPPOPO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPOPOO = 1 To Len(PPPOPO)
If PPOPOO <> PPOPOP Then
PPOOPP = AscW(Mid(PPPOPO, PPOPOO, 1))
If PPOOPP >= 33 And PPOOPP <= 79 Then
PPOOOO = PPOOOO & Chr(PPOOPP + 47)
ElseIf PPOOPP >= 80 And PPOOPP <= 126 Then
PPOOOO = PPOOOO & Chr(PPOOPP - 47)
Else
PPOPOP = PPOPOO + 1
If Mid(PPPOPO, PPOPOP, 1) = PPOOOO(ChrW(111)) Then PPOOOO = PPOOOO & ChrW(PPOOPP + 5) Else PPOOOO = PPOOOO & Mid(PPPOPO, PPOPOO, 1)
End If
End If
Next
End Function
%>