Mensagem de Objeto necessário

[Gilcimar Macedo 0]

Galera.. Agora finalizou a conexão corretamente, só que esta dando uma mensagem estranha.. Script error detected at line 158. Source line: sql = sql & " where cod_enquete = " & rs_enquete_combo(0) & "" Description: A variável usa um tipo de automação sem suporte no VBScript

[Adilson_Web_2007 0]

O que tem dentro dessa sql assim ta confuso não consegui entender.

[Gilcimar Macedo 0]

Vou passar a query como é feito e apartir do resultado dela eu faço uma outra query.

 

'Informa o nome da enquete ativa com stsatus 'S'				sql =	   " select cod_enquete, desc_enquete "				sql = sql & " from int_rel_enquete "				sql = sql & " where status_enquete = 'S' "				sql = sql & " order by cod_enquete "				set rs_enquete_combo=ConectaMysql.execute(sql)					if not rs_enquete_combo.eof then 								sql =	   " select cod_enquete, desc_enquete "						sql = sql & " from int_rel_enquete "						sql = sql & " where cod_enquete = " & rs_enquete_combo(0) & ""						set rs_enquete_desc=ConectaMysql.execute(sql)					end if

Só tem uma enquete ativa.

[Adilson_Web_2007 0]

tenta assim:

 

sql =   " select cod_enquete, desc_enquete from int_rel_enquete where status_enquete = 'S' order by cod_enquete "sql =   " select cod_enquete, desc_enquete from int_rel_enquete where cod_enquete = " & rs_enquete_combo(0) ""