<% if seosay="1" or seosay="2" or seosay="3"then Bolum1="" end if if Bolum2="harf" then harf=Bolum3 Bolum2="" elseif Bolum3="harf" then harf=Bolum4 Bolum1="" else harf=CheckQuery(request.querystring("harf")) end if if not harf="" then SQL="Left(isim,1) like '%" & harf & "%' and " end if Sub UBaslik %>

» <%=ilnlr%>

~ ~ ~ <%=ilnlr%> ~ ~ ~

<% Set hrss = GenelDb.Execute("SELECT DISTINCT Left(isim,1) AS ilkharf FROM ilanlar order by Left(isim,1) asc") Do While Not hrss.Eof ilkharf=hrss("ilkharf") Response.Write "["&UCase(ilkharf)&"] " hrss.MoveNext Loop hrss.Close Set hrss = Nothing %>

<% Call SiteyeEkle %>

<% end sub if CheckQuery(Request.QueryString("ilan")&Bolum1)="" then titlen=ititle titlem=ititle Call Basla Call Logogiris Call UBaslik %>

- - <%=snekliln%> - -

<% sayfa=Cint(0+Request.QueryString("sayfa")&Bolum2) If sayfa ="" or sayfa = 0 Then sayfa = 1 Else sayfa=sayfa end if Set tkyt = GenelDb.Execute("SELECT COUNT(id) AS tkcount FROM ilanlar where "&SQL&"kat_link=1 and onay=0") tophbrsys=Cint(tkyt("tkcount")) tkyt.close set tkyt = Nothing KayitSayfa = 10 ikayit=KayitSayfa*(sayfa-1) Kacsayfa = Cint(tophbrsys/KayitSayfa) If tophbrsys/KayitSayfa > Cint(Kacsayfa) Then Kacsayfa=Kacsayfa+1 End if Set rs = GenelDb.Execute("Select * from ilanlar where "&SQL&"kat_link=1 and onay=0 order by id Desc") If rs.Eof Then Response.Write ""&ilnyok&"" Elseif tophbrsys <=ikayit then Response.Write ""&shfyok&"" Else rs.move(ikayit) Do While Not rs.Eof and h

">» <%=isim%>

<% If not hresim="" Then %>

<% End if %><%=ilan%> "><%=dvmnoku%>

<% rs.MoveNext Loop End if rs.close set rs = Nothing sy1="Ilanlar.asp?sayfa=" sy2="&harf="& harf &"" Call SayfaGit End If if CheckQuery(Request.QueryString("ilan"))="editorac" then titlen=edtrac titlem=edtrac Call Basla session("editor")="1" Response.Redirect (gerisayfam) elseif CheckQuery(Request.QueryString("ilan"))="editorkapa" then titlen=edtrkp titlem=edtrkp Call Basla session("editor")="" Response.Redirect (gerisayfam) end if if CheckQuery(Request.QueryString("ilan"))="gonder" then titlen=gndrblgs titlem=gndrblgs Call Basla Call Logogiris Call UBaslik %>

» <%=gndrblgs%>

<% if guvenlikkodu = "1" and session("guvenliksifre")="" Then guvenlimi="hayir" elseif guvenlikkodu = "1" and Request.Form("guvenlik")="" Then guvenlimi="hayir" else guvenlimi="evet" end if if Request.Form("guvenlik")=session("guvenliksifre") and guvenlimi="evet" then session("guvenliksifre")="" ekleyenk=session("uyead") hlink=ayikla(request.form("link")) hresim=ayikla(request.form("resim")) basl=ayikla(request.form("isim")) icilan=ayikla(request.form("yazi")) katnum=ayikla(request.form("kategori")) adsoyad=ayikla(request.form("adsoyad")) ucret=ayikla(request.form("ucret")) mail=ayikla(request.form("mail")) sehir=ayikla(request.form("sehir")) telefon=ayikla(request.form("telefon")) ziyaret=temizmi(request.form("yil")&request.form("ay")&request.form("gun")) If basl="" or icilan="" or hlink="" or katnum="" or ekleyenk="" or adsoyad="" Then Response.Write bsbrktgnzalnvr else if session("yetki")="20" then onay="0" Response.Write gndricrkekltsk else onay="1" Response.Write gndrmilnony end if Set kats = GenelDb.Execute("Select kategori,id from ilanlar where id="&katnum&"") GenelDb.Execute("INSERT INTO ilanlar (ekleyen,tarih,link,logo,isim,kat_link,hit,aciklama,kategori,onay,kat_id,ziyaret,adsoyad,ucret,mail,sehir,telefon) VALUES ('"&ekleyenk&"' , '"&BlueeyesTarih&"' , '"&hlink&"' , '"&hresim&"' , '"&basl&"' , '1' , '0' , '"&icilan&"' , '"&kats("kategori")&"' , '"&onay&"' , '"&katnum&"' , '"&ziyaret&"' , '"&adsoyad&"' , '"&ucret&"' , '"&mail&"' , '"&sehir&"' , '"&telefon&"')") kats.Close Set kats = Nothing End if Else Response.Write uyelik_80 End if %>

<% end if if CheckQuery(Request.QueryString("ilan"))="yorum" then titlen=yrmekll titlem=yrmekll Call Basla Call Logogiris Call UBaslik %>

» <%=yrmekll%>

<% yazan = session("uyead") id = ayikla(request.form("id")) mesaj = ayikla(request.form("yorum")) if mesaj="" or yazan="" or id="" then response.write bsbrktgnzalnvr&"
Geri Dön" elseif session("yrmyazdi")=id then response.write szbrkryzdz&"
Geri Dön" else session("yrmyazdi")=id GenelDb.Execute ("INSERT INTO yorumlar (yorum,y_id,ekleyen,tarih,tip,onay) VALUES ('"&mesaj&"' , '"&id&"' , '"&yazan&"' , '"&BlueeyesTarih&"' , '10' , '"&yorumonayli&"')") if yorumonayli="1" then response.write yorum_eklendi&"
Yöneticiler tarafından onaylandıkdan sonra yorumunuz yayınlanacaktır
Geri Dön" else response.write yorum_eklendi&"
Geri Dön" end if end if %>

<% end if if CheckQuery(Request.QueryString("ilan"))="yorumsil" then titlen=yrmlrm titlem=yrmlrm Call Basla yorumid=CheckQuery(request.querystring("yorumid")) If session("yetki")="1" Then GenelDb.Execute("DELETE FROM yorumlar where id="&yorumid&" and tip=10 and onay=0") End if Response.Redirect (gerisayfam) End if if CheckQuery(Request.QueryString("ilan")&Bolum2)="kategori" then ktgr=CheckQuery(request.querystring("katne")&Bolum3) Set konu = GenelDb.Execute("Select kategori from ilanlar WHERE id="&ktgr&"") if not konu.eof then titlen=konu("kategori") titlem=konu("kategori")&" "&ititle end if konu.Close Set konu = Nothing Call Basla Call Logogiris Call UBaslik %>

- - <%=titlen%> <%=ktgrsdblilnlr%> - -

<% if len(Bolum4) > 3 then Bolum4="" end if sayfa=Cint(0+Request.QueryString("sayfa")&Bolum4) If sayfa ="" or sayfa = 0 Then sayfa = 1 Else sayfa=sayfa end if Set tkyt = GenelDb.Execute("SELECT COUNT(id) AS tkcount FROM ilanlar where kat_id="&ktgr&" and onay=0") tophbrsys=Cint(tkyt("tkcount")) tkyt.close set tkyt = Nothing KayitSayfa = 10 ikayit=KayitSayfa*(sayfa-1) Kacsayfa = Cint(tophbrsys/KayitSayfa) If tophbrsys/KayitSayfa > Cint(Kacsayfa) Then Kacsayfa=Kacsayfa+1 End if Set rs = GenelDb.Execute("Select * from ilanlar where kat_id="&ktgr&" and onay=0 order by id desc") If rs.Eof Then Response.Write ""&ilnyok&"" Elseif tophbrsys <=ikayit then Response.Write ""&shfyok&"" Else rs.move(ikayit) Do While Not rs.Eof and h

">» <%=isim%>

<% If not hresim="" Then %>

<% End if %><%=ilan%> "><%=dvmnoku%>

<% rs.MoveNext Loop End if rs.close set rs = Nothing sy1="Ilanlar.asp?ilan=kategori&katne="&ktgr&"&sayfa=" sy2="" Call SayfaGit end if if CheckQuery(Request.QueryString("ilan")&Bolum2)="goster" then id=CheckQuery(request.querystring("ilanne")&Bolum3) Set konu = GenelDb.Execute("Select isim,aciklama from ilanlar WHERE id="&id&"") if not konu.eof then titlen=konu("isim") titlem=konu("aciklama") end if konu.Close Set konu = Nothing Call Basla Call Logogiris Call UBaslik GenelDb.Execute("UpDate ilanlar Set hit = hit+1 where id="&id&"") Set rs = GenelDb.Execute("Select id,kategori,link,aciklama,ekleyen,telefon,logo,isim,tarih,ucret,adsoyad,mail,sehir,hit,ziyaret,kat_id from ilanlar WHERE id="&id&" and onay=0") if not rs.eof then id=rs("id") kategori=rs("kategori") link=rs("link") ilan=rs("aciklama") ekleyen=rs("ekleyen") telefon=rs("telefon") resim=rs("logo") isim=rs("isim") tarih=rs("tarih") ucret=rs("ucret") adsoyad=rs("adsoyad") mail=rs("mail") sehir=rs("sehir") hit=rs("hit") ziyaret=rs("ziyaret") kat_id=rs("kat_id") set yorum = GenelDb.execute("select count(id) as sayihab from yorumlar where y_id="&id&" and tip=10 and onay=0") sayi = yorum("sayihab") yorum.close set yorum = Nothing set oylal = GenelDb.execute("SELECT oy FROM oylar WHERE tip=10 and tipid="&id&"") If oylal.Eof Then toploy = "0" else toploy = oylal("oy") End if oylal.close set oylal = Nothing aranan=CheckQuery(request.querystring("aradi")) if aranan="" then ilan=ilan else ilan=renkverelim(harfkucult(ilan)) end if Set geri = GenelDb.Execute("Select id,isim from ilanlar where id < "&id&" and kat_id="&kat_id&" and kat_link=1 and onay=0 order by id desc") if not geri.eof then geriid=""&onck&"" end if geri.Close Set geri = Nothing Set ileri = GenelDb.Execute("Select id,isim from ilanlar where id > "&id&" and kat_id="&kat_id&" and kat_link=1 and onay=0 order by id asc") if not ileri.eof then ileriid=""&snrk&"" end if ileri.Close Set ileri = Nothing %> <% if int(left(BlueeyesTarih,8)) > int(ziyaret) then %> <% GenelDb.Execute("UpDate ilanlar Set onay = '1' where id="&id&"") else %> <% end if %>

» <%=isim%>

<%=geriid&" "&ileriid%>

<%=bilnsrdlms%>

<%=uyelik_42%> :
<%=ktgri%> :
<%=fytt%> :
<%=btstrh%> :
<%=ilnshb%> :
<%=yreklam_3%> :
<%=epsta%> :
<%=ililce%> :
<%=ymenu_7%> :

<%=isim%>
<%=kategori%>
<%=ucret%>
<%=TarihDonustur(ziyaret)%>
<%=adsoyad%>
<%=telefon%>
<%=mail%>
<%=sehir%>
<%=link%>

<%=ydown_13%> :
<% if not resim="" then %>

<% end if %><%=ilan%>

<%=geriid&" "&ileriid%>

<% Set yorum = GenelDb.Execute("select id,ekleyen,yorum,tarih from yorumlar where y_id = "&id&" and tip=10 and onay=0 order by id desc") if yorum.eof then %> <% end if do while not yorum.eof %> <% yorum.MoveNext loop yorum.Close Set yorum = Nothing %>

» <%=ilnyplyrm%>

<%=yorum_yok%>

<%=yznn%> : <%=yorum("ekleyen")%> <%=trhi%> : <%=TarihDonustur(yorum("tarih"))%> <% if session("yetki")="1" Then Response.Write "("&uyelik_44&")" End if %>
<%=yorum("yorum")%>

<% if session("editor")="1" then %> <%=edtrkp%>
<% Dim Editor1 Set Editor1 = New FCKeditor Editor1.BasePath = "Inc/FCKeditor/" Editor1.Height = "150" Editor1.Value = "" Editor1.ToolbarSet = "Basic" Editor1.Create "yorum" else %> <%=edtrac%>
<% end if %>

<% end if rs.Close Set rs = Nothing end if %>

<% Set uk = GenelDb.Execute("select id,kategori from ilanlar where kat_link=0") Do while not uk.Eof uid=uk("id") ukategori=uk("kategori") Set usy = GenelDb.Execute("SELECT COUNT(id) AS usy FROM ilanlar where kat_id="&uid&" and kat_link=2") usay=usy("usy") usy.close set usy = Nothing %> > <% Set ak = GenelDb.Execute("select id,kategori from ilanlar where kat_id="&uid&" and kat_link=2") Do while not ak.Eof aid=ak("id") akategori=ak("kategori") Set sy = GenelDb.Execute("select count(id) as sy from ilanlar where kat_id="&aid&" and kat_link=1 and onay=0") say=sy("sy") sy.close set sy = Nothing if say>0 then isay=isay+1 %> >

<% Set ic = GenelDb.Execute("select id,isim from ilanlar where kat_id="&aid&" and kat_link=1 and onay=0 order by id desc") For ya = 1 To 10 if ic.eof Then exit For id=ic("id") baslik=TagSil(ic("isim")) %>">• <%=left(baslik,25)%><% ic.Movenext Next ic.Close Set ic = Nothing Response.write "

" end if ak.MoveNext Loop ak.close set ak = Nothing uk.MoveNext Loop uk.close set uk = Nothing %>

» Kategoriler
	<%=ukategori%>	<%=usay%>
	"><%=akategori%>	<%=say%>

» <%=ilnara%>

<%=bdlklrdar%> : <%=acklmlrdar%> :
<% if guvenlikkodu="1" Then Call Guvenlik %> <%=Replace(session("guvenlikformu"),"Sifrever.asp','guvenlink'","Sifrever.asp?tip=aramam','aramam'",1,-1,1)%>
<% End if %>

<% if request.querystring("katne")="" and Bolum3="" then Bolum3="0" elseif Bolum3="harf" or Bolum2="" then Bolum3="0" end if Set silan = GenelDb.Execute("select id,isim,aciklama,tarih from ilanlar where kat_id="&CheckQuery(request.querystring("katne")&Bolum3)&" and onay=0 and kat_link=1 order by id DESC") if silan.eof then else %>

» <%=ktgrnenynlr%>

<% For h = 1 To 10 if silan.eof Then exit For hyazine=TagSil(silan("aciklama")) %> » " title="<%=Left(hyazine,250)%>"><%=Left(silan("isim"),16)%> (<%=TarihDonustur(Left(silan("tarih"),8))%>)
<% silan.Movenext Next %>

<% end if silan.Close Set silan = Nothing Set silan = GenelDb.Execute("select id,isim,aciklama,hit from ilanlar where kat_id="&CheckQuery(request.querystring("katne")&Bolum3)&" and onay=0 and kat_link=1 order by hit DESC") if silan.eof then else %>

» <%=ktgrnenhtlr%>

<% For h = 1 To 10 if silan.eof Then exit For hyazine=TagSil(silan("aciklama")) %> » " title="<%=Left(hyazine,250)%>"><%=Left(silan("isim"),20)%> (<%=silan("hit")%>)
<% silan.Movenext Next %>

<% end if silan.Close Set silan = Nothing %>

» <%=ilnsn%>

<% Set silan = GenelDb.Execute("select id,isim,aciklama,tarih from ilanlar where onay=0 and kat_link=1 order by id DESC") For h = 1 To 10 if silan.eof Then exit For hyazine=TagSil(silan("aciklama")) %> » " title="<%=Left(hyazine,250)%>"><%=Left(silan("isim"),16)%> (<%=TarihDonustur(Left(silan("tarih"),8))%>)
<% silan.Movenext Next silan.Close Set silan = Nothing %>

» <%=ilnhit%>

<% Set silan = GenelDb.Execute("select id,isim,aciklama,hit from ilanlar where onay=0 and kat_link=1 order by hit DESC") For h = 1 To 10 if silan.eof Then exit For hyazine=TagSil(silan("aciklama")) %> » " title="<%=Left(hyazine,250)%>"><%=Left(silan("isim"),20)%> (<%=silan("hit")%>)
<% silan.Movenext Next silan.Close Set silan = Nothing %>

» <%=snyrmlr%>

<% Set syorum = GenelDb.Execute("select y_id,yorum from yorumlar where tip=10 and onay=0 order by id DESC") For h = 1 To 10 if syorum.eof Then exit For yyorum=TagSil(syorum("yorum")) %> » " title="<%=Left(yyorum,250)%>"><%=Left(yyorum,25)%>
<% syorum.Movenext Next syorum.Close Set syorum = Nothing %>

» <%=ilnisttsk%>

<% set saytop = GenelDb.execute("select count(id) as sayt from ilanlar where onay=0 and kat_link=1") sytop = saytop("sayt") saytop.close set saytop = Nothing set sayukat = GenelDb.execute("select count(id) as sayuk from ilanlar where kat_link=0") syukat = sayukat("sayuk") sayukat.close set sayukat = Nothing set saykat = GenelDb.execute("select count(id) as sayk from ilanlar where kat_link=2") sykat = saykat("sayk") saykat.close set saykat = Nothing set sayoku = GenelDb.execute("select SUM(hit) as sayo from ilanlar") sokunma = sayoku("sayo") sayoku.close set sayoku = Nothing set sayyor = GenelDb.execute("select count(id) as yorum from yorumlar where tip=10 and onay=0") syorum = sayyor("yorum") sayyor.close set sayyor = Nothing %> » <%=ustktgrlr%> (<%=syukat%>)
» <%=altktgrlr%> (<%=sykat%>)
» <%=ilnn%> (<%=sytop%>)
» <%=h_hit%> (<%=sokunma%>)
» <%=yrumm%> (<%=syorum%>)
» <%=tpadttr%>