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), "-") multi = uzanti_bol(0) %> <% set redkod4 = server.createobject("ADODB.Recordset") SQL = "Select * from video WHERE id = " & multi redkod4.open SQL,conn,1,3 baslik=redkod4("baslik") redkod4.Close Set redkod4=Nothing %> <% Set redkod = Server.CreateObject("ADODB.Recordset") SQL = "Select * from video WHERE id=" & multi redkod.Open SQL,conn,1,3 %> <% redkod("hit")=redkod("hit")+1 redkod.update %>

<%=redkod("baslik")%>

<%=redkod("kod")%>

Izleme: <%=redkod("hit")%> Tarih: <%=redkod("tarih")%> Açıklama: <%=redkod("aciklama")%>

<% if redkod("video")<>"" Then %> <%end if%>

Diğer Videolar

<% set redkod = server.createobject("adodb.recordset") galeriSirala = 6 tablo = "Select * from video " redkod.pagesize = 8 redkod.open tablo,conn,1,3 if redkod.eof Then Response.Write " Kayıtlı Veri bulunamadı" Else if request.QueryString("s")="" or request.querystring("s")=0 then s=1 else s=request.QueryString("s") end if redkod.AbsolutePage = s %> <% for k=1 to redkod.pagesize %> <% if redkod.eof or redkod.bof then exit for %> <% if yan=galeriSirala then response.write ("") yan=0 End if %>

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

" width="92" height="84">

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

<% yan=yan+1 if yan = (videoSirala+1) then response.write ("") end if %> <% redkod.movenext : next redkod.close set redkod=Nothing End if %>