SAYFALAR

-<%=cevir(redkod("baslik"))%>.sayfalar"><%=redkod("baslik")%>

DOSYALAR

-<%=cevir(redkod("baslik"))%>.indir"><%=redkod("baslik")%>

<% 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

"<%=redkod("mesaj")%>"

Yazan: <%=redkod("ad")%>

<% redkod.movenext Next end if if onceki < 1 then response.write "" else end if for g = 1 to sayfa_sayisi if g = cint(sayfa ) then else end if next if sonraki > sayfa_sayisi then response.write "" else end if %> <%end if%>

ANKET

VİDEO

İSTATİSTİKLER

<%Set redkod1 = conn.execute("Select * From haberler order by id desc")%> <%if redkod1.eof Then%>Kayıtlı veri bulunamadı.!<%Else%>

<%=redkod1("baslik")%>

" width="136" height="89">

<%=Left(redkod1("detay"),450)%>

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

<%End if%>

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 %>

<% while not redkod.eof %>

» -<%=cevir(redkod("baslik"))%>.html"><%=redkod("baslik")%>

<% redkod.movenext:wend %> <%end if%>