<% If Len(Session("UserName")) = 0 Then Response.Redirect "../process/sexp.asp" End If %> onLoad="SetFocus()"<%End If%>>

Dr. Akmal Hussain
	<% If Len(Request.Form("User")) = 0 AND Len(Request.Form("Auth")) = 0 Then %> <% End If Dim UserName, Password UserName = Request.Form("User") Password = Request.Form("Auth") If Len(UserName) = 0 AND Len(Password) = 0 Then %> " method="post" name="frmLogin"> <% Else Dim objRsAuth, strSQLAuth, accRole strSQLAuth = "SELECT UserLogin, UserPassword, FirstName, LastName, Email, Role FROM tblAdminLogin WHERE UserLogin = '"&Trim(UserName)&"' AND UserPassword='"&trim(Password)&"'" Set objRsAuth = objCon.Execute(strSQLAuth) If Not objRsAuth.EOF Then objRsAuth.MoveFirst accRole = objRsAuth("Role") %> <% End If End If %>  Account Manager for <%=UCase(Request.QueryString("usr"))%> - To access this area you need to login again. - This user authentication is for security reasons.  User    Password   <% If LCase(accRole) = "administrator" Then %> <% End If %>  User Name " readonly>  Password " readonly>  First Name ">  Last Name ">  Email ">  Account Role " <%If objRsAuth("Role") = "Administrator" Then Response.Write " readonly title='Administrator role cannot be updated' style='cursor:hand'"%>>  Create New Login