LeolandCity Foto Galeri
<% 'id=request("id") id="110" Set Rs=Server.CreateObject("Adodb.Recordset") sorgu = "Select * from galeri where Catid="&id&" order by id desc" Rs. Open Sorgu, Bag, 1, 3 adet=rs.recordcount shf = Request.QueryString("shf") if shf="" then shf=1 end if %> <% If rs.eof then Response.Write "
Veritabanynda kayytly Resim yok...
" Response.End End If %> <% rs.pagesize = 5 rs.absolutepage = shf sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for %> <% rs.movenext %> <% next %>
" target="uye" onClick="window.open('galeri_detay.asp?id=<%=rs("id")%>','uye','width=800,height=600 toolbar=yes scrollbars=yes' )"> " target="uye" onClick="window.open('galeri_detay.asp?id=<%=rs("id")%>','uye','width=800,height=600 toolbar=yes scrollbars=yes' )">" border=0 width="100" height="100" alt="<%=rs("detay")%>"> Resim Açıklaması : <%=rs("detay")%>
Tarih : <%=rs("tarih")%>
İzlenme : <%=rs("izlenme")%>

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

Ahşap Kalitesi !...
Ahşap Doğallığı !...
Özgün Proje !...
Üstün Özellikler !...
Kolay Ulaşım !...
 

 

Arslan Holding Web Sitesi için tıklayınız... Arslan Holding Web Sitesi için tıklayınız...