Re: [Emerald] How many ports are used.

Dan Tang ( (no email) )
Wed, 12 May 1999 09:40:38 +0800

This is a multi-part message in MIME format.

------=_NextPart_000_00E1_01BE9C5B.7E4E72E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

What about an ASP page! I attach here.

Regards,

Dan Tang
Network Operation
Domain Internet Access
---------------------------------------------------
Sign Up a Dial up account at http://account.dmn.com.au and get connect
right now.
Free web hosting for commercial customers.
---------------------------------------------------
Join the Emerald ASP Addon Product mailing list
by sending email to emerald-request@dmn.com.au with message body SUBSCRIBE
only

-----Original Message-----
From: Ed Miller <emiller@del.net>
To: emerald@iea-software.com <emerald@iea-software.com>
Date: Tuesday, May 11, 1999 8:21 PM
Subject: [Emerald] How many ports are used.

> A while back I had a SQL script that gave me how many
>ports were in use at a time I entered into the script.
>I have lost it when one of my machines went south
>and need it very badly. Does anyone out there have
>one that will tell me how many people are on line at
>any one time.
> I have people that said they could not get in at
>night and I need to know if it is the phone co. or
>my ports are full.
> I suspect that it is a fast busy but I need proof that
>my line are not full.
>
>Thanks
>Ed Miller
>
>

------=_NextPart_000_00E1_01BE9C5B.7E4E72E0
Content-Type: text/asp;
name="whoison.asp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="whoison.asp"

<%@ LANGUAGE=3D"VBSCRIPT" %>
Document Title<%Set Emerald =3D Server.CreateObject("ADODB.Connection")Emerald.ConnectionTimeout =3D Session("Emerald_ConnectionTimeout")Emerald.CommandTimeout =3D Session("Emerald_CommandTimeout")Emerald.Open Session("Emerald_ConnectionString"), =Session("Emerald_RuntimeUserName"), Session("Emerald_RuntimePassword")Set cmdTemp =3D Server.CreateObject("ADODB.Command")Set EldCallOnLine =3D Server.CreateObject("ADODB.Recordset")cmdTemp.CommandText =3D "SELECT NASPort, Username, CallDate, =FramedAddress FROM CallsOnline WHERE (AcctStatusType =3D 1) order by =Username"cmdTemp.CommandType =3D 1Set cmdTemp.ActiveConnection =3D EmeraldEldCallOnLine.Open cmdTemp, , 0, 1%><%While not EldCallOnLine.eof%> <%EldCallOnline.movenextWend%>

Port Number

User Name

Start Time

IP Address
<%=3DEldCallOnline(0)%> <%=3DEldCallOnline(1)%> <%=3DEldCallOnline(2)%> <%=3DEldCallOnline(3)%>

------=_NextPart_000_00E1_01BE9C5B.7E4E72E0--