<% myip=Request.ServerVariables("REMOTE_ADDR") myrefer=Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") mybrowser=Request.ServerVariables("HTTP_USER_AGENT") mytime=time mydate=date myuser=Request.ServerVariables("REMOTE_USER") myhost=Request.ServerVariables("REMOTE_HOST") %> <% Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "CFAA" mysql="INSERT INTO grabem (ipnum, refer,browser,currtime,currdate,remuser,remhost)VALUES('"&myip&"','"&myrefer&"','"&mybrowser&"','"&mytime&"','"&mydate&"','"&myuser&"','"&myhost&"')" set RS=MyConn.Execute(mysql) %> <% thedate=date thepage="default.asp" grabsql="SELECT pagename, permcount, today, todaycount FROM mystats WHERE pagename='"&thepage&"'" putsql="INSERT INTO mystats(pagename, permcount, today, todaycount) VALUES ('"&thepage&"', '1', '"&thedate&"', '1')" updatesql="UPDATE mystats SET permcount=permcount+1, todaycount=todaycount + 1 WHERE pagename='"&thepage&"'" updatedatesql="UPDATE mystats SET today='"&thedate&"', permcount=permcount+1, todaycount=1 WHERE pagename='"&thepage&"'" set RS=MyConn.Execute(grabsql) permcount=RS("permcount") today=RS("today") todaycount=("todaycount") if RS.EOF then set RS=MyConn.Execute(putsql) Else permcount=RS("permcount") today=RS("today") todaycount=RS("todaycount") end if if today=thedate then todaycount=todaycount + 1 permcount=permcount + 1 set RS=MyConn.Execute(updatesql) end if if today <> thedate then todaycount = 0 set RS=MyConn.Execute(updatedatesql) end if %> <% allsql="SELECT * FROM mystats" grabsql="SELECT pagename, permcount, today, todaycount FROM mystats WHERE pagename = '"&thepage&"'" set RS=MyConn.Execute(allsql) set RS=MyConn.Execute(grabsql) permcount=RS("permcount") today=RS("today") todaycount=RS("todaycount") set RS=Nothing MyConn.Close %> Home

Home Download This Clip Now!
Home Contents Search

Our Business
Personal Coaching
Business Coaching
Personal Tools
Business Tools
Free Downloads
Contact Us

Inspiring 

Career, Life and Business Leadership  

.....One person at a time. 

In our rapidly changing world, past success does not predict future success.
Leadership at the speed of life does! That’s why leaders nationwide rely on LeadNow coaching and performance tools
- to guarantee success.

 

Personal Coaching

Business Coaching

Are you making the progress you desire?
Are you doing what you are capable of?
If not, you may benefit from Career or
Life Coaching. Our clients rely on
Personal coaching to be more, do
more and achieve the best. 

Stay Ahead of the competition.
Don’t get swept away by change.
Working with us as Success
Partners, our clients achieve
explosive growth by improving
business at the individual level.

 

"Welcome, our web site is designed to introduce you to us and our success Partners (Our Clients). Our success partners are also our sales force. For over 10 years our growth has been fueled by their referrals." 

Charlie Farrell

 

Contact Us:


E-mail:    General Information: Charlie@LeadNow.com
                 Sales: Sales@LeadNow.com
                 Customer Support: Support@LeadNow.com
                Webmaster: WebInfo@LeadNow.com

Phone:     (703) 648-9414

Fax:          (703) 783-0581

By Mail:  Charles A. Farrell Associates
                 11003 Birdfoot Court
                 Reston, VA 20191

                 Have a great day on us!

Our Business     Our Success Partners     Leadnow Personal Coaching     Leadnow Business Coaching     Contact Us    
Personal Performance Tools     Business Development Tools     Leadership Newsletter     Free Downloads

Send mail to WebInfo@leadnow.com with questions or comments about this web site.
Copyright © 2000 Charls A. Farrell Associates
Last modified: September 11, 2005