<% '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 tour team?

Team TrekkeTeam Lord of the Rings

$250.00 Cash From A & L Coors

Tickets to the Snowdown Follies!!
Saturday Night at the Strater!
$75.00 Gift Certificates from:
Dietz MarketKachina KitchenBank of the San Juans
Trimmble Hopt SpringsTrinkets and TreasuresAtmos Energy
Firestone of Durango
Samrt Enterprises
Wagon Wheel Liquors
4x4 and More

To find out how to use your stuff click on any sponsor.


Monday, January 28th
06:45am  Geeks and Nerds Rejoice
09:45am  Process Multiple Data Points
12:45pm  I can’t dig it, neither will you
03:45pm  Don’t consider doing anything dangerous. It’s not there.
06:45pm  Process the complete information, define that line

Tuesday, January 29th
06:45am Signs, Signs, Everywhere a sign
09:45am Does anybody really know what time it is?
12:45pm Does anybody really know what day it is?
03:45pm Look, up in the air, it’s a bird, it’s a plane
06:45pm If they build it, we will come, maybe.

Wednesday, January 30th 06:45am You could say the entire incorporated city of Durango….almost
09:45am Do they have to talk so much
12:45pm I was there, where  were you
03:45pm The Buses have arrived.
06:45pm An outdoor area for eating

Thursday, January 31st
06:45am There are bridges to somewhere
09:45am Manhole covers, Rocks, Cement, Steel and wooden beams
12:45pm Stop looking inside please. They don’t have a clue.
03:45pm The Beaver’s know, they had to be stopped
06:45pm How many entrances are there with a ten ton weight limit.