<% 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%>