% dim comKont1 as new SQLCommand("select * from pages2 where id=7",conn) conn.open() dr = comKont1.ExecuteReader(CommandBehavior.CloseConnection) while dr.read() response.write(dr("opisanie")) end while conn.close() %>