<% '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 %> KIQX Radio 101

Chamber Chat, FYI, LaPlata County Update,Newscast & Specials

Contests

Lyle Lovett In Concert
July 27, 2009
Ray Dennison Field
Fort Lewis College

Three Ways To Win
Tickets To
Music In The
Mountains

Live On

Request Line: 259-4456

Translators

96.7 FM

Cortez Dolores

Farmington, NM

97.5 FM
Pagosa Springs

Affiliations

CBS News

Associated Press

A DAY IN THE LIFE OF RADIO 101

MONDAY - FRIDAY

E-mail Tom

TOM LITTLE IN THE MORNING
6:OOam - 12:OOpm
CBS News and Wes Stein with the
Local News on the Hour and Half Hour

Weather every hour at around 20 after.

Road Reports may be heard thoughout the day.

6:15am : School
6:40am : The Business Watch

7:40am : Tom's Little Game

7:50am : Coffee Break

8:10am : Business Journal (Wednesdays)

8:40am : Cybernation News

8:50am : Tom's Top News
9:20am : Four Corners Notebook

9:40am : Golden Moldy

COSMO;IN THE AFTERNOON
2:OOpm - 6:OOpm

CBS News on the Hour and Gina Antrillo with the

Local News at 4pm, 5pm, and 6pm.

Weather every hour at around 20 after.

1:05pm :Crimestoppers (Tuesday & Thursday).

3:05pm :Adopt-A-Pet & Pet Tips.

4:30pm : The Sport Express (Sports with Ray McDonnell & Sports Trivia).

4:45pm : Local News Headlines & Road Report.

Mike Riggs

E-mail Mike

MIKE RIGGS IN THE EVENING
6:OOpm - 12:OOam

THE FRIDAY NIGHT SPECIALS

SATURDAY

CBS News on the Hour

Weather at around 20 after the hour.

7:30am : Four Corners Scorecard.

Four Corners Wonderful Weekend :
Information about events going on in the area.

CBS News on the Hour

Weather at around 20 after the hour.

THE SATURDAY NIGHT SPECIALS

SUNDAY

CBS News on the Hour

Weather at around 20 after the hour

7:30am : Four Corners Scorecard

Four Corners Wonderful Weekend :
Information about events going on in the area.

THE SUNDAY NIGHT SPECIALS

FCB