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

<% 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 Download 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 Download WHERE id=" & HABER redkod.Open SQL,conn,1,3 %>

<%=redkod("baslik")%>

<%=redkod("detay")%> <%redkod.close%>