<%@ LANGUAGE=VBScript %> <% Set asplObj=Server.CreateObject("ASPL.Login") asplObj.Group("Admin") asplObj.Group("Dealer") asplObj.Protect Set asplObj=Nothing Pagename = "school.asp" [an error occurred while processing this directive] if Session("asplUserID") <> "" then set asplObj=Server.CreateObject("ASPL.Login") set conntrace=Server.CreateObject("ADODB.Connection") conntrace.Open asplObj.getasplConnStr mytime = now set rs = Server.CreateObject("ADODB.Recordset") sqlStr = "Select * from trace" rs.Open sqlStr, conntrace, 1, 3 rs.AddNew rs("userid")=session("asplUserid") rs("username")=session("asplUsername") rs("readtime")=mytime rs("Pagename")=Pagename rs.Update rs.Close conntrace.Close set rs=nothing set conntrace=nothing set asplObj=nothing end if set altConn = Server.CreateObject("ADODB.Connection") set altRS = Server.CreateObject("ADODB.Recordset") set altConn = Server.CreateObject("ADODB.Connection") set altObj = Server.CreateObject("ASPL.Login") set altRS = Server.CreateObject("ADODB.Recordset") altConn.Open altObj.getasplConnStr altRS.Open "Select * from trace where username like " & "'" & Session("asplUserName") & "'" & "AND pagename like " & "'" & Pagename & "'", altConn COUNT_DAYS = 0 FIRST_DATE = altRS("readtime") Do while Not altRS.EOF COUNT_DAYS = COUNT_DAYS + 1 LAST_DATE = altRS("readtime") altRS.MoveNext loop DATE_DIFF = DateAdd("d",-30, LAST_DATE) if ((COUNT_DAYS = 5) or (COUNT_DAYS >= 5 And (COUNT_DAYS Mod 10 = 0))) And FIRST_DATE > DATE_DIFF then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ContentType = "text/html" JMail.ServerAddress = "mail.ddc.net" JMail.Sender = "ADMIN" JMail.Subject = "ALERT: " & Session("asplUserName") JMail.AddRecipient("info@aateledata.com") JMail.Body = "" & Session("asplUserName") & "" & " has accessed " & Pagename & " " & COUNT_DAYS & " times between: " & "

" & FIRST_DATE & " - " & Last_DATE JMail.Priority = 3 JMail.Execute end if altRS.close altConn.Close set altRS=Nothing set altConn=nothing %> Call accounting benefits for schools, education administrators, school districts. Monitor phone misuse, abuse, threats, pranks, and more.
You are Here: Home > Industry: Schools

Schools

Callwhere® Pro 2003 allows your administration to track incoming and outgoing calls. Callwhere® also allows you to monitor phone misuse and abuse, as well as track the origin, time, and duration of phone threats--allowing you to isolate and manage the situation quickly and efficiently.

Callwhere® also lets you track and allocate calls and costs by department.

Maximize your budget by evaluating your telephone needs (so there are enough phone lines but no unnecessary phone lines to cost you more money).