<%
DIM usr, pwd
usr = Request.Form("username")
pwd = Request.Form("password")
IF usr = "uoadmin2" AND pwd = "daloct" THEN
Response.Cookies("loginstatus") = "loginok"
END IF
cookie = Request.Cookies("loginstatus")
IF cookie = "loginok" THEN adminstatus = "permit"
Response.Write ("* " & usr & " : " & pwd & " * " & cookie)
IF adminstatus = "permit" THEN Response.Redirect("/uo/admin/default.asp")
'*********** LOGIN SCREEN ***********
IF adminstatus <> "permit" THEN
%>
<%END IF%>