Qual o problema nesse bloco?

[Fuca 0]

ASP

[*]<%

 

[*]dim cid_id,id_cid,chave,sql,classificacao

 

[*]classificacao = Request.QueryString("orderby")

 

[*]if classificacao = "" then

 

[*]set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY empresa")

 

[*]else

 

[*]set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY "&classificacao)

 

[*]end if

 

[*]rs.Open sql

 

Dá erro na linha 132, sendo que a linha 132 é a primeira desse bloco... :blink:

Valeu!

[Mário Monteiro 179]

você precisa definir a conexao antes de abrir o recordset

[[rush_jeff_rulez] 0]

ASP

[*]<%<br />dim cid_id,id_cid,chave,sql,classificacao<br />classificacao = Request.QueryString("orderby")<br />if classificacao = "" then<br />set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY empresa")<br />else<br />set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY "&classificacao)<br />end if<br />rs.Open sql

 

Dá erro na linha 132, sendo que a linha 132 é a primeira desse bloco...  :blink:

Valeu!

<{POST_SNAPBACK}>

Sql ... eh o nome da sua conexao !? ..... nao seria:

 

ASP

[*]CONEXAO.Execute ("SELECT * FROM anunciantes ORDER BY "&classificacao)

 

?

[Fuca 0]

Ah sim!

Antes de dar esse erro, havia no lugar um código mais simples, que funcionava:

 

ASP

[*]<%

 

[*]dim cid_id,id_cid,chave,sql

 

[*]sql = "SELECT * FROM anunciantes ORDER BY empresa"

 

[*]rs.Open sql

 

Daí pra incrementar, eu coloquei um jump menu que recarrega a página, com a classificação escolhida nele (ordem alfabética ou clientes mais recentes). Por isso o Request.QueryString no começo do primeiro bloco...

 

E agora, José?

[[rush_jeff_rulez] 0]

Entao veio faz assim:

 

ASP

[*]if classificacao = "" then

 

[*]

 

[*]Set rs = Server.CreateObject ("adodb.recordset")

 

[*]sql = "SELECT * FROM anunciantes ORDER BY empresa"

 

[*]rs.Open (sql)

 

[*]

 

[*]else

 

[*]

 

[*]Set rs = Server.CreateObject ("adodb.recordset")

 

[*]sql = "SELECT * FROM anunciantes ORDER BY "&classificacao&""

 

[*]rs.Open (sql)

 

[*]

 

[*]end if

 

Ve se rola desse jeito

[Fuca 0]

Deu! :) Qual era o problema?

[[rush_jeff_rulez] 0]

Deu!  :)

Qual era o problema?

<{POST_SNAPBACK}>

Hmmmm ..... vamos lah, desse modo que você fez :

 

ASP

[*]

 

[*]dim cid_id,id_cid,chave,sql,classificacao

 

[*]classificacao = Request.QueryString("orderby")

 

[*]if classificacao = "" then

 

[*]set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY empresa")

 

[*]else

 

[*]set sql = sql.Execute("SELECT * FROM anunciantes ORDER BY "&classificacao)

 

[*]end if

 

[*]rs.Open sql

 

[*]

 

você nao setou o objeto recordset RS .... entao nao tem como você usar:

 

ASP

[*]rs.Open sql

 

E esse comando aqui você tem q usar com a conexão com o banco q você esta usando e não sql

 

ASP

[*]sql.Execute("SELECT * FROM anunciantes ORDER BY "&classificacao)

 

Ai o código q você postou de forma correta deveria ficar assim:

 

ASP

[*]dim cid_id,id_cid,chave,sql,classificacao

 

[*]classificacao = Request.QueryString("orderby")

 

[*]if classificacao = "" then

 

[*]'setando o objeto recorset

 

[*]set rs = Server.CreateObject ("adodb.recordset")

 

[*]sql = "SELECT * FROM anunciantes ORDER BY empresa"

 

[*]rs.Open sql

 

[*]else

 

[*]'setando o objeto recorset

 

[*]set rs = Server.CreateObject ("adodb.recordset")

 

[*]'criando a sql de consulta

 

[*]sql = "SELECT * FROM anunciantes ORDER BY "&classificacao

 

[*]rs.Open sql

 

[*]end if

 

[*]

 

Espero que tenha dado para entender !!!!

Falow

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif