<%
set objHTTP=server.Createobject("MSXML2.ServerXMLHTTP")
objhttp.open "GET","http://control.lifeonshow.tv/autoapi/m-Ma2vtUDyjMT9g/json/playlist/CK08YUB",false
objHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
objhttp.send
dim bodytext
bodytext = objhttp.responsetext
if bodytext <> "Unauthorised Access" then
Set video = JSON.parse(bodytext)
response.write urldecode(video.singlePlayer)
else
response.write "
![]()
"
End If
%>