<% '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 %> Welcome to the Radiodurango Home Page
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

Bring Bruce Back

Bring Bruce Back
Click Here for More!

Photos from
the
Run for Bruce
2/25/2012

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Upcoming Events

Upcoming Events

YOU COULD WIN!
We are looking for
kindergarden-5th
graders to help us
Name that show.
Click here for More.

Taste of Durango
Sunday May 20, 2012
10:00 am- 3:00 pm
Downtown Durango

Listen to the
United Way Celebration
From April 6, 2012.
Guest DJ
Tim Walsworth
Hosted the Music
and presented
Awards for the 2011
UW Campaign

 

Register as A Frequest Listener
Listin On Line
Listen On LineFLC 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

Name that SHow Contest
Click on the poster to Enter!
________________________
Taste of Durango
Sunday May 20, 2012
11:00 am - 3:00pm
Downtown DurangoBirds Eye View of The Taste 2010

A bird's eye view of Taste of Durango 2010
Photo courtesy of Jonas Grushkin/Photogenesis Photography


Not for our Four Legged Furry Friends
No Pets Please