<% @LANGUAGE="VBSCRIPT" %> <% Response.Expires = 0 %> <% Server.ScriptTimeout = 1200 %> <% If ID = "" Then Response.Redirect(NoAuthURL) End If ' We only execute this code if the user actually submitted the configuration form from the page. If Request.ServerVariables("REQUEST_METHOD") = "POST" Then ' Get the values that he or she entered at the configuration page. Password = Request.Form("Password") ' The circuit password. NewPassword = Request.Form("NewPassword") ' Change password. NewConfirmedPassword = Request.Form("ConfirmPassword") ' Change password confirmation. EMail = Request.Form("TechEMail") ' Technical E-Mail address. Graph_Daily = Request.Form("Daily_Graph") ' Display Daily Graphs. Graph_Weekly = Request.Form("Weekly_Graph") ' Display Weekly Grahps. Graph_Monthly = Request.Form("Monthly_Graph") ' Dispaly Monthly Graphs. Graph_Yearly = Request.Form("Yearly_Graph") ' Display Yearly Graphs. ' Check Graph_Daily If Graph_Daily = "" Then Graph_Daily = 0 Else Graph_Daily = 1 End If ' Check Graph_Weekly If Graph_Weekly = "" Then Graph_Weekly = 0 Else Graph_Weekly = 1 End If ' Check Graph_Monthly If Graph_Monthly = "" Then Graph_Monthly = 0 Else Graph_Monthly = 1 End If ' Check Graph_Yearly If Graph_Yearly = "" Then Graph_Yearly = 0 Else Graph_Yearly = 1 End If ' Did the user enter his or her password? If Password = "" Then ' We dont have a password! Error = "Please Enter Your Password" End If ' Now that we have the password, compare in in the database... set rsPassword = DBConn.Execute("SELECT LinePassword FROM Monitor_Authenticate WHERE ID=" & ID) TempPass = rsPassword("LinePassword") ' Get the password in the database. rsPassword.close ' Close the lookup record. Set rsPassword = Nothing If Password <> TempPass Then ' The password did not match the database. Error = "Invalid Password" End If If NewPassword <> "" Then ' Compare the NewPassword with the ' ConfirmedPassword... If NewPassword <> NewConfirmedPassword Then ' The two password do not match. Error="Your Passwords Did Not Match" Else Password = NewPassword ' Set the new password to be updated in the ' database. End If End If If Error = "" Then ' If we do not have a error, everything is ' well, lets update the records. If ID <> 1 Then ' ID 1 is the guest account, dont update the ' database. set rsUpdate = DBConn.Execute("UPDATE Monitor_Authenticate SET LinePassword='" & Password & "', " &_ "EMail_Address='" & EMail & "', " &_ "Graph_Day=" & Graph_Daily & ", " &_ "Graph_Week=" & Graph_Weekly & ", " &_ "Graph_Month=" & Graph_Monthly & ", " &_ "Graph_Year=" & Graph_Yearly &_ " WHERE (ID=" & ID & ")") Set rsUpdate = nothing ' Database update successfull. End If ' Update Session information... Session("DBLinePassword") = Password ' Update the password for the session. Session("DBEMail_Address") = EMail ' Update the E-Mail for the session. If Graph_Daily = 1 Then ' Daily Graph Session("DBGraph_Day") = True Else Session("DBGraph_Day") = False End If If Graph_Weekly = 1 Then ' Weekly Graph Session("DBGraph_Week") = True Else Session("DBGraph_Week") = False End If If Graph_Monthly = 1 Then ' Monthly Graph Session("DBGraph_Month") = True Else Session("DBGraph_Month") = False End If If Graph_Yearly = 1 Then ' Yearly Graph Session("DBGraph_Year") = True Else Session("DBGraph_Year") = False End If Response.Redirect(MonitorURL) ' Everything is updated, go back to ' monitor. End If End If %>

Monitor Configuration For Circuit Number: <%= LineNumber %>
Logout of MonitorBandwidth Details
Circuit Number: <%= LineNumber %> Circuit Speed: <%= LineSpeed %> bps Technical Contact: <%= EMail_Address %>
You Last Visited Monitor On: <%= LastVisit %>
<%' Do we have a error that the user needs to know about? If Error <> "" Then %>

<%= Error %>

<% End If %>

Please take note, for your changes to take affect, you must enter your password in the first password field.  If you wish to change your password, you may then also complete the "New Password" and "Confirm Password" fields.

Your Password:

Required For ANY changes to be made
Change Your Password: New Password
  Confirm Password
Technical Contact E-Mail Address:
Show The Daily Graph: checked <% end if%>>
Show The Weekly Graph: checked<% end if %>>
Show The Monthly Graph: checked<% end if %>>
Show The Yearly Graph: checked<% end if %>>

©2000 Chris Knipe.  All Rights Reserved.

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