<% '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 !
$250.00 Cash From A & L Coors
Two-night stay, dinner for two for two nights.
$75.00 Gift Certificates from:
To find out how to use your bounty click on any sponsor.
Clues from January 30, 2012
A tale of two cities.
. If you go North You'll Have to go South. Ain't no Sunshine till I'm Gone. No Digging Around. You may have to root around a cover up.
Clues for January 31, 2012 Northbound 550 is a good starting point. Or Main A fire breathing dragon may have caused this. Block of bears and Billy goats gruff. Main Street, Camino Del Rio, and Durango. Train tracks, Trolley tracks, the river.
Wednesday Februrary 1, 2012 East on the East on the West. You could take the trolley 12 high, 4 around, and two more Fire Engines, Little Red Riding Hood, and Grandmother’s House
Be a part of it all
Thursday, February 2nd
06:45am It’s all about being a local
09:45am It’s not on the map
12:45pm Rapunzel had none. This spot has 3.
03:45pm Looking out my front door
06:45pm For whom the bell trolls
Friday, February 3rd
06:45am 1870’s, 1880, 1900ish, 1904
09:45am 1876 has two things going for it
12:45pm How much water is in that thing
03:45pm Mr. Peterson’s House.
06:45pm Hand hewn Ponderosa in Old Animas City, No not climb, do not dig.
It Has Been found!
Joion Us Tonight (Saturday, February 4, 2012 ) at
the Lost Dog Saloon 1150 Main in Durango, at 5:00pm for the award
ceremony.
Thanks for Playing.
A tale of two cities.
If you go North You'll Have to go South.
Ain't no Sunshine till I'm Gone.
No Digging Around.
You may have to root around a cover up.
Northbound 550 is a good starting point. Or Main
A fire breathing dragon may have caused this.
Block of bears and Billy goats gruff.
Main Street, Camino Del Rio, and Durango.
Train tracks, Trolley tracks, the river.
East on the East on the West.
You could take the trolley
12 high, 4 around, and two more
Fire Engines, Little Red Riding Hood, and Grandmother’s House
Be a part of it all