simples login

[11closed 0]

ola

me ajudem ai pessoal

 

<%

Dim user, pass

user = Request.Form("user")

pass = Request.Form("pass")

 

Dim conObj

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

conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\usuarios.mdb") & ";"

 

 

Dim sql

sql = "SELECT * FROM users WHERE user='" & user & "' AND pass='" & pass & "'"

 

Dim rs

Set rs = conObj.Execute(sql)

If rs.EOF Then

login = false

Else

login = true

End Ifz

 

if login = true Then

Session("logado") = true

Response.redirect("pedidos.asp")

Else

Response.redirect("erro.asp")

End If

esta dando erro na conecção com o banco de dados Access

esta de vermelho!

se alguem solber me ajuda ai beleza

[jrcardozo 4]

sem saber a descrição do erro fica complicado.

 

mas a barra está invertida e não precisa da primeira barra da esquerda

[11closed 0]

esta dando o mesmo erro

o erro é

 

Ele já foi aberto em modo exclusivo por outro usuário ou você precisa de permissão para exibir seus dados.

/coimma2/logar.asp, line 8

[jrcardozo 4]

você precisa fechar o access pois está aberto ou ele não está compartilhado. verifique o tópico pendurado de duvidas frequentes ou pesquise no forum, existem vários posts que podem auxiliar

[Mário Monteiro 179]

feche pelo menos as tabelas ou tudo mesmo