Select vazio

[Guest Visitante]

Galera é o seguinte, tenho um sistema no qual eu preciso restringir o acesso do usario a somente a sua Área, ate ai tudo bem , já fiz rodar a tela de login no qual ela guarda em Secions tudo funcionando belezinha, o problema é na Pagina de Inclusão dos Itens, no meu Select ao invés de aparecer o Valor da Area do Usuario ele esta vazio..... vejam o codigo abaixo:

<%                                
            set rsSecao = Server.CreateObject("ADODB.Recordset")
'            sqlSecao = "SELECT s.codigo, s.nome FROM secao s "
            sqlSecao = "SELECT s.codigo, s.nome FROM secao s WHERE s.codigo= '"&session("usr_secao")&"'"
            response.write("variavel: "&session("usrSecao"))
            set rsSecao = connDB.Execute(sqlSecao)
            Response.Write("<select class='input' name='secao_cod_id' id='secao_cod_id'>")
            Response.Write("<option value='0'>--------------</option>")
            While Not rsSecao.Eof
                Response.Write "<option value='"&rsSecao("codigo")&"' "
                if Clng(rsSecao("codigo")) = Clng(secao_cod_id) then
                    Response.Write " selected='selected'"
                end if
                    Response.Write ">"&rsSecao("nome")&"</option>"
            rsSecao.MoveNext
            Wend
            Response.Write    "</select>"                                    
        %>

alguém pode me dar uma luz!!!!

[]ços

[.Andreia.]

A luz é você debugar o codigo, exemplo:

sqlSecao = "SELECT s.codigo, s.nome FROM secao s WHERE s.codigo= '"&session("usr_secao")&"'"

response.write sqlSecao

response.end

response.write("variavel: "&session("usrSecao"))

set rsSecao = connDB.Execute(sqlSecao)

isso faz imprimir a consulta, jogue no banco de dados e veja se retorna corretamente... porque no seu codigo mesmo eu não vi nada anormal.

[webdeveloper]

Se o campo código da tabela secao for do tipo numérico, retire as aspas simples da query.

[Guest Visitante]

E como ficaria a query sem aspas?

grato

[webdeveloper]

Assim:

<%                                
            set rsSecao = Server.CreateObject("ADODB.Recordset")
'            sqlSecao = "SELECT s.codigo, s.nome FROM secao s "
            sqlSecao = "SELECT s.codigo, s.nome FROM secao s WHERE s.codigo= "&session("usr_secao")&""
            response.write("variavel: "&session("usrSecao"))
            set rsSecao = connDB.Execute(sqlSecao)
            Response.Write("<select class='input' name='secao_cod_id' id='secao_cod_id'>")
            Response.Write("<option value='0'>--------------</option>")
            While Not rsSecao.Eof
                Response.Write "<option value='"&rsSecao("codigo")&"' "
                if Clng(rsSecao("codigo")) = Clng(secao_cod_id) then
                    Response.Write " selected='selected'"
                end if
                    Response.Write ">"&rsSecao("nome")&"</option>"
            rsSecao.MoveNext
            Wend
            Response.Write    "</select>"                                    
        %>

[Guest Visitante]

Coloquei da forma que me pediu e deu o erro abaixo:

MySQL][ODBC 3.51 Driver][mysqld-5.1.22-rc-community]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

[webdeveloper]

Faça isso e poste o que aparece:

<%

set rsSecao = Server.CreateObject("ADODB.Recordset")

' sqlSecao = "SELECT s.codigo, s.nome FROM secao s "

sqlSecao = "SELECT s.codigo, s.nome FROM secao s WHERE s.codigo= "&session("usr_secao")&""

Response.Write sqlSecao

Response.End

response.write("variavel: "&session("usrSecao"))

set rsSecao = connDB.Execute(sqlSecao)

Response.Write("<select class='input' name='secao_cod_id' id='secao_cod_id'>")

Response.Write("<option value='0'>--------------</option>")

While Not rsSecao.Eof

Response.Write "<option value='"&rsSecao("codigo")&"' "

if Clng(rsSecao("codigo")) = Clng(secao_cod_id) then

Response.Write " selected='selected'"

end if

Response.Write ">"&rsSecao("nome")&"</option>"

rsSecao.MoveNext

Wend

Response.Write "</select>"

%>