<%
id = request.querystring("id")
galeriSirala = 3
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu = "select * from galeri where bolum='referans' order by katesira asc"
rs.pagesize = 60
Rs.Open Sorgu, bag, 1, 1
IF rs.EOF THEN
response.Write("
")
response.write "
![]()
Kayıt Bulunmuyor
"
response.Write("
")
else
response.Write("
")
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
rs.AbsolutePage = s
%>
<% for k=1 to rs.pagesize %>
<% if rs.eof or rs.bof then exit for %>
<% if yan=galeriSirala then
response.write ("
")
yan=0
End if
%>
|
<%=Left(rs("baslik" ),35) %>
|
|
<% yan=yan+1
if yan = (galeriSirala+1) then
response.write ("
")
end if
rs.movenext : next
%>
<% for x=1 to rs.pagecount %>
<%
next
end if
rs.close
set rs=nothing
%>