<% response.expires = 0 response.buffer = true dim db, strConnection Set db = Server.CreateObject("ADODB.Connection") strConnection = "driver={MySQL 3.22.32};server=localhost;uid=root;pwd=cobalt-mysql;database=css" db.open strConnection %> <% Dim strUsername, strPassword strUsername = Trim(Request.form("username")) strPassword = Trim(Request.form("password")) %> <% response.expires = 0 dim SQL, objRS, strMessage SQL = "SELECT username, password FROM adminrights WHERE username = '" &strUsername &"' and password = '" &strPassword &"';" set objRS = DB.Execute(SQL) If objRS.EOF Then strMessage = strMessage & "Username or Password incorrect" session("login") = "false" Else session("login") = "true" response.redirect("default.asp") End if db.close set objRS = nothing set db = nothing %> Administration Area
   
Admin Login Page


Username :

Password :