Class Webuser
Public property get islogin (username) if username <> "" "" "
Islogin = true
Else
Islogin = false
JSTZ "Please log in first!", "../ login.htm"
END IF
End Property
Public property Get IsManager (POP) IF ISNUMERIC (POP) and pop <> "" "
Ismanager = true
IF pop <> 0 THEN
JSTZ "Sorry, this feature only has administrators to use!", "../ look.asp"
END IF
Else
Ismanager = false
JSTZ "Please log in first!", "../ login.htm"
END IF
End Propertynd Class
Set auser = newwebuser
auser.islogin (username)
