%@ Language=VBScript %> <% dim userid dim password dim logmsg logmsg = "" if session("logvalid") <> true then session("logvalid") = false 'following could be done with database or other source of userids and pw if request.form("userid") = "demo" and request.form("password") = "1234" then session("logvalid") = true logmsg = "Login Successful" elseif request.form("subpass") = "" then logmsg = "Please Logon to the Site" else logmsg = "Login Failed, try again..." end if %>
Password Demo
<% response.write(logmsg) %>
Go to other pages in the site.