<%if hkodu="" then response.Write("Haber Bulunamadı...") else response.Write(rs("baslik")) hadi=rs("baslik") end if %>

<% 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 hkodu=postkontrol(IDno) if hkodu<>"" then sorgum="select * from haber where goster=true and hkodu="&hkodu Rs.Open Sorgum, Baglantim, 1, 3 end if %> <%if hkodu="" then response.Write("Haber Bulunamadı...") else response.Write(rs("baslik")) hadi=rs("baslik") end if %> | <%=siteadi%>

<%if hkodu<>"" 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") %>
Kaynak : <%if rs("kaynak")="" then response.Write("Kaynak Belirtilmemiş.") 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ı Haber 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ı Haber 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) %>

<%if hkodu<>"" then%> <% rs("hit")=rs("hit")+1 rs.update if rs("resim")<>"" then Path = Server.URLEncode(Server.MapPath(Rs("resim"))) %> <% else %> <% end if %> <%= rs("baslik") %> <%= rs("aciklama") %> <%= rs("detay") %>
Kaynak : <%if rs("kaynak")="" then response.Write("Kaynak Belirtilmemiş.") 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ı Haber 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
	sdasdasdasd <% sorgum="Select top 10 * from haber where goster=true order by hit desc" Rf.Open Sorgum, Baglantim, 1, 3 response.Write("ulaaaa") if rf.eof or rf.bof then hata "Kayıtlı Haber Bulunamadı",16 else for i=1 to 10 if rf.eof then exit for %> ne oluyor ula -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) %>