Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bill100vergonha

Usuários On-line

Recommended Posts

Galera eu tenho uma pagina que quando o usuario se loga ele grava no bd que

 

esta logado

 

dai existe duas formas de deslogar da pagina ou fechando o browser o clicando

 

em "sair"....

 

só que como eu trabalho com frames eu fiz assim...

 

ASP [/tr][tr]

Response.Write "<FRAMESET ROWS=""164,*"" cols=""*"" onunload=""window.open('logout.asp?method=abandon','logout','toolbar=no,status=no,scrollbars=nos,location=no,menubar=no,directories=no,width=

100,height=100,left=50,top=10')"">"

[/tr]

 

o unico problema é quando o usuário possui anti-popup.... o sistema não consegue

 

atualizar o cadastro desse usuário

 

alguem tem alguma dica ???

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ae Galera ....

 

estou tentando fazer a consulta de uma determinada hora em meu banco

 

ex:

ASP [/tr][tr]

 

<%

tempo = Cdate(DATEADD("n", -10, Time()))

Call AbreBanco

 

str = "Sim"

Hora = Time()

Data = year(date)&"-"&month(date)&"-"&day(date)

id = 1

strlogado = "UPDATE Login SET status ='"&str&"', hora_web = '"& Hora &"', acesso_web='"&data&"' where cd_usuario="& id &""

Set gravalogin = conn2.Execute(strlogado)

 

 

 

Set rs6 = Createobject("ADODB.recordset")

set Rs6.ActiveConnection = Conn2

Sql6 = "SELECT * FROM Login WHERE (Login.hora_web < '"&tempo& "') "

rs6.Open SQL6

if rs6.eof then

else

str = "Nao"

id = CInt(Session("cd_usuario"))

strlogado = "UPDATE Login SET status ='"&str&"' where cd_usuario="&id&""

Set gravalogin = conn2.Execute(strlogado)

end if

%>

[/tr]

 

 

Só que aparece o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/Controllernovo/web/Controllernovo/temp.asp, line 29

:wacko:

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.