<% Set db=Server.CreateObject("ADODB.Connection") db.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath("db/neutral.mdb") %>
 

 

 
<% Set rs = Server.CreateObject ("ADODB.RecordSet") sql = " Select * from kategoriler" rs.open sql,db,1,3 do while not rs.eof %>

<% rs.movenext loop rs.close set rs=nothing %>

<% kategori=Request.Querystring("kategori") Set Rs=Server.CreateObject("Adodb.Recordset") sorgu="select * from album where kategori = '" & kategori & "' and onay=1 ORDER BY baslik ASC" Rs. Open Sorgu, db, 1, 3 If rs.eof then Response.Write "


Veritabanında Henüz Kayıt Yok.
" Response.End End If adet=rs.recordcount shf = Request.QueryString("shf") if shf="" then shf=1 end if %>    Foto Galeri / <%=rs("kategori")%>

 

<% rs.pagesize = 24 rs.absolutepage = shf sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for if i mod 4=1 then response.write "" end if %> <% if i=4 or i=8 or i=12 or i=16 or i=20 or i=24 or i=28 or i=32 or i=36 or i=40 or i=44 or i=48 or i=52 or i=56 or i=60 then response.write "" end if %> <% rs.movenext %> <% if i mod 4=0 then response.write "" end if next %>

Galeride <%=adet%>  Adet Resim Mevcut |  Sayfa : <% for y=1 to sayfa if shf=y then response.write y else response.write " ["&y&"] " end if next %>

ANA SAYFA   |  KARİYER   |   BASINDAN   |   FOTO GALERİ   |   VİDEOLAR   |   ZİYARETÇİ DEFTERİ   |   İLETİŞİM

 
  <%=firma%>