<% @LANGUAGE="VBSCRIPT" %> <% Response.Expires = 0 %> <% Server.ScriptTimeout = 1200 %> <% On Error Resume Next %> <% ' Check if we have to log out... If Request.QueryString("mode") = "logout" Then ' Update the circuit access date ' Get the record ID to update LineID = Session("DBID") If LineID = "" Then ' The Session Expired Response.Redirect(LogOutURL) End If Set rsAuthenticate = DBConn.Execute("UPDATE Monitor_Authenticate SET LastVisit='" &_ Month(Date()) & "/" & Day(Date()) & "/" &_ Year(Date()) & " " & Time &"' WHERE (ID=" & LineID & ")") Session.Abandon Response.Redirect(LogOutURL) End If ' Status is a universal indicator implemented to show us which part of the authentication process is ' failing. ' For now, Status has the following values. ' 0) No errors, everything was successfull. ' 1) Circuit number not found in the database. ' 2) The given password did not match for the circuit number. ' 3) We are logged out and should redirect back to SunnyLine ' We only execute this code if the user actually submitted the login form from the page. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then ' Get the values that he or she entered at the login page. Number = Request.Form("Number") Password = Request.Form("Password") ' Setup a default error code. We use a incorrect circuit number here. Status = 1 ' Did The User Enter a circuit number & password? If Number = "" Then Status = 1 ' No circuit number Elseif Password = "" Then Status = 2 ' No password Else Status = 0 ' We have a circuit number & password, lets continue. End If ' If we have both circuit number and password, compare it to the database. If Status = 0 Then ' Pull the circuit number from the database. Set rsAuthenticate = DBConn.Execute("SELECT * FROM Monitor_Authenticate WHERE LineNumber=" & Number) Do While not rsAuthenticate.EOF ' We need to give DBPassword an initial value. If for instance, a client enteres a circuit ' number which is not located in the database, the lookup will fail and DBPassword won't have a ' value for us to compare to. The Rnd Function should be secure enough? DBPassword = Rnd(10) DBID = rsAuthenticate("ID") DBLine = rsAuthenticate("LineNumber") DBPassword = rsAuthenticate("LinePassword") DBSpeed = rsAuthenticate("LineSpeed") DBEMail = rsAuthenticate("EMail_Address") DBG_Day = rsAuthenticate("Graph_Day") DBG_Week = rsAuthenticate("Graph_Week") DBG_Month = rsAuthenticate("Graph_Month") DBG_Year = rsAuthenticate("Graph_Year") DBG_EMail = rsAuthenticate("Graph_EMail") DBDate = rsAuthenticate("LastVisit") If DBPassword = Password Then ' We got what we wanted, close the database connection... Just for incase. rsAuthenticate.close Set rsAuthenticate = nothing ' We setup the values inside the session before or after we move into monitor. ' This is just so that we don't have to do the entire lookup process again at displaying the graps to the user, if ' we save the values now, we are able to reference any setting in the DataBase that we would need at any given time. Session("DBID") = DBID Session("DBLineNumber") = DBLine Session("DBLinePassword") = DBPassword Session("DBLineSpeed") = DBSpeed Session("DBEMail_Address") = DBEMail Session("DBGraph_Day") = DBG_Day Session("DBGraph_Week") = DBG_Week Session("DBGraph_Month") = DBG_Month Session("DBGraph_Year") = DBG_Year Session("DBGraph_EMail") = DBG_EMail Session("DBLastVisit") = DBDate ' And we redirect !! Response.Redirect(MonitorURL) Else ' Passwords didnt match. We are not going to worry about incorrect circuit numbers, that ' will just make it easier for someone to maybe guess a line number if he or she has ' nothing better to do! Status = 2 End If rsAuthenticate.MoveNext Loop ' If we are here, there was serious error. This means perhaps a incorrect curciut number and or ' incorrect password. In any case, the lookup did fail, and we have no reference what so ever to the given value for ' the circuit number or password. Close the database and send the user back to the login section. rsAuthenticate.close Set rsAuthenticate = nothing End If End If %> Welcome To Monitor!!

Welcome to Monitor.SunnyLine.co.za

Congratulations on the purchase of your high-speed permanent connections to the Internet.  Please take a moment and log on to our monitoring system to see you bandwidth usage.

Your Circuit number will be the number printed on your Data Unit installed by Telkom (The small black box where your NTU or Modem plugs into).  If you have any problems locating your Circuit number, or have problems authenticating with this service, please contact us for immediate assistance at support@sunnyline.co.za

Wondering what is Monitor! Well, don't worry, read up all about monitor by clicking here.

Circuit Number:

<% If Status = 1 Then Response.Write ("Invalid Circuit Number!!!") End If %>

Your Password:

<% If Status = 2 Then Response.Write ("Invalid Password!!!") End If %>

 

Guest Users:
Please log in with Circuit Number:  1234567890
and Password:  12345678

to see a demo of this service right now.
 

©2000 SunnyLine Internet Services.  All Rights Reserved.

 
MRTG
Tobias Oetiker <oetiker@ee.ethz.ch> and Dave Rand <dlr@bungi.com>