<%'Çilem.Net © 2007'%> <% sira= 0 manset=1 mansetsira=1 mansetsayisi=10 %> <%=siteadi%>

<%set rs=server.createobject("adodb.recordset") rs.open "haber where sondakika=true and koseyazisi=false and haberonay='Evet' order by tarih desc",cilem,1,3 kayitsayisi = rs.recordcount%> <%katid= request("katid") set rs3=server.createobject("adodb.recordset") rs3.open "haber where mansethaber=true and koseyazisi=false and katid=" & guvenlik(request("katid"))& " and haberonay='Evet' order by tarih desc",cilem,1,3 mansetkayitsayisi= rs3.recordcount%> <%if mansetkayitsayisi="" or mansetkayitsayisi="0" then %> <%Else%>
tema/<%=tema%>/genelustbar.gif<%Else%>tema/<%=tema%>/sondakikabg.gif<% end if%>">
 
Yükleniyor...
       Manşet
<% yeni = Request.QueryString("yeni") If yeni="" Then yeni=1 rs3.pagesize = mansetsayisi rs3.absolutepage = yeni yeni_sayfa = rs3.pagecount for i=1 to rs3.pagesize if rs3.eof then exit for end if %> <%manset = manset + 1%><% rs3.movenext Next %> <%katid= request("katid") set rs3=server.createobject("adodb.recordset") rs3.open "haber where mansethaber=true and koseyazisi=false and katid=" & guvenlik(request("katid"))& " and haberonay='Evet' order by tarih desc",cilem,1,3 mansetkayitsayisi= rs3.recordcount%> <% yeni = Request.QueryString("yeni") If yeni="" Then yeni=1 rs3.pagesize = mansetsayisi rs3.absolutepage = yeni yeni_sayfa = rs3.pagecount for i=1 to rs3.pagesize if rs3.eof then exit for end if %> <%end if%>
 
<% katid= request("katid") If Not Isnumeric(katid) Or Len(katid)=0 Then mesaj "Kayıtlarda Olmayan Bir İçerik İstendi" End If Set rs= cilem.execute("SELECT * FROM haber WHERE haberonay='Evet' and koseyazisi=false and katid=" & guvenlik(request("katid"))) If rs.eof Then mesaj "Kayıtlarda Olmayan Bir İçerik İstendi" End If %> <% Sub mesaj(uyari)%><% End Sub %> <%katid= request("katid") KategoriSirala = 2 set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and koseyazisi=false and katid=" & guvenlik(request("katid"))& " order by mansethaber desc , tarih desc",cilem,1,3 habersayisi = rs.recordcount%> <% If rs.EOF And rs.BOF Then %> <% Else%>
<% sayfa_sayisi=genelsayfasayisi sayfasayisi = "sayfa_sayisi" sayfano = Request.QueryString("sayfano") ToplamKayit = rs.recordcount ToplamSayfa = ToplamKayit/sayfa_sayisi Function Tamamla(ToplamSayfa) If InStr(ToplamSayfa, ",") <> 0 Then Tamamla = Int(ToplamSayfa + 1) Else Tamamla = ToplamSayfa End If End Function GenelSayfa = Tamamla(ToplamSayfa) if sayfano = "" or sayfano = 1 then sayfano = 0 else end if if sayfano > 1 then sayfano = sayfano-1 else sayfano=sayfano end if ilksayfa = sayfa_sayisi * sayfano sonsayfa = ilksayfa + sayfa_sayisi %> <% sayi = 0 do while not rs.eof sayi=sayi+1 if sayi > ilksayfa and sayi =< sonsayfa then %> <% if yan=KategoriSirala then response.write ("") yan=0 End if %> <% yan=yan+1 if yan = (KategoriSirala +1) then response.write ("") end if %> <% else end if rs.movenext loop%><%katid=guvenlik(request("katid")) set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and katid=" & guvenlik(request("katid"))&"",cilem,1,3 %>
    <%=rs("baslik")%>  
<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><% else %> <%=rs("resimurl")%><% else %>resim/<%=rs("resim")%><% end if%>" alt="<%=rs("baslik")%>" style="border:1px solid #DDDDDD; width: 80px; margin-left:0; margin-right:5px; margin-top:3px; margin-bottom:0" align="left" /><% end if%><%=rs("kisahaber")%>...&uyeid=<%=rs("uyeid")%>">
  Devamı
 
"> <%=rs("kategoriadi")%>

   &sayfano=1">İlk Sayfa - <% if sayfano <> 0 then%> &sayfano=<%=sayfano%>"> Önceki Sayfa - <%else end if%> <% for sayfanumarasi = 1 to GenelSayfa %> &sayfano=<%=sayfanumarasi%>"> [<%=sayfanumarasi%>]<% if sayfanumarasi <> GenelSayfa then %><%else%><%end if%> <% next %> <% if GenelSayfa <> sayfano+1 then%> - &sayfano=<%=sayfano+2%>"> Sonraki Sayfa <%else end if%> - &sayfano=<%=GenelSayfa%>"> Son Sayfa <%end if %>   

 

<%set rs2=server.createobject("adodb.recordset") rs2.open "kategori",cilem,1,3 %> <% ayir=2 Dim l l= 0 do while l < 4 and not rs2.eof %> <% Dim kategoriler kategoriler = 0 do while kategoriler < ayir and NOT rs2.eof %> <% rs2.Movenext kategoriler = kategoriler + 1 loop %> <% l=2+1 loop%>
 "><%=rs2("kategoriadi")%> ¬
<%katid=rs2("katid")%> <%Set rs = cilem.Execute("Select * from haber where koseyazisi=false and katid ="&rs2("katid")&" and haberonay='Evet' order by bolum desc") If not rs.eof then%> <%Set basliksay = cilem.Execute("Select count(bolum) from haber where koseyazisi=false and katid=" & katid& "and haberonay='Evet' ") basliksayisi = rs.recordcount%> <%If basliksay(0) > 5 then verisay = 4 else verisay = basliksay(0) basliksay.close%> <%For i = 1 to verisay If i = 1 then %>
<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><% else %> <%=rs("resimurl")%><% else %>resim/<%=rs("resim")%><% end if%>" alt="<%=rs("baslik")%>" style="width: 65px; height: 65px; margin: 3px 5px 0 0;" align="left" /><% end if%> &uyeid=<%=rs("uyeid")%>" title="<%=rs("baslik")%>" style="color: #00000"><%=rs("baslik")%>
<%=rs("kisahaber")%>...

<% else%>
&uyeid=<%=rs("uyeid")%>" title="<%=rs("baslik")%>" ><%=rs("baslik")%>
<% end if rs.movenext next End If rs.close %>

RSS