<%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 %> <% Dim I For I = 0 To 10 %> <% Next%>

<%=I%>

Kế Tiếp

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

Tên Bài Hát	Nhạc Sĩ	Ca Sĩ	Thể Loại	Play
<%RS.MOVEFIRST%> <% for j=0 To n %> <% RS.MOVENEXT %> <% if j > 0 or j = n then %> <%=rs("Tenbaihat")%> <%=rs("Nhacsi")%> <%=rs("Casi")%> <%=rs("LoaiNhac")%>   <%end if%> <% Next %>