<%response.buffer=true%>
<%
s="select *from Amnhac;"
rs.open s,conn
RS.MOVEFIRST
%>
<%
dem=0
%>
<%DO WHILE NOT RS.EOF%>
<%
dem=dem+1
%>
<%
RS.MOVENEXT
LOOP
%>
<%=dem%>
<%
conn.close
set conn=nothing
%>
<%
n=Cint(ReQuest.QuerysTring("next"))
%>
Next
|
Trở Lại |
<% m = n - 10 %>
<%
Dim I
For I = m To n
%>
<%
if I > 0 or I = dem then
%>
<%=I%> |
<%else%>
<%end if%>
<% Next%>
Kế Tiếp |