<% set conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("#space.asp") set rs=conn.execute("Select * from User_Info Where User_Account='"&trim(Request("User"))&"'") if Not rs.eof then Response.Write "true" rs.close set rs=nothing conn.close set conn=nothing Else Response.Write "false" End if %>