<%@language = vbscript%>
<!--#include file="config.asp"-->
<%
	Call CnOpen()
	rs.Open "SELECT * FROM accessi WHERE acc_gg = '" & gg & "' AND  acc_mm = '" & mm & "' AND  acc_aa = '" & aa & "'", cn, 1
	If rs.EOF Then
		cn.Execute("INSERT INTO accessi (acc_gg, acc_mm, acc_aa, acc_au, acc_pv) VALUES ('" & gg & "', '" & mm & "', '" & aa & "', 1, 1)")
		Session("accessi") = "OK"
	Else
		cn.Execute("UPDATE accessi SET acc_pv = acc_pv + 1 WHERE acc_gg = '" & gg & "' AND  acc_mm = '" & mm & "' AND  acc_aa = '" & aa & "'")
		If Session("accessi") = "" Then
			cn.Execute("UPDATE accessi SET acc_au = acc_au + 1 WHERE acc_gg = '" & gg & "' AND  acc_mm = '" & mm & "' AND  acc_aa = '" & aa & "'")
			Session("accessi") = "OK"
		End If
	End If
	rs.Close
	Call CnClose()
%>