En son eklenen veri için max(id) kullanılabilir.

Alıntı
Set SonID = Conn.Execute("Select max(ID) From Dosyalar Where onay=1 and cat="&cat_id )

Response.write SonID(0)
Yazarak belirlenen özelliklerde son eklenen ID'yi bulabilirsiniz.