<% hkodu=postkontrol(hkodu) 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 Bulunamady...") else response.Write(rs("baslik")) end if %>| <%=siteadi%>
<%if hkodu="" then response.Write("Haber Bulunamady...") else response.Write(rs("baslik")) end if %>
<%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 "Kayytly Haber Bulunamady",16 else shf = Request.QueryString("shf") 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 %> "><%= 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 %>
   
Reklam Alanı
<% reklam_goster(9) %>