Quote:
<%
' ANOTHER SHOUTCAST STATUS PAGE v. 1.1
' By Philip 'daPhil' Johannessen, May 2003 (upd. v. 1.1 August 2004)
' www.daphil.com (sign my guestbook!)
' E-Mail: me@daphil.com
' MSN Messenger: daphil@hotmail.com
'FEEL FREE TO EDIT LAYOUT TO SUIT YOUR SITE, THATS THE IDEA 
'USER DEFINED VARIABLES (CHANGE THESE)
ServerDomain = "66.135.32.14" 'DOMAIN. JUST THE DOMAIN OR IP, NOTHING ELSE LIKE "HTTP://" 
ServerPass = "password" 'PASSWORD
ServerPort = "9000" 'STREAMINGPORT, DEFAULT FOR SHOUTCAST IS 8000
AdminPsw = "password" 'PASSWORD FOR VIEWING THE USERLIST
AutoRefresh = 30 'THE REFRESHRATE IN SECONDS, REMEMBER TO CONSIDER THE SERVERLOAD
'AUTO PAGE REFRESH
Response.AddHeader "Refresh", AutoRefresh
'RECIEVE LOGIN
If Request.Form("psw") <> "" Then
If Request.Form("psw") = AdminPsw Then
Session("SCAdmin") = "true"
End If
End If
'RECIEVE LOGOUT
If Request.Form("killadmin") Then
Session.Contents.Remove("SCAdmin")
End If
'SECONDS TO MINUTES CONVERTER
Function secConverter(secs)
Mins = Fix(secs / 60)
Response.Write Mins
End Function
'MAKE SERVERURL
ServerURL = "http://"& ServerDomain &":"& ServerPort &"/admin.cgi?pass="& ServerPass &"&mode=viewxml"
'INITIATE XMLDOM ENGINE
Set objXMLDOM = Server.Createobject("Microsoft.XMLDOM")
objXMLDOM.async = false
objXMLDOM.setProperty "ServerHTTPRequest", true
objXMLDOM.Load ServerURL
'CREATE COLLECTIONS AND ST
ServerStatus = objXMLDOM.SelectSingleNode("//STREAMSTATUS").text
StationName = objXMLDOM.SelectSingleNode("//SERVERTITLE").text
BitRate = objXMLDOM.SelectSingleNode("//BITRATE").text
ServerVersion = objXMLDOM.SelectSingleNode("//VERSION").text
MediaType = objXMLDOM.SelectSingleNode("//CONTENT").text
CurrentSong = objXMLDOM.SelectSingleNode("//SONGTITLE").text
Users = objXMLDOM.SelectSingleNode("//CURRENTLISTENERS").text
MaxUsers = objXMLDOM.SelectSingleNode("//MAXLISTENERS").text
Set SongHistory = objXMLDOM.SelectNodes("//SONG")
Set UserList = objXMLDOM.SelectNodes("//LISTENER")
%>
<html>
<head>
<title><%=StationName%></title>
<style>
body, td {
font-family: Trebuchet MS, Tahoma, Verdana;
font-size: 11px;
color: #000000;
}
.bigheader {
font-size: 40px;
}
.songtitle {
font-size: 20px;
}
.tables {
border-width: 1px;
border-style: solid;
border-color: #000000;
background: #EEEEEE;
}
.mini {
font-size: 9px;
}
</style>
<meta name="developer" content="Philip 'daPhil' Johannessen">
</head>
<body>
<table align="center" width="700" cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="center" colspan="2">
<font class="bigheader"><%=StationName%></font><br>
<% If ServerStatus = 0 Then %>
Server is currently down
</td>
<% Else %>
Shoutcast v<%=ServerVersion%> streaming <%=MediaType%> at <%=BitRate%> kbps
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2" align="center">
Current song
<table width="100%" class="tables">
<tr>
<td align="center">
<font class="songtitle"><%=CurrentSong%></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="50%" align="center" valign="top">
Song history
<table cellpadding="2" cellspacing="0" border="0" class="tables" width="98%">
<% For Each Song In SongHistory %>
<% If NOT Song.SelectSingleNode("TITLE").text = CurrentSong Then%>
<tr>
<td><%=Song.SelectSingleNode("TITLE").text%></td>
</tr>
<% End If %>
<% Next %>
</table>
</td>
<td width="50%" align="center" valign="top">
Connected users - <%=Users%> / <%=MaxUsers%>
<% If Session("SCAdmin") Then %>
<table cellpadding="0" cellspacing="0" width="100%" border="0">
<% For Each User In UserList %>
<tr>
<td>
<table cellpadding="2" cellspacing="0" border="0" class="tables" width="98%" align="right">
<tr>
<td align="center">
<b><%=User.SelectSingleNode("HOSTNAME").text%></b><br>
<font class="mini"><%=User.SelectSingleNode("USERAGENT").text%><br>
<%=User.SelectSingleNode("UNDERRUNS").text%> underruns in <%secConverter(User.SelectSingleNode("CONNECTTIME").text)%> mins</font>
</td>
</tr>
</table>
</td>
</tr>
<tr><td><div align="right" class="mini" style="position:relative;top:-1;"># <%=User.SelectSingleNode("UID").text%></div></td></tr>
<tr><td> </td></tr>
<% Next %>
</table>
<form method="post">
<input type="hidden" name="killadmin" value="true">
<input type="submit" value="Admin Logout">
</form>
<% Else %>
<form method="post">
<input type="password" name="psw"> <input type="submit" value=">>"><br>
<font class="mini">Please enter the password to view the userlist.</font>
</form>
<% End If %>
</td>
<% End If %>
</tr>
</table>
</body>
</html>
<%
'CLEAN UP
Set objXMLDOM = NOTHING
Set SongHistory = NOTHING
Set UserList = NOTHING
%>
|
i have this asp status script and when i run it on my server i got this error below...
Microsoft VBScript runtime error '800a01a8'
Object required: 'objXMLDOM.SelectSingleNode(...)'
serverstatus.asp, line 50
What can it be the problem please help me...
thanxx
6th October 2004, 21:58
Threaded Mode