'- Kategorideki İlan Adeti: ------------------------------------------------------------------
Function goster(ilanadet)
Set adet = Server.CreateObject( "ADODB.Recordset" )
adet.ActiveConnection = bag
adet.CursorType= adOpenStatic
adet.Open "Select * From ilanlar Where kategori_adi='"&klistele("kategori_id")&"' " &_
"AND ilan_starih > date() " &_
"AND onay = 'ONAYLI' "
goster = adet.recordcount
End Function