<!--#include file="Gosteris.asp" -->
<% If instr(1,browserim,"MSIE",1) or instr(1,browserim,"Firefox",1) or instr(1,browserim,"Opera",1) or instr(1,browserim,"Chrome",1) Then
if session("giris")="" then
Response.Redirect "Default.asp?sadece=uyelere"
ForumDb.Close
Set ForumDb = Nothing
GenelDb.Close
Set GenelDb = Nothing
Response.End
End if
End if %>
<% 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(baslik,1) like '%" & harf & "%' and "
end if
Sub UBaslik %>
<table width="97%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="75%" align="left" valign="top">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td bgcolor="<%=menu_aplan%>" class="cizimler"><font class="basliklar"><b>» <%=hbrler%></b></font></td>
</tr>
<tr bgcolor="<%=blok_aplan%>">
<td align="center" class="cizimler"><font class="icyazilar"><a target="_blank" href="Rss.asp?haber=rss"><img src="Resimler/Rss.gif" align="right" border="0"></a> <strong><em><font face="Comic Sans MS" size="6">~ ~ ~ <%=hbrler%> ~ ~ ~</font></em></strong></font></td>
</tr>
<tr bgcolor="<%=blok_aplan%>">
<td align="center" class="cizimler"><font class="kucukyazilar"><%
Set hrss = GenelDb.Execute("SELECT DISTINCT Left(baslik,1) AS ilkharf FROM haber order by Left(baslik,1) asc")
Do While Not hrss.Eof
ilkharf=hrss("ilkharf")
Response.Write "<a href="""&linkcevir("Haberler.asp?harf="&ilkharf&"")&""">["&UCase(ilkharf)&"]</a> "
hrss.MoveNext
Loop
hrss.Close
Set hrss = Nothing
%></font></td>
</tr>
<tr bgcolor="<%=blok_aplan%>">
<td align="center" class="cizimler"><% Call SiteyeEkle %></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end sub
if CheckQuery(Request.QueryString("haber")&Bolum1)="" then
titlen=htitle
titlem=htitle
Call Basla
Call Logogiris
Call UBaslik %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" align="center" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>- - <%=sneklnhbrlr%> - -</b></font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="2"></td></tr></table>
<% 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 haber where "&SQL&"onay=0 and sabit=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 haber where "&SQL&"onay=0 and sabit=0 order by id desc")
If rs.Eof Then
Response.Write "<center><font class=""icyazilar"">"&yok_haber&"</font></center>"
Elseif tophbrsys <=ikayit then
Response.Write "<center><font class=""icyazilar"">"&shfyok&"</font></center>"
Else
rs.move(ikayit)
Do While Not rs.Eof and h<KayitSayfa
h=h+1
id = rs("id")
baslik=rs("baslik")
resim=rs("resim")
haber=Left(TagSil(rs("haber")),500)&"..."
ekleyen=rs("ekleyen")
tarih=rs("tarih")
hit=rs("hit")
set yorum = GenelDb.execute("select count(id) as sayihab from yorumlar where y_id="&id&" and tip=1 and onay=0")
sayi = yorum("sayihab")
yorum.close
set yorum = Nothing
set oylal = GenelDb.execute("SELECT oy FROM oylar WHERE tip=0 and tipid="&id&"")
If oylal.Eof Then
toploy = "0"
else
toploy = oylal("oy")
End if
oylal.close
set oylal = Nothing %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&id&"&baslik="&baslik&"")%>"><font class="basliklar"><b>» <%=baslik%></b></font></a></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar"><% If not resim="" Then %><img onError="src = 'Resimler/haber.gif'" src="<%=resim%>" width="100" height="80" align="right"><% End if %><%=haber%> <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&id&"&baslik="&baslik&"")%>"><b><%=dvmnoku%></b></a></font></td>
</tr>
<tr>
<td class="cizimler" align="center" bgcolor="<%=blok_aplan%>"><font class="kucukyazilar"><%=yznn%> <b><%=ekleyen%></b> | <%=TarihDonustur(tarih)%> | <a ONCLICK="window.open('Puan.asp?oyid=<%=id%>&oytip=0&ekleyen=<%=ekleyen%>','puan','width=250,height=250,toolbar=no,scrollbars=no');" href="#puan"><b><%=oylar_4%> : <%=toploy%></b></a> | <%=yorum_oku%> : <%=sayi%> | <%=h_hit%> : <%=hit%> | <a href="Yazdir.asp?id=<%=id%>" target="_blank"><%=yazdr%></a> | <a target="_blank" href="Gonder.asp?id=<%=id%>" title="<%=arkdsmgndr%>"><%=gonderrr%></a> | <a href="WordKayit.asp?id=<%=id%>" title="<%=wrdindrindr%>"><%=wrdindr%></a></font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% rs.MoveNext
Loop
End if
rs.close
set rs = Nothing
sy1="Haberler.asp?sayfa="
sy2="&harf="& harf &""
Call SayfaGit
End If
if CheckQuery(Request.QueryString("haber"))="editorac" then
titlen=edtrac
titlem=edtrac
Call Basla
session("editor")="1"
Response.Redirect (gerisayfam)
elseif CheckQuery(Request.QueryString("haber"))="editorkapa" then
titlen=edtrkp
titlem=edtrkp
Call Basla
session("editor")=""
Response.Redirect (gerisayfam)
end if
if CheckQuery(Request.QueryString("haber"))="gonder" then
titlen=gndrblgs
titlem=gndrblgs
Call Basla
Call Logogiris
Call UBaslik %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=gndrblgs%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% 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")=""
kekleyen=session("uyead")
kresim=ayikla(request.form("resim"))
kbaslik=ayikla(request.form("baslik"))
khaber=ayikla(request.form("yazi"))
katnum=ayikla(request.form("kategori"))
If kbaslik="" or khaber="" or katnum="" or kekleyen="" Then
Response.Write bsbrktgnzalnvr
else
if session("yetki")="20" then
onay="0"
Response.Write gndricrkekltsk
else
onay="1"
Response.Write gndrmshbro
end if
Set kats = GenelDb.Execute("Select kategori from h_kategori where id="&katnum&"")
GenelDb.Execute("INSERT INTO haber (ekleyen,tarih,resim,baslik,hit,haber,kategori,onay,kat_id,sabit) VALUES ('"&kekleyen&"' , '"&ByCaferTarih&"' , '"&kresim&"' , '"&kbaslik&"' , '0' , '"&khaber&"' , '"&kats("kategori")&"' , '"&onay&"' , '"&katnum&"' , '0')")
kats.Close
Set kats = Nothing
End if
Else
Response.Write uyelik_80
End if %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end if
if CheckQuery(Request.QueryString("haber"))="yorum" then
titlen=yrmekll
titlem=yrmekll
Call Basla
Call Logogiris
Call UBaslik %>
<table width="100%" align="center" cellpadding="3" cellspacing="0" border="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=yrmekll%></b></font></td>
</tr>
<tr>
<td class="cizimler" align="center" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% yazan = session("uyead")
id = ayikla(request.form("id"))
mesaj = ayikla(request.form("yorum"))
if mesaj="" or yazan="" or id="" then
response.write bsbrktgnzalnvr&"<br><a href="""&gerisayfam&"""><b>Geri Dön</b></a>"
elseif session("yrmyazdi")=id then
response.write szbrkryzdz&"<br><a href="""&gerisayfam&"""><b>Geri Dön</b></a>"
else
session("yrmyazdi")=id
GenelDb.Execute ("INSERT INTO yorumlar (yorum,y_id,ekleyen,tarih,tip,onay) VALUES ('"&mesaj&"' , '"&id&"' , '"&yazan&"' , '"&ByCaferTarih&"' , '1' , '"&yorumonayli&"')")
if yorumonayli="1" then
response.write yorum_eklendi&"<br>Yöneticiler tarafýndan onaylandýkdan sonra yorumunuz yayýnlanacaktýr<br><a href="""&gerisayfam&"""><b>Geri Dön</b></a>"
else
response.write yorum_eklendi&"<br><a href="""&gerisayfam&"""><b>Geri Dön</b></a>"
end if
end if %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end if
if CheckQuery(Request.QueryString("haber"))="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=1 and onay=0")
End if
Response.Redirect (gerisayfam)
End if
if CheckQuery(Request.QueryString("haber")&Bolum2)="kategori" then
ktgr=CheckQuery(request.querystring("katne")&Bolum3)
Set konu = GenelDb.Execute("Select kategori from h_kategori WHERE id="&ktgr&"")
if not konu.eof then
titlen=konu("kategori")
titlem=konu("kategori")&" "&htitle
end if
konu.Close
Set konu = Nothing
Call Basla
Call Logogiris
Call UBaslik %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" align="center" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>- - <%=titlen%> <%=ktgrsnekhbrl%> - -</b></font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="2"></td></tr></table>
<% 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 haber where kat_id="&ktgr&" and onay=0 and sabit=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 haber where kat_id="&ktgr&" and onay=0 and sabit=0 order by id desc")
If rs.Eof Then
Response.Write "<center><font class=""icyazilar"">"&yok_haber&"</font></center>"
Elseif tophbrsys <=ikayit then
Response.Write "<center><font class=""icyazilar"">"&shfyok&"</font></center>"
Else
rs.move(ikayit)
Do While Not rs.Eof and h<KayitSayfa
h=h+1
id = rs("id")
baslik=rs("baslik")
resim=rs("resim")
haber=Left(TagSil(rs("haber")),500)&"..."
ekleyen=rs("ekleyen")
tarih=rs("tarih")
hit=rs("hit")
set yorum = GenelDb.execute("select count(id) as sayihab from yorumlar where y_id="&id&" and tip=1 and onay=0")
sayi = yorum("sayihab")
yorum.close
set yorum = Nothing
set oylal = GenelDb.execute("SELECT oy FROM oylar WHERE tip=0 and tipid="&id&"")
If oylal.Eof Then
toploy = "0"
else
toploy = oylal("oy")
End if
oylal.close
set oylal = Nothing %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&id&"&baslik="&baslik&"")%>"><font class="basliklar"><b>» <%=baslik%></b></font></a></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar"><% If not resim="" Then %><img onError="src = 'Resimler/haber.gif'" src="<%=resim%>" width="100" height="80" align="right"><% End if %><%=haber%> <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&id&"&baslik="&baslik&"")%>"><b><%=dvmnoku%></b></a></font></td>
</tr>
<tr>
<td class="cizimler" align="center" bgcolor="<%=blok_aplan%>"><font class="kucukyazilar"><%=yznn%> <b><%=ekleyen%></b> | <%=TarihDonustur(tarih)%> | <a ONCLICK="window.open('Puan.asp?oyid=<%=id%>&oytip=0&ekleyen=<%=ekleyen%>','puan','width=250,height=250,toolbar=no,scrollbars=no');" href="#puan"><b><%=oylar_4%> : <%=toploy%></b></a> | <%=yorum_oku%> : <%=sayi%> | <%=h_hit%> : <%=hit%> | <a href="Yazdir.asp?id=<%=id%>" target="_blank"><%=yazdr%></a> | <a target="_blank" href="Gonder.asp?id=<%=id%>" title="<%=arkdsmgndr%>"><%=gonderrr%></a> | <a href="WordKayit.asp?id=<%=id%>" title="<%=wrdindrindr%>"><%=wrdindr%></a></font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% rs.MoveNext
Loop
End if
rs.close
set rs = Nothing
sy1="Haberler.asp?haber=kategori&katne="&ktgr&"&sayfa="
sy2=""
Call SayfaGit
end if
if CheckQuery(Request.QueryString("haber")&Bolum2)="goster" then
id=CheckQuery(request.querystring("haberne")&Bolum3)
Set konu = GenelDb.Execute("Select baslik,haber from haber WHERE id="&id&"")
if not konu.eof then
titlen=konu("baslik")
titlem=konu("haber")
end if
konu.Close
Set konu = Nothing
Call Basla
Call Logogiris
Call UBaslik
GenelDb.Execute("UpDate haber Set hit = hit+1 where id="&id&"")
Set rs = GenelDb.Execute("Select id,ekleyen,tarih,resim,baslik,hit,haber,kat_id from haber WHERE id="&id&" and onay=0")
if not rs.eof then
id=rs("id")
ekleyen=rs("ekleyen")
tarih=rs("tarih")
resim=rs("resim")
baslik=rs("baslik")
hit=rs("hit")
haber=rs("haber")
kat_id=rs("kat_id")
set yorum = GenelDb.execute("select count(id) as sayihab from yorumlar where y_id="&id&" and tip=1 and onay=0")
sayi = yorum("sayihab")
yorum.close
set yorum = Nothing
set oylal = GenelDb.execute("SELECT oy FROM oylar WHERE tip=0 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
haber=haber
else
haber=renkverelim(harfkucult(haber))
end if
Set geri = GenelDb.Execute("Select id,baslik from haber where id < "&id&" and kat_id="&kat_id&" and onay=0 order by id desc")
if not geri.eof then
geriid="<a href="""&linkcevir("Haberler.asp?haber=goster&haberne="&geri("id")&"&baslik="&geri("baslik")&"")&"""><font class=""basliklar""><b>"&onck&"</b></font></a>"
end if
geri.Close
Set geri = Nothing
Set ileri = GenelDb.Execute("Select id,baslik from haber where id > "&id&" and kat_id="&kat_id&" and onay=0 order by id asc")
if not ileri.eof then
ileriid="<a href="""&linkcevir("Haberler.asp?haber=goster&haberne="&ileri("id")&"&baslik="&ileri("baslik")&"")&"""><font class=""basliklar""><b>"&snrk&"</b></font></a>"
end if
ileri.Close
Set ileri = Nothing %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td width="97%" class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=baslik%></b></font></td>
<td width="3%" class="cizimler" align="right" bgcolor="<%=menu_aplan%>"><%=geriid&"<font class=""basliklar""> </font>"&ileriid%></td>
</tr>
<tr>
<td colspan="2" class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar"><% if not resim="" then %><img onError="src = 'Resimler/haber.gif'" src="<%=resim%>" width="250" height="200" align="right"><% end if %><%=haber%></font></td>
</tr>
<tr>
<td width="97%" class="cizimler" align="center" bgcolor="<%=blok_aplan%>"><font class="kucukyazilar"><%=yznn%> <b><%=ekleyen%></b> | <%=TarihDonustur(tarih)%> | <a ONCLICK="window.open('Puan.asp?oyid=<%=id%>&oytip=0&ekleyen=<%=ekleyen%>','puan','width=250,height=250,toolbar=no,scrollbars=no');" href="#puan"><b><%=oylar_4%> : <%=toploy%></b></a> | <%=yorum_oku%> : <%=sayi%> | <%=h_hit%> : <%=hit%> | <a href="Yazdir.asp?id=<%=id%>" target="_blank"><%=yazdr%></a> | <a target="_blank" href="Gonder.asp?id=<%=id%>" title="<%=arkdsmgndr%>"><%=gonderrr%></a> | <a href="WordKayit.asp?id=<%=id%>" title="<%=wrdindrindr%>"><%=wrdindr%></a></font></td>
<td width="3%" class="cizimler" align="right" bgcolor="<%=menu_aplan%>"><%=geriid&"<font class=""basliklar""> </font>"&ileriid%></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=hbryplyrm%></b></font></td>
</tr>
<% Set yorum = GenelDb.Execute("select id,ekleyen,yorum,tarih from yorumlar where y_id = "&id&" and tip=1 and onay=0 order by id desc")
if yorum.eof then %>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar"><%=yorum_yok%></font></td>
</tr>
<% end if
do while not yorum.eof %>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar"><%=yznn%> : <b><%=yorum("ekleyen")%></b> <%=trhi%> : <b><%=TarihDonustur(yorum("tarih"))%></b> <% if session("yetki")="1" Then Response.Write "(<a href=""Haberler.asp?haber=yorumsil&yorumid="&yorum("id")&""">"&uyelik_44&"</a>)" End if %><br><%=yorum("yorum")%></font></td>
</tr>
<% yorum.MoveNext
loop
yorum.Close
Set yorum = Nothing %>
<form action="Haberler.asp?haber=yorum" method="post">
<tr>
<td class="cizimler" align="center" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% if session("editor")="1" then %>
<a href="Haberler.asp?haber=editorkapa"><%=edtrkp%></a><br>
<% Dim Editor1
Set Editor1 = New FCKeditor
Editor1.BasePath = "Inc/FCKeditor/"
Editor1.Height = "150"
Editor1.Value = ""
Editor1.ToolbarSet = "Basic"
Editor1.Create "yorum"
else %>
<a href="Haberler.asp?haber=editorac"><%=edtrac%></a><br>
<textarea rows="4" name="yorum" cols="80" class="yazilar"></textarea>
<% end if %>
<input type="hidden" name="id" value="<%=id%>" class="yazilar"><br>
<input type="submit" value="<%=yrmekll%>" class="tuslar">
</font></td>
</tr>
</form>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end if
rs.Close
Set rs = Nothing
end if %>
</td><td> </td><td width="25%" align="right" valign="top">
<table width="100%" align="center" cellpadding="3" cellspacing="0" border="0" class="cizimler">
<tr>
<td colspan="3" bgcolor="<%=menu_aplan%>" class="cizimler"><font class="basliklar"><b> » Kategoriler</b></font></td>
</tr><%
Set uk = GenelDb.Execute("select id,kategori from h_kategori where ana=1")
Do while not uk.Eof
uid=uk("id")
ukategori=uk("kategori")
Set usy = GenelDb.Execute("SELECT COUNT(id) AS usy FROM h_kategori where anaid="&uid&" and ana=0")
usay=usy("usy")
usy.close
set usy = Nothing %>
<tr bgcolor="<%=tablo2%>" <%=onMouseOver%>>
<td width="10%"><img src="Resimler/flip_open.gif" border="0"></td>
<td width="75%"><font class="icyazilar"><b><%=ukategori%></b></font></td>
<td width="15%"><font class="icyazilar"><b><%=usay%></b></font></td>
</tr><%
Set ak = GenelDb.Execute("select id,kategori from h_kategori where anaid="&uid&" and ana=0")
Do while not ak.Eof
aid=ak("id")
akategori=ak("kategori")
Set sy = GenelDb.Execute("select count(id) as sy from haber where kat_id="&aid&" and onay=0 and sabit=0")
say=sy("sy")
sy.close
set sy = Nothing
if say>0 then
isay=isay+1 %>
<tr bgcolor="<%=blok_aplan%>" <%=onMouseOver%>>
<td><img src="Resimler/flip_static.gif" border="0"></td>
<td onClick="return clickreturnvalue()" onMouseover="dropdownmenu(this,event,'icerik<%=isay%>')"><font class="icyazilar"><a href="<%=linkcevir("Haberler.asp?haber=kategori&katne="&aid&"&katismi="&akategori&"")%>"><%=akategori%></a></font></td>
<td><font class="icyazilar"><%=say%></font></td>
</tr>
<div align="left" id="icerik<%=isay%>" class="menusitil"><%
Set ic = GenelDb.Execute("select id,baslik from haber where kat_id="&aid&" and onay=0 and sabit=0 order by id desc")
For ya = 1 To 10
if ic.eof Then exit For
id=ic("id")
baslik=TagSil(ic("baslik"))
%><a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&id&"&baslik="&baslik&"")%>">• <%=left(baslik,25)%></a><%
ic.Movenext
Next
ic.Close
Set ic = Nothing
Response.write "</div>"
end if
ak.MoveNext
Loop
ak.close
set ak = Nothing
uk.MoveNext
Loop
uk.close
set uk = Nothing %>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=hbrara%></b></font></td>
</tr>
<form action="Arama.asp?sonuc=goster&tip=2" method="post">
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>" align="center"><font class="icyazilar">
<input type="text" name="aranan" size="25" value="" class="yazilar">
<%=bdlklrdar%> :<input name="nerede" type="radio" value="0" checked>
<%=haberlerde%> :<input name="nerede" type="radio" value="1"><br>
<% if guvenlikkodu="1" Then
Call Guvenlik %>
<span id="aramam"><%=Replace(session("guvenlikformu"),"Sifrever.asp','guvenlink'","Sifrever.asp?tip=aramam','aramam'",1,-1,1)%></span><br>
<% End if %>
<input type="submit" value="<%=armyp%>" class="tuslar">
</font></td>
</tr>
</form>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% if request.querystring("katne")="" and Bolum3="" then
Bolum3="0"
elseif Bolum3="harf" or Bolum2="" then
Bolum3="0"
end if
Set shaber = GenelDb.Execute("select id,baslik,haber,tarih from haber where kat_id="&CheckQuery(request.querystring("katne")&Bolum3)&" and onay=0 order by id DESC")
if shaber.eof then
else %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=ktgrnenynlr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% For h = 1 To 10
if shaber.eof Then exit For
hyazine=TagSil(shaber("haber")) %>
» <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&shaber("id")&"&baslik="&shaber("baslik")&"")%>" title="<%=Left(hyazine,250)%>"><%=Left(shaber("baslik"),16)%></a> (<%=TarihDonustur(Left(shaber("tarih"),8))%>)<br>
<% shaber.Movenext
Next %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end if
shaber.Close
Set shaber = Nothing
Set shaber = GenelDb.Execute("select id,baslik,haber,hit from haber where kat_id="&CheckQuery(request.querystring("katne")&Bolum3)&" and onay=0 order by hit DESC")
if shaber.eof then
else %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=ktgrnenhtlr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% For h = 1 To 10
if shaber.eof Then exit For
hyazine=TagSil(shaber("haber")) %>
» <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&shaber("id")&"&baslik="&shaber("baslik")&"")%>" title="<%=Left(hyazine,250)%>"><%=Left(shaber("baslik"),20)%></a> (<%=shaber("hit")%>)<br>
<% shaber.Movenext
Next %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<% end if
shaber.Close
Set shaber = Nothing %>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=sonhabrlr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% Set shaber = GenelDb.Execute("select id,baslik,haber,tarih from haber where onay=0 order by id DESC")
For h = 1 To 10
if shaber.eof Then exit For
hyazine=TagSil(shaber("haber")) %>
» <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&shaber("id")&"&baslik="&shaber("baslik")&"")%>" title="<%=Left(hyazine,250)%>"><%=Left(shaber("baslik"),16)%></a> (<%=TarihDonustur(Left(shaber("tarih"),8))%>)<br>
<% shaber.Movenext
Next
shaber.Close
Set shaber = Nothing %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=hthbrlr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% Set shaber = GenelDb.Execute("select id,baslik,haber,hit from haber where onay=0 order by hit DESC")
For h = 1 To 10
if shaber.eof Then exit For
hyazine=TagSil(shaber("haber")) %>
» <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&shaber("id")&"&baslik="&shaber("baslik")&"")%>" title="<%=Left(hyazine,250)%>"><%=Left(shaber("baslik"),20)%></a> (<%=shaber("hit")%>)<br>
<% shaber.Movenext
Next
shaber.Close
Set shaber = Nothing %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=snyrmlr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% Set syorum = GenelDb.Execute("select y_id,yorum from yorumlar where tip=1 and onay=0 order by id DESC")
For h = 1 To 10
if syorum.eof Then exit For
yyorum=TagSil(syorum("yorum")) %>
» <a href="<%=linkcevir("Haberler.asp?haber=goster&haberne="&syorum("y_id")&"&baslik="&Left(yyorum,25)&"")%>" title="<%=Left(yyorum,250)%>"><%=Left(yyorum,25)%></a><br>
<% syorum.Movenext
Next
syorum.Close
Set syorum = Nothing %>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="cizimler">
<tr>
<td class="cizimler" bgcolor="<%=menu_aplan%>"><font class="basliklar"><b>» <%=hbristtisklr%></b></font></td>
</tr>
<tr>
<td class="cizimler" bgcolor="<%=blok_aplan%>"><font class="icyazilar">
<% set saytop = GenelDb.execute("select count(id) as sayt from haber where onay=0 and sabit=0")
sytop = saytop("sayt")
saytop.close
set saytop = Nothing
set sayukat = GenelDb.execute("select count(id) as sayuk from h_kategori where ana=1")
syukat = sayukat("sayuk")
sayukat.close
set sayukat = Nothing
set saykat = GenelDb.execute("select count(id) as sayk from h_kategori where ana=0")
sykat = saykat("sayk")
saykat.close
set saykat = Nothing
set sayoku = GenelDb.execute("select SUM(hit) as sayo from haber")
sokunma = sayoku("sayo")
sayoku.close
set sayoku = Nothing
set sayyor = GenelDb.execute("select count(id) as yorum from yorumlar where tip=1 and onay=0")
syorum = sayyor("yorum")
sayyor.close
set sayyor = Nothing %>
» <%=ustktgrlr%> (<%=syukat%>)<br>
» <%=altktgrlr%> (<%=sykat%>)<br>
» <%=haberr%> (<%=sytop%>)<br>
» <%=h_hit%> (<%=sokunma%>)<br>
» <%=yrumm%> (<%=syorum%>)<br>
» <%=tpadttr%>
</font></td>
</tr>
</table>
<table width="1" border="0" cellspacing="0" cellpadding="0"><tr><td height="15"></td></tr></table>
</td>
</tr>
</table>
<% Call Altmenu
Call Copyright %>arkadaşlar ben bi script kurdum siteme ama asp den anlamadığım için düzenleme yapamadım..Bu sayfadaki sorunum haberler sadece üye girişi yapanalra gözüküyor ama benim istediğim tüm herkes görsün ama sadece üyeler yorum yapsın... Yarım edebilecek arkadaş varsa şimdiden teşekkür ederim..
