Leo-Flash

bom pessoal, meu problema é o seguinte: preciso saber quais são os usuários online no momento no meu site, fiz o seguinte: --> quando o usuário entra no site: iporigem = Request.ServerVariables("REMOTE_ADDR") serverorigem = Request.ServerVariables("LOGON_USER") logo após gravo isso no banco de dados não sei como fazer para poder apagar isso do banco de dados quando o usuário sai da pagina. alguém pode me ajudar?? desde já agradeço a atenção

Na linha 31 tenho isso: times=cInt(rs("fldTIMES"))+1 e o campo fldTIMES está em formato Texto

Meu problema é o seguinte.. tenho um script que conta o numero de acessos de um arquivo, porém quando envio alguns arquivos que clico para baixar ele da esse erro: Error Type: (0x80020009) Exception occurred. /download.asp, line 31 O código fonte do arquivo download.asp é esse: <!-- #INCLUDE FILE="download_config.asp" --> <% Dim file, connection, rs, urlorigem , iporigem, serverorigem, navegador tid=Now() file=Request.QueryString("file") If file="" Then%> <!-- #INCLUDE FILE="download_nofile.asp" --> <% Else urlorigem = Request.ServerVariables("HTTP_REFERER") iporigem = Request.ServerVariables("REMOTE_ADDR") serverorigem = Request.ServerVariables("LOGON_USER") navegador = Request.ServerVariables("HTTP_USER_AGENT") If urlorigem = "" Then urlorigem = "veio do Navegador " & navegador End if Set connection=Server.Createobject("Adodb.Connection") connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database Set rs = connection.Execute ("INSERT INTO origem (origem, ip, server ,data) VALUES('" & file & "','" & iporigem & "' ,'" & serverorigem & "', '" & now() & "')") Set rs = connection.Execute("SELECT * FROM download WHERE fldURL = '" & file & "'") If rs.EOF Then connection.Execute("INSERT INTO download (fldURL, fldLast, fldTimes, fldStart) VALUES ('" & file & "', #" & tid & "#, 0, #" & tid & "#)") End if Set rs = connection.Execute("SELECT * FROM download WHERE fldURL = '" & file & "'") times=cInt(rs("fldTIMES"))+1 Set rs = connection.Execute("UPDATE download SET fldTIMES = " & times & " Where fldURL = '" & file & "'") Set rs = connection.Execute("UPDATE download SET fldLAST = #" & Now() & "# Where fldURL = '" & file & "'") Response.ReDirect file End If%> Na linha 31 tenho isso: times=cInt(rs("fldTIMES"))+1 como devo proceder??