[resolvido] O Que Há De Errado Nesse Código (login/senha)

[Bruno G.]

<%

Select Case Request.QueryString("acao")

Case "login"

Dim caminho

Dim conexao

login = request.form("login")

senha = request.form("senha")

caminho = Server.MapPath("banco356.mdb")

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

Set banco = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT * FROM passaporte WHERE login='"&login&"' AND senha='"&senha&"' "

banco.open strBuscaProdutos, conexao, 3, 3

If banco.eof then

Session("msg")="Acesso Negado"

Response.Redirect ("index.asp")

Else

usuario = banco("usuario")

senha = banco("senha")

nome = banco("nome")

Session("usuario")=usuario

Session("senha")=senha

Session("nome")=nome

Response.Redirect("index.asp")

End If

banco.close

Case "logout"

session.abandon("login")=""

session.abandon("senha")=""

response.redirect ("index.asp")

Case Else

Response.Write("O que você está fazendo aqui?")

End select

%>

:blink:

[fercosmig]

no navegador, clique no menu ferramentas, depois em opções da internet, clique na guia avançadas e desmarque a opção de mostrar erros de http amigáveis.

assim o navegador vai mostrar ezatamente o erro ocorrido.

[Bruno G.]

Vi o erro mas n consegui soluciona-lo.. o formulario ta apontando certinho para a pagina..

com os campos com os names corretos login e senha.

Erro dado:

Request object error 'ASP 0102 : 80004005'

Expecting string input

/BRUNO/db2/acesso.asp, line 14

The function expects a string as input.

Script modificado, na intenção de corrigir.

<%
Select Case Request.QueryString("acao")
Case "login"

Dim caminho
Dim conexao 

Set login = request.form("login")
Set senha = request.form("senha")

caminho = Server.MapPath("banco356.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

Set banco = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM passaporte WHERE login='"&login&"' AND senha='"&senha&"' "
banco.open strBuscaProdutos, conexao, 3, 3

If  banco.eof then
Session("msg")="Acesso Negado"
Response.Redirect ("index.asp")

Else
Set usuario = banco("usuario")
Set senha = banco("senha")
Set nome = banco("nome")

Set Session("usuario") = usuario
Set Session("senha") = senha
Set Session("nome") = nome
Response.Redirect ("index.asp")
End If

banco.close

Case "logout"

session.abandon("login") = "" 
session.abandon("senha") = "" 
response.redirect ("index.asp")

Case Else

Response.Write("O que você está fazendo aqui?")

End select

%>

=====EDITADO=======

Já consegui resolver...

Obrigado a todos pela tentativa de ajuda..

tenho um novo problema...

depois eu posto aqui hehe..

abraço