Video Galeri
<%
set redkod = server.createobject("adodb.recordset")
galeriSirala = 4
tablo = "Select * from video "
redkod.pagesize = 12
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=videoSirala then
response.write ("
")
yan=0
End if
%>
<% yan=yan+1
if yan = (videoSirala+1) then
response.write ("
")
end if
%>
<%
redkod.movenext : next
redkod.close
set redkod=Nothing
End if
%>
-
Foto Galeri