<!-- #Include File="clients.inc" -->
<%
id = request.querystring("id")

SQL = "SELECT * FROM hits where clientname = '" & id & "' and year = " & year(date) &" and month = " & month(date) 
Set objrsClients = Server.CreateObject("ADODB.Recordset")
objrsclients.Open SQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText

if objrsclients.eof = true then 
  objrsclients.addnew
  hits = 1
  aa = 1
end if
if aa = 0 then hits = objrsclients("hits") + 1

objrsclients("month") = month(date)
objrsclients("year") = year(date)
objrsclients("hits") = hits
objrsclients("clientname") = id
objrsclients.update

objrsClients.Close
Set objrsClients = Nothing
objConn.Close
Set objConn = Nothing

response.redirect "../../images/1pxmenu.gif"
%>