<%@ LANGUAGE="VBSCRIPT" %>
Document Title
<%
Set Emerald = Server.CreateObject("ADODB.Connection")
Emerald.ConnectionTimeout = Session("Emerald_ConnectionTimeout")
Emerald.CommandTimeout = Session("Emerald_CommandTimeout")
Emerald.Open Session("Emerald_ConnectionString"), Session("Emerald_RuntimeUserName"), Session("Emerald_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set EldCallOnLine = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT NASPort, Username, CallDate, FramedAddress FROM CallsOnline WHERE (AcctStatusType = 1) order by Username"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Emerald
EldCallOnLine.Open cmdTemp, , 0, 1
%>
Port Number |
User Name |
Start Time |
IP Address |
<%
While not EldCallOnLine.eof
%>
| <%=EldCallOnline(0)%> |
<%=EldCallOnline(1)%> |
<%=EldCallOnline(2)%> |
<%=EldCallOnline(3)%> |
<%
EldCallOnline.movenext
Wend
%>