sql = "SELECT * FROM konu where kategori = " & hbrid & " order by soncevaplanma"
Set hbr = Server.CreateObject("ADODB.Recordset")
hbr.Open sql, bag, 1, 3