<% If Request.querystring("mode") = "suspend" then Response.Write ("Username is currently suspended ") End If If Request.querystring("mode") = "once" then Response.Write ("Username is currently logged in ") End If If Request.querystring("mode") = "invalid" then Response.Write ("Invalid username or password. Please try again. ") End If %>   Welcome to our Online Exams! <% 'Create an ADO recordset object Set rsLostPassword = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT lostpassword FROM tblAdmin" 'Open the recordset with the SQL query rsLostPassword.Open strSQL, adoCon If rsLostPassword("lostpassword") = 1 then Response.Write ("") End If Set rsLostPassword = Nothing %> <% 'Create an ADO recordset object Set rsRegister = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT register FROM tblAdmin" 'Open the recordset with the SQL query rsRegister.Open strSQL, adoCon If rsRegister("register") = 1 then Response.write ("") End If Set rsRegister = Nothing Set adoCon = Nothing %> User name: Password:     Get lost password  here   Register for an account  here