<% '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 %> You ain't gonna find it !

Have you formed your team?



"nuts
They found it!

Laura found the bullet at around 5:00pm
Friday.

In a bike rack at the Discovery Museum.

Join us tomorrow (Saturday) at the Irish Pub at 5:00pm for the prize celebration.
Thanks to you and our sponsors. "

$250.00 Cash From A & L Coors!

Tickets to the Snowdown Follies!!
Saturday Night at the Strater!

$75.00 Gift Certificates from:
4x4 Auto Sales

Dietz Market
Creature Comforts
Krogers Hardware
Southwest Auto Center
Kacina KitchenWagon Wheel Liquors
Southwest Community Credit Union4x4 and More
Hometownbeat.com

And now...the clues.


Pay no attention to capitalization nor punctuation.
Just the words....it's radio!

Monday, January 27th

6:45am -No digging, No climbing...Period!
9:45am -Social necessities.
12:45pm - City limits not withstanding.
3:45pm - Building relationships.
6:45pm - Remember last year?

Tuesday, January 28th
6:45am - Run, Walk, Drive, Swim.

9:45am - Creating an impression.
12:45pm - Giving thanks for things known and unknown.
3:45pm - Do it right the first time, or there will be trouble.
6:45pm - The rain, the park and other things.

Wednesday, Jan 29th

6:45am the asphalt jungle
9:45am Que up. Single File.
12:45pm It's not easy being green
3:45m I wonder if Jack will do it again next year.
6:45pm New Ice Newton

Thursday, Jan 30th

6:45am Some unique gifts, some unique people.
9:45am It's original use was part of a government plan.
12:45pm I didn't know that was a Street.......or is it an Avenue?
3:45pm Flashing red lights and an Accent.
645pm Tom, Hank, and Nick would have been proud



"So...do you have the Silver Bullet?"