<%@ LANGUAGE=VBScript %> <% Set asplObj=Server.CreateObject("ASPL.Login") asplObj.Group("Admin") asplObj.Group("Dealer") asplObj.Protect Set asplObj=Nothing Pagename = "dealerforum.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 %> Callwhere Dealer Forum
You are Here: Home > Dealers > Dealer Forum

Downloads

What's New

New Features Added to Callwhere Pro 2005

We've added new features to Callwhere Pro 2005. Release 6.6.0034 includes several new features:

Full details are available in the 6.6.0034 Technical Bulletin.

Virtual On-Site Support

A&A Teledata has expanded its tech support and training options with a new Web-based service dubbed, Virtual On-Site. Virtual On-Site enhances tech support and training by allowing AATD sales and support reps to interact with remote Callwhere products via Webinar technology. Find out how Virtual On-Site services work for you.

Vertical Markets

Talk to Us

Do you have an idea, comment or suggestion? Tell us what you think about our Web site, products, or services by using our dealer feedback form.