<%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 <%m = n + 10%> <% Dim I For I = n To m %> <% if I < dem or I = dem then %> <%else%> <%end if%> <% Next%>

Trở Lại

<%=I%>

Kế Tiếp

<%response.buffer=true%> <% n=Cint(ReQuest.QuerysTring("next")) ab=trim(1) sqlstr="select *from Amnhac;" rs.open sqlstr,conn RS.MOVEFIRST %>

Tên Bài Hát

Nhạc Sĩ

Ca Sĩ

Thể Loại

Play

<% f=0 m= n + 10 %> <% for j=1 To m %> <% RS.MOVENEXT %> <% if j > n or f = m then %>

<%=rs("Tenbaihat")%>		<%=rs("Nhacsi")%>		<%=rs("Casi")%>		<%=rs("LoaiNhac")%>

<%end if%> <% Next %> <%=j%>