<%
'if Session("Permission") = "0" or Session("Permission") = "" Then
if Request.form("LoginID") = "" or Request.form("Password") = "" Then
%>
McClanahan & Holmes: Client Login
Secure Client Log-In
Please enter your Client Login Name and Password assigned to you by McClanahan and Holmes, LLP
<%
'Response.end
else
set dbCONN=Server.CreateObject("ADODB.Connection")
dbCONN.Open "mchcpa"
mySQL="SELECT LoginID FROM Security WHERE LoginID = '"&Request.form("LoginID")
mySQL=mySQL &"' AND Password = '"&Request.form("Password") &"'"
set RS = dbCONN.Execute(mySQL)
if RS.EOF THEN
Session("Permission") = "0"
'Response.write("Zero")
Response.redirect "invalid.asp"
else
Session("Permission") = "1"
'Response.write("One")
Response.redirect "emponly.asp"
end if
Response.END
RS.Close
end if
'end if
%>
