<% media_id = Request("Media_id") dim objXMLDocument Set objXMLDocument = Server.CreateObject ("MSXML2.DOMDocument.3.0") objXMLDocument.async = false objXMLDocument.setProperty "ServerHTTPRequest", true objXMLDocument.load "http://" & useFileServer & "/getcontent.asp?Artist_uid=" & artist_id & "&content=/media/media" & aid & ".xml" %> <%=artist_name%> Media - Powered by Iventa
<% if objXMLDocument.selectNodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Windows Media Player']/format").length >0 then %>
Windows Media Player
<% lngCount = 0 for each objNode in objXMLDocument.selectnodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Windows Media Player']") lngCount = lngCount + 1 if lngCount > 1 then Response.Write " | " end if %>&title=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../title")))%>&desc=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../description"))) %>" class="continue"><% bitRate = SafeGetFromXPATH(objNode.selectsinglenode("./bitrate")) if bitRate = 0 then Response.Write "ALL" else Response.Write bitRate & "k" end if %><% next %>
<% end if %> <% if objXMLDocument.selectNodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Real Player']/format").length >0 then %>
Real Player
<% lngCount = 0 for each objNode in objXMLDocument.selectnodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Real Player']") lngCount = lngCount + 1 if lngCount > 1 then Response.Write " | " end if %>&title=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../title")))%>&desc=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../description"))) %>" class="continue"><% bitRate = SafeGetFromXPATH(objNode.selectsinglenode("./bitrate")) if bitRate = 0 then Response.Write "ALL" else Response.Write bitRate & "k" end if %><% next %>
<% end if %> <% if objXMLDocument.selectNodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Quick Time']/format").length >0 then %>
Quick Time
<% lngCount = 0 for each objNode in objXMLDocument.selectnodes("/media-items/media[item-id =""" & media_id & """]/mediaitem[format='Quick Time']") lngCount = lngCount + 1 if lngCount > 1 then Response.Write " | " end if %>&title=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../title")))%>&desc=<%=server.URLEncode(SafeGetFromXPATH(objNode.selectsinglenode("../description"))) %>" class="continue"><% bitRate = SafeGetFromXPATH(objNode.selectsinglenode("./bitrate")) if bitRate = 0 then Response.Write "ALL" else Response.Write bitRate & "k" end if %><% next %>
<% end if %>
<%= SafeGetFromXPATH(objXMLDocument.selectSingleNode("/media-items/media[item-id =""" & media_id & """]/title"))%>
<%= SafeGetFromXPATH(objXMLDocument.selectSingleNode("/media-items/media[item-id =""" & media_id & """]/description"))%>
<% Function SafeGetFromXPATH(oValue) If oValue Is Nothing Then SafeGetFromXPATH = "" Else SafeGetFromXPATH = oValue.Text End If End Function %>