<% id=request("id") Set Rs=Server.CreateObject("Adodb.Recordset") sorgu = "Select * from galeri 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 "Veritabanında Kayıt 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 %>

RESİM	ARAÇ DETAYLARI
" 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("marka")%>">	Marka: <%=rs("marka")%> Tip: <%=rs("tip")%> Model: <%=rs("model")%> Türü: <%=rs("turu")%> Renk: <%=rs("renk")%> Kilometre: <%=rs("kilometre")%> Özellikler: <%=rs("ozellikler")%> Eklenme Tarihi:<%=rs("tarih")%> Tutar:<%=rs("tutar")%>

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