Como Dar Um Timer Off

[matrix2003]

Olá amigos do forum mais uma vez venho pedir a colaboração de todos vocÊs para me ajudar é graças a vocês que a maioria dos meus scripts fiz aprendendo aqui, acontece que agora gostaria de pedir um colaboração para tentar ver o que é preciso fazer para que de certo o que quero.

Tenho um sistema de usuarios online cuja o cara se loga e aparece o nome dele como logado online, acontece que se o cara não clicar em sair o nome dele não vai sair o que tenho que fazer dentro deste script já postei um post deste a mais de 2 meses sem resultado quem sabe agora eu consiga alguém que me ajude. os dados dos scripts estão abaixo.

logar.asp a pagina que autentica os users para ver se exixtem ou não

<%
if Request.Cookies("username") = "" then
end if
%>
<%'Grab the submitted variables (page is the page they've come from, set by the hidden variable at the login box)
username = Request.Form("username")
password = Request.Form("password")
page = Request.Form("page")
stayloggedin = Request.Form("stayloggedin")

if page = "" then
page = "index.asp"
end if

'Check no s**t is trying to hack in using SQL commands
if InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(password, "'") or InStr(password, """") or InStr(password, "=") then
sqlflag = True
end if

'Open connection
%>
<!--#include file="conn.asp"-->
<%

'Get a recordset corresponding to the submitted username and password
sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

Set vC = Server.CreateObject("ADODB.Connection")
você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb") &";Persist Security Info=False"
up = "UPDATE users SET UltimaVisita=NOW WHERE username = '" & username & "'"
vvezes = "UPDATE users SET vezes=vezes+1 WHERE username = '" & username & "'"
vOn = "UPDATE users SET ehmembro=1 WHERE username = '" & username & "'"


'If there was a valid recordset there, then send them back to the page they came from, with the username cookie set
If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
Response.Cookies("username") = rsUser("username")
você.Execute(up)
você.Execute(vvezes)
você.Execute(vOn)


'If the user wants to stay logged in all the time, then we'll set the cookie with a far-away expiry date
if stayloggedin = "yes" then
Response.Cookies("username").expires = #1/1/2010#
SQL = "UPDATE users (UltimaVisita) VALUES (NOW) WHERE username = '" & username & "'"
set rsUser = conn.execute(SQL)
você.Execute(up)
você.Execute(vvezes)
você.Execute(vOn)
end if

rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.Redirect(page)
end if

'Otherwise, display an invalid entry screen
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing%>

logados.asp onde os users apareceram online

<%

Set vC = Server.CreateObject("ADODB.Connection")
você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb") &";Persist Security Info=False"

vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1"
Set vConta=você.Execute(vConta2)

vMembros2="SELECT * FROM users WHERE ehmembro=1"
Set vMembros=você.Execute(vMembros2)

%><% IF vMembros.EOF THEN
Response.Write "<tr><td width='100%'><p align=center font face=Verdana size=1>Nenhum membro online.</a></font></td></tr>"
ELSE
while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1><p><font color=#3399FF> <img border="0" src="login/icons/arrow1.gif">&nbsp;
     <a href="mailto:<%=vMembros("email")%>"><%=vMembros("username")%></a></font></td></tr></font></p>
<%

vMembros.MoveNext
Wend

END IF

%></table>
<font face=Verdana size=1><b></font></p>Total: <%=vConta("monline")%>

Se alguém puder me da uma forçinha

[bareta]

verifique no tópico de tutoriais .... usuarios online com banco de dados...

http://scriptbrasil.com.br/forum/index.php...15entry130757

[Guest - matrix2003 -]

então sobre tua resposta fiz um codigo parecido so que esta com pau que não consigo arrumar de uma olhada.

index.asp

<!--#include file="login/rotinas.asp"--><%

  Call userOffline(Vc)

 Call userOnline(Vc)

   %>
<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("siteusers.mdb") &";Persist Security Info=False"

strSQL = "SELECT distint ip FROM Online"
Set Rs = server.CreateObject("ADODB.recordSet")
Rs.open strSQL, Vc, 3, 3

IF Rs.recordcount < 1 THEN
Response.Write "N/A"
ELSE
IF Rs.recordcount = 1 THEN
Response.Write "1 Usuário Online"
ELSE
Response.Write Rs.recordcount & " Usuários Online"
END IF
END IF
Rs.Close
Set Rs = Nothing
%> 

rotinas.asp

<%
Sub userOffline(Vc)
  data = DATEADD("n", -10, Now())
  set lista = você.execute("select * from online where dataacesso < #" & data &"#")
  while not lista.eof
  sql =  "delete from online where id = '" & lista("ID") &"'" 
  Set Rs = você.Execute(SQL)
  lista.movenext
  wend

 End Sub


 Sub userOnline(Vc)
  QueryStrr = "?" & Request.ServerVariables("query_String")
strSQL = "Select * From Online Where HostIP = " & Request.servervariables("REMOTE_ADDR") & ""

    você.execute("INSERT INTO Online(HostIP,DataAcesso,Pagina) VALUES('" & Request.servervariables("REMOTE_ADDR") & "', #" & now() & "#, '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "');")
set Rs = nothing
  End Sub
   %> 

mais olha o pau há se eu colocar conexao,execute ta pau tamvpem ai mostra "conexao"

Erro de tempo de execução do Microsoft VBScript error '800a01a8'

O objeto é obrigatório: 'Vc'

/minhas webs/login/rotinas.asp, line 4

[bareta]

na idex.asp substitua as primeiras linhas por