<% Set istekurl = Request.ServerVariables("QUERY_STRING") istekbolum = Split(istekurl,"/") istekbolum2=istekbolum(3) parcala=split(istekbolum2,"-") IDno=parcala(1) shf=parcala(2) if IDno="" then Response.Redirect("/hatalisayfa") end if IDno=postkontrol(IDno) if IDno<>"" then sorgum="select * from haber where goster=true and hkodu="&IDno Rs.Open Sorgum, Baglantim, 1, 3 end if %> <%if IDno="" then response.Write("Üye Bulunamadı...") else response.Write(rs("baslik")) hadi=rs("baslik") end if %> | <%=siteadi%>
<%sorgum="select * from haber where goster=true and hkodu="&IDno Rs.Open Sorgum, Baglantim, 1, 3 %>
<%if IDno="" then response.Write("Üye Bulunamadı...") else response.Write(rs("baslik")) end if %>
<%if IDno<>"" then%> <% rs("hit")=rs("hit")+1 rs.update if rs("resim")<>"" then%> " border="0" align="left" hspace="10" width="150" height="100" /> <% else %> <% end if %> <%= rs("baslik") %>
 <%= rs("aciklama") %>
<%= rs("detay") %>
<%if rs("kaynak")="" then response.Write("...") else%> " target="_blank"><%= rs("kaynak") %> <%end if%> Bu Haber Toplam <%=rs("hit")%> Defa Okunmuştur...
<% end if rs.close%>
   
Diger Haberler
<% sorgum="Select * from haber order by hkodu desc" Rf.Open Sorgum, Baglantim, 1, 3 if rf.eof or rf.bof then hata "Kayıtlı Üye Bulunamadı",16 else if shf="" then shf=1 end if %> <% rf.pagesize = 10 rf.absolutepage = shf cellcolor="#FFFFFF" sayfa = rf.pagecount for i=1 to 10 if rf.eof then exit for %> -1-<%=cevir(rf("baslik"))%>.html"><%= rf("baslik") %>
Tarih : <%= rf("ekleme") %>
<% rf.movenext next%>

<%for y=1 to sayfa if cint(shf)=cint(y) then %> [<%= y %>] <% else %> <%= y %> <% end if next %>

<% end if %> <%Rf.Close %>
   
En Çok Okunanlar
<% sorgum="Select TOP 10 * from haber where goster=true order by hit desc" Rf.Open Sorgum, Baglantim, 1, 3 if rf.eof or rf.bof then Response.Write("Kayıtlı Üye Bulunamadı.") else %> <% for i=1 to 10 if rf.eof then exit for %> -1-<%=cevir(rf("baslik"))%>.html"><%= rf("baslik") %>
Tarih : <%= rf("ekleme") %>    Okunma : <%= rf("hit") %>
<% rf.movenext next %> <% end if Rf.Close %>

   
Reklam Alanı
<% reklam_goster(9) %>