Nâo Exibe o Nome do Usuário Logado!

[digital1984 0]

Pessoal,

 

Não estou conseguindo fazer exibir o nome do usuário logado no site.

Codigo Abaixo:

 

<%
If Session("id_cliente") = "" Then
Response.Write "Bem-vindo(a),<B> Visitante</B> <A href=login_cadastro.asp>( Entrar )</a>"
Else

ComandoSQL = " SELECT * FROM clientes WHERE id=" & Session("id_cliente")
Set objRS_cliente = Server.CreateObject("ADODB.Recordset")
objRS_cliente.CursorLocation = 2
objRS_cliente.CursorType = 1
objRS_cliente.LockType = 1
objRS_cliente.Open ComandoSQL, objCon,,, &H0001

Response.Write "Bem-vindo(a),<B><BR>" & objRS_cliente("nome") & "</B> <A href=#>( Sair )</a>"
objRS_cliente.Close
Set objRS_cliente = Nothing
End If
%>

O erro esta dando esse:

 

ADODB.Recordset error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Fico no aguardo de uma super ajuda.

[JCMPJ 0]

Acho que das dua umas ou ele não achou o Id ou não tem o campo 'nome' na tabela. Testa antes de tentar mostrar o EOF.

[digital1984 0]

Sim... testei.... existe a tabela, existe os campos na tabela.... porem não retorna o nome do cliente

 

Vixi... não deu certo

[Ted k' 126]

faz esse teste aqui:

 

<%
If Session("id_cliente") = "" Then
Response.Write "Bem-vindo(a),<B> Visitante</B> <A href=login_cadastro.asp>( Entrar )</a>"
Else

ComandoSQL = "SELECT * FROM clientes WHERE id="&Session("id_cliente")
Set objRS_cliente = Conexao.Execute(ComandoSQL)

If Not objRS_cliente.Eof Then
Response.Write "Bem-vindo(a),<B><BR>" & objRS_cliente("nome") & "</B> <A href=#>( Sair )</a>"
End If

objRS_cliente.Close
End If
%>

bloqueadores de cookies tbm interferem nas sessões

[digital1984 0]

O código não funcionou, apresentou erro conforme abaixo.

 

<%
If Session("id_cliente") = "" Then
Response.Write "Bem-vindo(a),<B> Visitante</B> <A href=login_cadastro.asp>( Entrar )</a>"
Else

  Set objCon = Server.CreateObject("ADODB.Connection")
  
ComandoSQL = "SELECT * FROM clientes WHERE id="&Session("id_cliente")
Set objRS_clientes = objCon.Execute(ComandoSQL)
If Not objRS_clientes.Eof Then

Response.Write "Bem-vindo(a),<B><BR>" & objRS_clientes("nome") & "</B> <A href=logoff.asp>( Sair )</a>"
End If
objRS_clientes.Close
End If
%>

APRESENTOU O SEGUINTE ERRO:

ADODB.Connection error '800a0e78'

 

Operation is not allowed when the object is closed.

 

/login.asp, line 35

[CaBo GeL 0]

você n está abrindo sua conexão!

 

at+

[Mário Monteiro 179]

qual a linha do erro?