<% set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) 'do it like to make sure we get the current count query = "update q3a_hits set " & _ "hits = (SELECT hits as total_hits " & _ "FROM q3a_hits) + 1" 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) 'now we want the page total, and as we can't get it 'from the above query (as far as i know) we need to 'make a second query :[ query = "SELECT hits as total_hits " & _ "FROM q3a_hits" set tigRS = tigCON.Execute(query) %>

<%=tigRS("total_hits")%> pages viewed since 30th Jan 00 <% 'set tigCON = Server.CreateObject("ADODB.Connection") ' tigCON.Open(DSN) query = "select sum(num_dload) as dloads from q3a_download" set tigRS = tigCON.Execute(query) %> <%=tigRS("dloads")%> downloads started since 2nd Mar 00 ..::LvL © 1999-2001 Tigger-oN

<% tigRS.close tigCON.close '-------- 'work out where people go! 31.mar.01 'Dim objPageCount 'Set objPageCount = Server.CreateObject("MSWC.PageCounter") 'Increment the counter 'objPageCount.PageHit() 'Display the total number of hits to the page 'Response.Write("") %>