para contar acessos usuários

Olá pessoal

Tom com uma dúvida e gostaria da ajuda de vcs.

Montei um sistema para área restrita com flash. Tá funcionando perfeito, porém a dúvida:

Preciso saber qtas vezes o usuário x logou.

Abaixo segue o cód:

<%

' Abre conexão com Banco de Dados

set cn = Server.CreateObject("ADODB.Connection")
pathdb = Server.MapPath("bando.mdb")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pathdb
cn.CursorLocation = 3
Server.ScriptTimeout = 180

' carrega os dados vindos do form do flash
mensagem = ""
enviando = ""
nome = Request.Form("nome")
cidade = Request.Form("cidade")
cep = Request.Form("cep")
idade = Request.Form("idade")
estado = Request.Form("estado")
senha = Request.Form("senha")
email = lcase(Request.Form("email"))
musica = lcase(Request.Form("musica"))
news = lcase(Request.Form("news"))
status = 1

sqlSelect = "SELECT email FROM site WHERE email = '" & email & "'"
set rsSelect = cn.execute(sqlSelect)

' Se existir, define mensagem que já existe para o flash
if not rsSelect.EOF then
Response.Write("&enviando=0")
Response.write("&mensagem="+Server.URLEncode("E-mail cadastrado. Por favor, escolha outro ou entre com seus dados em login"))
' se não existir insere no Banco de Dados
else
sqlInsert = ""

	sqlInsert = sqlInsert & " insert into site ( "
	sqlInsert = sqlInsert & " nome, "
	sqlInsert = sqlInsert & " email, "
	sqlInsert = sqlInsert & " cidade, "
	sqlInsert = sqlInsert & " cep, "
	sqlInsert = sqlInsert & " idade, "
	sqlInsert = sqlInsert & " estado, "
	sqlInsert = sqlInsert & " senha, "
	sqlInsert = sqlInsert & " news, "
	sqlInsert = sqlInsert & " musica, "
	sqlInsert = sqlInsert & " status "
	sqlInsert = sqlInsert & " ) "
	sqlInsert = sqlInsert & " values ( "
	sqlInsert = sqlInsert & " '" & nome &"', "
	sqlInsert = sqlInsert & " '" & email &"', "
	sqlInsert = sqlInsert & " '" & cidade &"', "
	sqlInsert = sqlInsert & " '" & cep &"', "
	sqlInsert = sqlInsert & " '" & idade &"', "
	sqlInsert = sqlInsert & " '" & estado &"', "
	sqlInsert = sqlInsert & " '" & senha &"', "
	sqlInsert = sqlInsert & " '" & news &"', "
	sqlInsert = sqlInsert & " '" & musica &"', "
	sqlInsert = sqlInsert & " " & status
	sqlInsert = sqlInsert & " ) "
	cn.execute(sqlInsert)

	' após inserir no BD define mensagem de sucesso para o flash
	Response.Write("&enviando=1")
	Response.write("&mensagem="+Server.URLEncode("Cadastrado com Sucesso. Bem Vindo"))

'Response.write("&mensagem="&rs("nome")&"&")
' fecha conexão do BD
cn.close()
set cn = nothing
%>
Alguém me ajuda, por favor??