<%=redkod("site_aciklama")%>

• Anasayfa
• Haberler
• Multimedya
• Ziyaretçi Defteri
• Projeler
• Ürünler
• İletişim

SAYFALAR

DOSYALAR

<% Set redkod = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select * FROM defter Where onay=true order by id desc" redkod.open rSQL,conn,1,3 if redkod.eof Then Response.Write "Kayıt Girilmemiş." Else If (not redkod.eof) then sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa=1 redkod.pagesize = 1 redkod.absolutepage = sayfa sayfa_sayisi = redkod.pagecount for i=1 to redkod.pagesize if redkod.eof then exit for end if %>

GÖRÜŞLER

ANKET

VİDEO

İSTATİSTİKLER

<% degisken = Request.QueryString gelenlink_bol = split(degisken, "/") uzanti_bol = split(gelenlink_bol(3), "-") HABER = uzanti_bol(0) %> <% set redkod4 = server.createobject("ADODB.Recordset") SQL = "Select * from haberler WHERE id = " & HABER redkod4.open SQL,conn,1,3 baslik=redkod4("baslik") redkod4.Close Set redkod4=Nothing %> <% Set redkod = Server.CreateObject("ADODB.Recordset") SQL = "Select * from haberler WHERE id=" & HABER redkod.Open SQL,conn,1,3 %> <% redkod("hit")=redkod("hit")+1 redkod.update %>

<%=redkod("baslik")%>

    <%=redkod("detay")%>

Okunma: <%=redkod("hit")%> | -<%=cevir(redkod("baslik"))%>.html">Tarih : <%=redkod("tarih")%>

<%redkod.close%>

Diğer Haber Başlıkları

<% Set redkod = Server.CreateObject("ADODB.Recordset") SQL = "Select * from haberler ORDER BY id DESC" redkod.Open SQL,conn,1,3 if redkod.eof Then Response.Write"Kayıt Bulunamadı." Else %>