Amigos que estão aprendendo asp precisam entender <%
definir conn=server.createobject(adodb.connection)
connstr=Provider=Microsoft.jet.oledb.4.0;data source=&server.mappath(cou.mdb) //cou é o nome do banco de dados
conn.open connstr
se sessão(visitada)<>sim então
aplicação.Lock()
conn.execute(update counter set hits=hits+1 where kid=1) //counter é o nome da tabela usada para armazenar dados no banco de dados
aplicação.UnLock()
sessão(visitada)=sim
terminar se
defina rs = conn.execute (selecione * de kuo onde kid = 1)
se rs.eof e rs.bof então
contadores=0
outro
contadores=rs(acertos)
terminar se
rs.fechar
conexão.fechar
definir rs = nada
definir conn = nada
%>