<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<content>
<%
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 "<mp3 Thumb='playlist/thumb1.jpg' Title='"&rs("M_title")&"-"&rs("M_artist")&"' Path='"&rs("M_link")&"'/>"
else
response.Write "<mp3 Thumb='playlist/thumb1.jpg' Title='"&rs("M_title")&"-"&rs("M_artist")&"' Path='http://"&D_domain&"/media/"&rs("M_link")&"'/>"
end if
rs.movenext
		loop
	end if
set rs=nothing
%>
</content>
