<%@ Language=VBScript %>

<!--#include file="database.asp"-->

<%
on error resume next

dim strSQL, section
section = Request.QueryString("section")

if (dbOpen and section <> "") then
  
  strSQL = "UPDATE Compteurs SET visiteurs_en = visiteurs_en + 1 WHERE section_site = " & StrParam(section)
  
  dbConnection.Execute strSQL
  
end if
  
CloseConnection
%>