<!--#include file="conn.asp"-->
<!--#include file="../Path.Asp"-->
<%
MusicID=request.QueryString("id")
MusicArray=Split(MusicID, ",")
MusicNum = UBound(MusicArray)
set rs=server.createobject("adodb.recordset")
For i=0 To MusicNum
	sql="select Musicname,Wma,Singer,song_path,hits,smi,flag from [MusicList] where id ="&MusicArray(i)
	rs.open sql,conn,1,3
	If not rs.eof Then
	rs("hits")=rs("hits")+1
	rs.Update
	MusicName=rs("musicname")
	singer=rs("singer")
	smi=rs("smi")
	if smi="" then
	smi="нч"
	end if
	flag=rs("flag")
	if flag="" then
	flag=T
	end if
		songpath=rs("song_path")
		If songpath="" or IsNull(songpath) Then
			songpath=1
		End If
		Select Case songpath
			Case 1
				song_path=song_path1
			Case 2
				song_path=song_path2
			Case 3
				song_path=song_path3
			Case 4
				song_path=song_path4
			Case 5
				song_path=song_path5
			Case else
				song_path=song_path1
		End Select
		song_path=song_path&rs("Wma")
%>
mkList("<%=song_path%>","<%=musicname%>","<%=smi%>","<%=flag%>");
<%  
End If
rs.close
Next	
set rs=nothing
%>