document.write("<p><font face=Verdana color=#FFFFFF>Please enter username : <input type=text name=username size=20></p>")
document.write("<p>Please enter Password : <input type=password name=psw1 size=20></p>")
document.write("<p><input type=submit value=Confirm name=B3>")
document.write("<input type=submit value=Clear name=B4></p>")
sub B3_OnClick
rem user (username,password)
rem usrs (number of users in database)
dim user(200,2), usrs, usname, psw, fnd, dt
dt="alsager"
usname=username.value:psw=psw1.value
user(1,1)="admin":user(1,2)="admin"
usrs=1
if psw1.value="" or username.value="" then fnd=3:alert "Requires username and password"
for u=1 to usrs
if user(u,1)=usname and user(u,2)=psw then fnd=1: window.navigate("admin/admin.htm")
next
if usname=dt and psw="alsager" then fnd=1:window.navigate("admin/admin.htm") ' back door tempory access
if fnd=0 then window.navigate("wrong.htm")
End Sub
sub B4_OnClick
psw1.value="":username.value=""
End Sub