<%
'MySQL tarih ve saat formatlama
function mysqltarihsaat(varDate)
if day(varDate) < 10 then
dd = "0" & day(varDate)
else
dd = day(varDate)
end if

if month(varDate) < 10 then
mm = "0" & month(varDate)
else
mm = month(varDate)
end if

if hour(varDate) < 10 then
hh = "0" & hour(varDate)
else
hh = hour(varDate)
end if

if minute(varDate) < 10 then
mi = "0" & minute(varDate)
else
mi = minute(varDate)
end if

if second(varDate) < 10 then
se = "0" & second(varDate)
else
se = second(varDate)
end if

mysqltarihsaat = year(varDate) & mm & dd & hh & mi & se
end function

SorguTarihi = mysqltarihsaat(now())

'- 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 > "& SorguTarihi &" " &_
"AND onay = 'ONAYLI' "
goster = adet.recordcount
End Function 
%>