<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version='1.0' encoding='gb2312'?>
<playlist>
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from music"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if left(rs("M_link"),4)="http" then
response.Write "<music><title><![CDATA["&rs("M_artist")&" - "&rs("M_title")&"]]></title><url>"&rs("M_link")&"</url></music>"
else
response.Write "<music><title><![CDATA["&rs("M_artist")&" - "&rs("M_title")&"]]></title><url>http://"&D_domain&"/media/"&rs("M_link")&"</url></music>"
end if
rs.movenext
		loop
	end if
set rs=nothing
%>
</playlist>