<% name=request.querystring("name") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from [user] where username='"&name&"'" rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.write("OK") else response.write("Please select another") end if rs.close set rs=nothing %>