fatih dursun - 11 - Aspde sayfalama yapmak

Aspde sayfalama yapmak 









<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">

<title>New Page 1</title>

</head>

<body>

<table border="1" width="100%" id="table1">

<font color="#FF00FF">

<%

set data=server.createobject("adodb.connection")

set rst6=server.createobject("adodb.recordset")

data.Open "Provider=SQLOLEDB.1;Password=4671547;Persist Security Info=True;User ID=web;Initial Catalog=TICONA2005;Data Source=ramazan"     

rst6.open "select * from TBLSTSABIT order by STOK_KODU ",data,3,3

deste=15

Sayfa=rst6.recordcount/deste

sayi=request("S")

Liste=sayi * deste

if sayi=>2 then

for i= 0 to Liste-15

	if i=rst6.recordcount then

	exit for

	end if

rst6.movenext

next

else

end if

%>



</font>

<font color=#FF3300>

<%

if sayi=1 then

liste=1

end if

%>

<%

for i= liste to liste+Deste%>



<tr>

	<td><b><font size="1" face="Tahoma"><%=rst6.fields("STOK_KODU")%>--<%=rst6.fields("STOK_ADI")%></font></b></td>

	</tr>

	<%

    if i=rst6.recordcount then

	exit for

	end if

	rst6.movenext

	next

	%>

</table>



<table border="1" width="100%">

	<tr>

	<%for i=1 to Sayfa%><td><a href=index.asp?S=<%=i%>><%=i%></a></td><%next%>

	</tr>

	</font>

</table>

</body>

</html>