<% '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 %> The Snowdown 2013 Montage Contest


Todays News Home Page

News Page
Chamber Chat, FYI, LaPlata County Update,Newscast & Specials
Fun Links
Employment with FCB
Advertise with FCB





















Upcoming Events

Snowdown 2014

Don't miss the

Safari on

Radio 101



Register as A Frequest Listener

Listin On Line
Fort Lewis Sports

Listen Live

On Air Broadcasts
Live On
KRSJ-FM 100.5 & 104.9
CU Buffalos
Denver Broncos
Colorado Avalanche

Live On
Sports Stop 930 KIUPColorado RockiesFort Lewis Footbal & BasketballDenver Nuggets

The 2013 Snowdown
Musical Montage Contest!
Brought to you by,
Dietz Market
Here is how it works.

Listen to

For the montage.

When you have the answers, E-mail your entry to:


Fax entries to:970-247-1005
From the correct entries one person will be drawn to win the grand prize
One Snowdown Poster

One Snowdown Tee Shirt

One pair of tickets to the FOLLIES!

Saturday 10:00pm

Dietz Market
26345 Hwy 160  Durango CO 81301