<%@ Language="VBSCRIPT" %>

<%

	p_username=Request("p_username")
	p_password=Request("p_password")
	
	set SecDB = server.CreateObject("adodb.connection")
	source = "Provider=Microsoft Access Driver; Data Source=D:\iis\webroot\CG456\Instructor\database\demo2.mdb"
	SecDB.Open source
	
	theSQL = "SELECT * FROM users WHERE username='"&p_username&"'"
	set userSet= SecDB.Execute (theSQL)
	
	if userSet.EOF then
		Response.Write ("You fail....")
		else
		Response.Write ("You're in")
	end if

	
	SecDB.Close
	set SecDB = Nothing
	
	%>