<% sirala=request("c") if request("c")="0" then sirala="baslik" if sirala<>"" then siralam=" order by "&sirala %>
Ürünler <% sql = "SELECT * FROM urun_kat where kodu LIKE '%"& request("a") &"%' " set guncela = Conn.execute(sql) if not guncela.eof then %> » <%=guncela("baslik")%> <% end if guncela.close %>  
 
Ürünleri Sırala : &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=baslik"> Ürün Cinsine Göre <%if sirala="baslik desc" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=baslik" style="text-decoration: none"> <%end if%> <%if sirala="baslik" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=baslik desc" style="text-decoration: none"> <%end if%> I  &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=fiyat"> Fiyatına Göre <%if sirala="fiyat desc" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=fiyat" style="text-decoration: none"> <%end if%> <%if sirala="fiyat" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=fiyat desc" style="text-decoration: none"> <%end if%>   I  &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=tarih">Ekleme Tarihine Göre <%if sirala="tarih desc" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=tarih" style="text-decoration: none"> <%end if%> <%if sirala="tarih" then%> &page=<%=request("page")%>&a=<%=request("a")%>&b=1&c=tarih desc" style="text-decoration: none"> <%end if%>    
 
<% Set urunler = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM urun where kate LIKE '%"& request("a") &"%'"&siralam urunler.Open sql,Conn,3,3 kayit=urunler.recordcount if kayit<>0 then intGecerliSayfa = Request.Querystring("sayfa") If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 urunler.PageSize = 12 intSayfaSayisi= urunler.PageCount urunler.AbsolutePage =intGecerliSayfa end if say=0 for i=1 to 12 if urunler.eof then exit for urun=urunler("baslik") u_foto=urunler("foto") yenimi=urunler("yeni") kodu=urunler("ukodu") baslik=seola(urunler("baslik")) sayi=sayi+1 adet=urunler.recordcount %> <%if sayi=3 or sayi=6 or sayi=9 or sayi=12 or sayi=15 or sayi=18 or sayi=21 then%><%end if%> <% urunler.movenext next %>
<%if yenimi="1" then%>
Yeni
<%end if%> <%if u_foto<>"" then%> &b=1&c=1"> <%else%> <%end if%>

&b=1&c=1" style="text-decoration: none"> <%=urun%> <%if kodu<>"" then%>
 <%=kodu%> <%end if%> <%if urunler("fiyat")<>"" then%>
Fiyatı : <%=urunler("fiyat")%>  <%=urunler("doviz")%><%end if%>

<%if adet=0 then %>Bu kategoriye ait ürün bulunamadı
 <%end if%>
Sayfa :
<% Aralik = 12 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik %> <% If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If intGecerliSayfa >1 Then %> &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="İlk Sayfa">[««] &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="Önceki Sayfa">[«]<% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write " " Else %> &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="<%=i%>. Sayfa"><% End If Response.Write i &"." Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ." %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="<%=i%>. Sayfa"><% End If Response.Write i &"." Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ." %> <% For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="<%=i%>. Sayfa"><% End If Response.Write i &"." Next %> <% If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %> &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="Sonraki Sayfa">[»] &page=<%=request("page")%>&a=<%=request("a")%>&b=<%=request("b")%>&c=<%=request("c")%>" title="Son Sayfa">[»»]<% End If %>