<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "verifica"
sql="select data,cont from accessi order by data"
'on error resume next eliminato per errore 500
set rs=conn.execute(sql)
maxcont=rs.getrows
u=ubound(maxcont,2)
datacarRec=Cstr(maxcont(0,u))
quanti=maxcont(1,u)%>
<%annocarRec=right(datacarRec,4)
qm=right(datacarRec,7)
mesecarRec=left(qm,2)%>
<%datacarNow=Cstr(date())
annocarNow=right(datacarNow,4)
qm=right(datacarNow,7)
mesecarNow=left(qm,2)%>
<%if (ltrim(rtrim(annocarRec)) = ltrim(rtrim(annocarNow))) and (ltrim(rtrim(mesecarRec)) = ltrim(rtrim(mesecarNow))) then
add=quanti+1
lt=right(datacarRec,7)
sql="update accessi set cont = '"&add&"' where (right(cstr(data),7)) = '"<&"' "
set rs=conn.execute(sql)
else
add=1
sql="insert into accessi(data,cont) values('"&datacarNow&"','"&add&"')"
set rs=conn.execute(sql)
end if
conn.close%>
