<% 'HIT COUNTER 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsAccess 'Holds the recordset for the new record to be added to the database Dim strSQL 'Holds the SQL query for the database Dim counter 'Holds counter value from database Dim strCurrentPage 'Holds name of current web page strCurrentPage = "Index" 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/Hits.mdb") 'Create an ADO recordset object Set rsAccess = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblHits.Index, tblHits.Advertising, tblHits.Classifieds, tblHits.Commercial_Advertising, tblHits.Contact, tblHits.Contests, tblHits.Coupons, tblHits.Employment, tblHits.Events, tblHits.Fun_Links, tblHits.KIQX, tblHits.KIUP, tblHits.KKDC, tblHits.KRSJ, tblHits.Listen_Live, tblHits.Loyal_Listener_Registry, tblHits.News, tblHits.PSA, tblHits.Sports, tblHits.Weather FROM tblHits;" 'Set the cursor type we are using so we can navigate through the recordset rsAccess.CursorType = 2 'Set the lock type so that the record is locked by ADO when it is updated rsAccess.LockType = 3 'Open the tblComments table using the SQL query held in the strSQL varaiable rsAccess.Open strSQL, adoCon Set counter = rsAccess(strCurrentPage) counter = counter + 1 rsAccess.Fields(strCurrentPage) = counter rsAccess.Update adoCon.Close %> 2009 United Way Celebration
Home Page
News Page
Chamber Chat, FYI, LaPlata County Update,Newscast & Specials
Weather
Contests
Sports
Advertising
photoalbums
Fun Links
Employment with FCB
Advertise with FCB
Contact Us

Copyright

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Upcoming Events

14th Annual Radiothon
For The United Way of
Southwest Colorado.
KIQX-KIUP-KRSJ
8:00am-6:00PMFriday September 10

See What is Coming Up
For Your Bids

 

 

Register as A Frequest Listener Listen Live
 Fear the Hawk

FLC Listen Live

Colorado Rockies
Live On
KIUP Sports Stop 930

 

 

 

 

 

 

This is a recording of the
United Way 2009 Campaign Celebration
On KIQX-FM.
United Way President & CEO
Tim Walsworth,
Champaign Chairs Chessa & Jay Gill
Joined Tom Little For Some Great Music,
As Well As Acknowledging Those Organizations And Individuals That Made This A Great Year.

United Way Radio 101

L-R Chessa Gill, Jay Gill and Tim Walsworth
L-R 2009 Campaign Chairs Chessa, Jay Gill
UW President & CEO Tim Walsworth

We Have Cut This into 2 Parts.
Hour 1

Hour 2


Please be patient these make take some time to load.

Thanks to your Generosity, The United Way
RAISED OVER $715,000 THIS YEAR!

The Campaign Kicks off for 2010 on
September 10, 2010
Our Thanks to Everyone in
Southwest Colorado for
Living United.

United Way