<!--#include file="../inc/jc_conn.asp"--><%
Dim id
id=saferequest("id")
set rs=server.createobject("adodb.recordset")
    sql="select * from musiclist where musicid in (" & id & ")"
    rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
NClass=rs("NClass")
name=rs("name")
url1=Rs("url1")
%>mkList("http://music/play/wma2.asp?u=<%=url1%>&m=<%=server.urlencode(name)%>&s=<%=server.urlencode(nclass)%>","<%=name%>","<%=NClass%>");
<%
 rs.movenext                                                                                                  
          if i>=50 then exit do 
		  loop  
rs.close
set rs=nothing
conn.close
set conn=nothing
%>