<%@ Language="VBScript" %>
<%
   showcounter = Request.Querystring("show")
   lpageid = Request.Querystring("pageid")
   
   Dim objConn, strConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db/rcentre.mdb") & ";"
   objConn.Open strConn
   objConn.Execute "Update counterdb set counterno = counterno + 1 where pageid = '" & lpageid & "'"
   objConn.Close
   Set objConn = Nothing
   
   If (showcounter = "yes") Then
      Dim TempConn, rsClients, strSQL2
      strSQL2 = "Select counterno From counterdb where pageid = '" & lpageid & "'"
      Set TempConn = Server.CreateObject("ADODB.Connection")
      strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db/rcentre.mdb") & ";"
      TempConn.Open strConn
      Set rsClients = TempConn.Execute(strSQL2)

      Do While Not rsClients.EOF
         mcounter = rsClients.Fields("counterno")
         rsClients.MoveNext
      Loop

      rsClients.Close
      Set rsClients = Nothing
      TempConn.Close
      Set TempConn = Nothing
   
      Response.Write mcounter
   End If

%>