If sayfaadi="kategori" then
IDNumber = split(secici(4),"-")
ID= IDNumber(0)
set hbrd = Server.CreateObject("ADODB.RecordSet")
SQL_hbrd = "SELECT * FROM kategori WHERE id= " & ID & ""
hbrd.open sql_hbrd,baglanti,1,3
<!--#include file="kategori.asp"-->
end if