Now Playing
<%@LANGUAGE=JavaScript%>
<%
// Configure your Server IP, Port, Password
var sServer = "68.3.38.233"
var sPort = "8000";
var sPass = "vernreno";
var sBackURL = "/";
var sPageTitle = "Songpost --Currently Playing";
var sDownStream = "We Are Currently Not Broadcasting";
var sTitle = "";
Response.Expires = -1;
var bContinue = true;
try {
var oXML = Server.CreateObject("Microsoft.XMLDOM");
oXML.async = false;
var oDate = new Date();
var sDate = Server.URLEncode(oDate.toUTCString());
var sURL = "http://" + sServer + ":" + sPort + "/admin.cgi?pass=" +
Server.URLEncode(sPass) +
"&mode=viewxml&date=" + sDate;
var oTrans = Server.CreateObject("Microsoft.XMLHTTP");
oTrans.Open("GET", sURL, false);
oTrans.Send(oXML);
var sXML = new String(oTrans.responseText);
sXML = sXML.substr(sXML.indexOf(""));
oXML.loadXML(sXML);
var oDoc = oXML.documentElement;
var sTitle = new String(oDoc.selectSingleNode("//SONGTITLE").text);
sTitle = URLDecode(sTitle);
sTitle = sTitle.replace(/^[0-9]+[\.]+\s/i, "");
sTitle = sTitle.replace(/^[0-9]+[\s-]+\s/i, "");
var sTitle = Server.HTMLEncode(sTitle);
} catch (e) {
sTitle = Server.HTMLEncode(sDownStream);
bContinue = false;
}
%>
<%=sTitle%>
<%
if (bContinue) {
try {
// Getting the number of songs in History.
// First song is the currently playing song, so we gonna start our
// loop from the second song (index of 1)
var oSongs = oDoc.selectNodes("//SONG");
i = oSongs.length;
if (i > 1) {
for (n=1; n < oSongs.length; n++) {
var oSong = oSongs.item(n);
// Ok, lets get the song title ...
var sTitle = new String(oSong.selectSingleNode("TITLE").text);
// Lets clean up the title, as we do above.
sTitle = URLDecode(sTitle);
sTitle = sTitle.replace(/^[0-9]+[\.]+\s/i, "");
sTitle = sTitle.replace(/^[0-9]+[\s-]+\s/i, "");
// Encode it ...
var sTitle = Server.HTMLEncode(sTitle);
%>
| <%=sTitle%> |
<%
}
}
} catch (e) {
// Do Nothing
}
}
%>
<%
Dim xml, strData, url
'add your domain or ip address and port number.
url = "http://68.3.38.233:8000/listen.pls"
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", url, true
Call xml.Send()
On Error Resume Next
'this is the time out, it's set by default to 20 seconds
'but if your server has a slow connection it may have to be changed.
If xml.readyState <> 20 then
xml.waitForResponse 10
End If
If Err.Number <> 0 then
strData = "Error
check your configuration..."
Else
If (xml.readyState <> 4) Or (xml.Status <> 200) Then
xml.Abort
strData = "there was a problem connecting to shoutcast server...
error - script timed out"
Else
strData = xml.ResponseText
End If
End If
%>
<%=strData%>