<%
say = 200
Set rs = Server.Createobject("ADODB.Recordset")
if request("harf")="" then
sql = "SELECT Distinct ETIKET FROM ETIKETLER"
else
sql = "SELECT Distinct ETIKET FROM ETIKETLER WHERE ETIKET like '"& request("harf") &"%'"
end if
rs.open sql, baglan, 1, 3
toplam=rs.recordcount
if request("sayfa")<>"" then rs.move request("sayfa")*say
for t=1 to say
if rs.eof then exit for
%>
<%if t mod 4=1 then%>
<%end if%>
|
.htm"><%=replace(rs("ETIKET"),"-"," ")%>
|
<%if t mod 4=0 then%>
<%end if%>
<%
rs.movenext : next
rs.close : set rs = nothing
%>
Dišer Sayfalar :
<%
sayfala = int(toplam/say)
if int(toplam/say)<>(toplam/say) then sayfala=sayfala+1
for m=0 to sayfala-1
if request("sayfa")="" then
%>
"><%=m+1%> |
<%elseif cint(request("sayfa"))=cint(m) then%>
<%=m+1%> |
<%else%>
"><%=m+1%> |
<%end if%>
<%next%>
|
|
