<%= RetrieveAndIncrementCount() %> <% Function RetrieveAndIncrementCount() Const adCmdText = &H0001 Dim strFilename Dim sSQL Dim iCount strFilename="rejseholdet" Set Rs=Server.CreateObject("ADODB.RecordSet") sSQL="SELECT page_name, hit_count FROM counter WHERE page_name='"&strFilename&"'" Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText Rs.MoveFirst iCount=Rs.Fields("hit_count").Value Rs.Close Set Rs = Nothing ' Response.Write iCount & "

" ' Increment counter re rejseholdet Set Rs2=Server.CreateObject("ADODB.RecordSet") sSQL="UPDATE counter SET hit_count = hit_count + 1 WHERE page_name='"&strFilename&"'" Rs2.Open sSQL, sDSN, adOpenKeySet, adLockPessimistic, adCmdtext ' Check if second counter is to be updated, ie Tyrkiet strFilename = Request.QueryString("page") If strFilename <> "" Then sSQL="UPDATE counter SET hit_count = hit_count + 1 WHERE page_name='"&strFilename&"'" Rs2.Open sSQL, sDSN, adOpenKeySet, adLockPessimistic, adCmdtext End If Set Rs2=Nothing ' Return the count RetrieveAndIncrementCount = iCount End Function %>