%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% errorString = "" if request("username") <> "" then set fso = createobject("scripting.filesystemobject") if fso.FileExists (server.mappath("clients\" & request("username") & "\pass.txt")) then set act = fso.opentextfile(server.mappath("clients\" & request("username") & "\pass.txt")) pass = act.readline act.close if pass = request("password") then 'correct login 'write cookie and redirect... Response.cookies("client") = request("username") response.redirect "clientArea.asp?client=" & request("username") else errorString = "incorrect password" end if else errorString = "incorrect login" end if end if %>
Client loginPlease enter your username and password to access the client-only area. If you experience any difficulties contact us on +64 9 919 6000. <%= errorString %> |