" /> " /> <%=redkod("site_baslik")%> - <%=redkod("site_aciklama")%>
<% 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 %>