Tipo De Dados Imcompatível Na Expressão De Critério.

[baladaclick]

Esse é o meu codigo de autenticação do login.

<%@Language=VBScript%>


<%response.buffer="true"%>
<%

'Recupero o texto que foi escrito no formulário
vlogin = request.form("login")
vsenha = request.form("senha")


Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/megne.mdb")
Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação

SQL = "select * from consultor where login= '"&vlogin&"' and senha='"&vsenha&"'"

RS.Open SQL, conn, 3

if rs.EOF then

response.Redirect("autentica1.asp")

else

session("login") = rs("login")
session("id_consultor") = rs("id_consultor")
session("nome_consultor") = rs("nome_consultor")
session("id_regional") = rs("id_regional")

response.redirect"adm.asp"
end if

%>

agora esse é uma parte do meu painel administrativo. que é aonde está dando erro

<%

PagAtual = Request.QueryString("PagAtual") 'página atual

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/megne.mdb")
Conn.Open DSNtest

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

SQL2 = "SELECT * FROM clientes where id_consultor = '" & session("id_consultor") & "'"

RS2.Open SQL2, conn, 3

%>

está dando um erro assim

"Tipo de dados imcompatível na expressão de critério.

adm.asp, line 14"

o que seria isso?

valeu galerinha

[.Andreia.]

isso ocorre quando você trata um tipo de dados sendo que ele é outro no bd. Por exemplo, no seu codigo você insere id_consultor como texto... mas verifique no seu BD, se ele for numero então o erro é ali e altere a sql para:

SQL2 = "SELECT * FROM clientes where id_consultor = " & session("id_consultor")

viu a diferença?? aspas simples pra textos e sem aspas simples para numerico