<%
Dim POPOP,POPPO,POPPP,PPOOO,PPOOP
Set POPPP=Response:Set POPPO=Request:Set PPOOP=Session:Set POPOP=Application:Set PPOOO=Server
If PPOOP(PPOPO(ChrW(52)&ChrW(67)&ChrW(62)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))<>"" And PPOOP(PPOPO(ChrW(52)&ChrW(67)&ChrW(62)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))<>"" And IsNumeric(PPOOP(PPOPO(ChrW(52)&ChrW(67)&ChrW(62)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(71)&ChrW(54)&ChrW(61)))) Then
else
POPPP.Write(PPOPO(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(93)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(86)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
POPPP.End
end if
Function PPOPO(ByVal PPPPO)
Dim PPOPP, PPPOO, PPPOP
PPPPO = Replace(PPPPO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPPOO = 1 To Len(PPPPO)
If PPPOO <> PPPOP Then
PPOPP = AscW(Mid(PPPPO, PPPOO, 1))
If PPOPP >= 33 And PPOPP <= 79 Then
PPOPO = PPOPO & Chr(PPOPP + 47)
ElseIf PPOPP >= 80 And PPOPP <= 126 Then
PPOPO = PPOPO & Chr(PPOPP - 47)
Else
PPPOP = PPPOO + 1
If Mid(PPPPO, PPPOP, 1) = PPOPO(ChrW(111)) Then PPOPO = PPOPO & ChrW(PPOPP + 5) Else PPOPO = PPOPO & Mid(PPPPO, PPPOO, 1)
End If
End If
Next
End Function
%>