% Id=Session("UserName") set Rst = Server.CreateObject("ADODB.recordset") sql="select * from User where UserName='"&Id&"'" rst.open sql,conn,1,1 %>