<%
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb"))
set mertgaleri = server.createobject("adodb.recordset")
%>
<%
galeriSirala = 3
tablo = "Select * from galeri order by id desc "
baslik ="Select * from ayarlar"
mertgaleri.pagesize = 12
mertgaleri.open tablo,mertbaglan,1,1
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
mertgaleri.AbsolutePage = s
%>
<%=galeri_title%>
<% for k=1 to mertgaleri.pagesize %>
<% if mertgaleri.eof or mertgaleri.bof then exit for %>
<% if yan=galeriSirala then
response.write ("
