|
|
<%
%>
|
| Adı |
Ekleyen |
Hit |
<%
Dim sayfa
sayfa = Request.QueryString("sayfa")
if sayfa="" then
sayfa = 1
end if
ilkharf=Request.QueryString("ilkharf" )
Set yaz = Server.CreateObject("ADODB.Recordset" )
sor = "Select * from tarif_tarifler where tarif_adi like '" & ilkharf & "%' and onay=true order by tarif_adi asc "
yaz.Open sor,conn,1,3
if yaz.eof then
response.write ""&"Kayıt Bulunamadı.Lütfen Başka bir Harfe Tıklayınız..."&""
else
yaz.pagesize = 20
yaz.absolutepage = sayfa
sayfa_sayisi = yaz.pagecount
for i=1 to yaz.pagesize
if yaz.eof then exit for
%>
|
| &kat=<%=yaz("kat_id")%>"><%=yaz("tarif_adi")%> |
<%=yaz("ekleyen")%> |
<%=yaz("hit")%> |
<%
yaz.movenext
Next
%>
|
Sayfa No :
<%
for z=1 to sayfa_sayisi
if sayfa=z then
response.write z
else
response.write "["&z&"]"
end if
next
end if
%>
|
 Geri
|
|