<%
username = TRIM( Request( "username" ) )
password = TRIM( Request( "password" ) )
register = TRIM( Request( "register" ) )
error = TRIM( Request( "error" ) )
Set Con = Server.CreateObject( "ADODB.Connection" )
set con = server.CreateObject ("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("admins\project.mdb")
IF register <> "" AND error = "" THEN
addclient
END IF
clientID = checkpassword( username, password, Con )
IF clientID > 0 THEN
%>
<% ELSE %>
<%
END IF
%>