Login sem cookies de sessão

[leandroramosbr 0]

Tenho um sistema onde o cliente não consegue logar de maneira nenhuma, pois os cookies de sessão do browser dele estão desabilitados (cliente faz acesso do banco via internet) e não pode habilitá-los. Ou seja, toda vez que ele tenta logar nunca entra.

 

Dim str_usuario, str_senha
str_usuario = lcase(adequarTexto(Request.form("txtusuario")))
str_senha = adequarTexto(Request.form("txtsenha"))

response.Write("str_usuario: "&str_usuario&" str_senha: "&str_senha)

if str_usuario = "" OR str_senha = "" Then
	Response.Redirect "erro.asp?cod=2"
else
	dim rs	
	set rs = executarConsulta("SELECT * FROM USUARIOS WHERE USUARIO ='"&str_usuario&"'")

	if rs.eof then
		Response.Redirect "erro.asp?cod=3"
	else
		dim id, usuario, senha
		id = rs("id")
		usuario = rs("usuario")
		senha = rs("senha")

		if str_senha = senha then	
			session("id") = id
			session("usuario") = usuario

			Response.Redirect "../administrador/SGC.asp"

		else
			Response.Redirect "erro.asp?cod=3"
		end if
	end if
	rs.close
	set rs = nothing
end if

[Vinicius Ianni 189]

Se não pode usar cookies, cria uma Sessão, usando Session.

[leandroramosbr 0]

Se não pode usar cookies, cria uma Sessão, usando Session.

 

Pô eu mando ele armazenar a senha e o usuário:

session("id") = id
session("usuario") = usuario

 

E na página interna do sistema:

If Session("usuario") = "" Then

 

Mas continuo com o problema, o cliente so consegue logar se ele for em IExplorer[Ferramentas][Privacidade][Avançado] marcar a caixa: ignorar a manipulação automática de cookies, Aceitar Cookies internos e de tercerios, e marcar a caixa Sempre permitir cookies de sessão.

 

O que sera?

[0cool 0]

Mais isso você fez em teste localhost ou direto do site no servidor?

[leandroramosbr 0]

no servidor