[Resolvido] compilation error '800a0409'

[Martinsrj 0]

Olá pessoal, boa tarde!

 

Estou com uma dúvida onde eu quero selecionar todos os campos de uma certa tabela, porem a coluna posicao_atual tem que estar todos como Ativado.

 

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsDados, strSQL, var_cor, Ativado
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " WHERE posicao_atual = Ativado
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Response.Charset="utf-8"
%>

Erro que aparece na tela:

Microsoft VBScript compilation error '800a0409'

 

Unterminated string constant

 

/grupo_demanda/Projetos/projetos.asp, line 8

 

strSQL = strSQL & " WHERE posicao_atual = Ativado

-------------------------------------------------^

[webmind 5]

de onde vem esse Ativado?

[Mário Monteiro 179]

falta fechar aspas

[Ted k' 126]

Como o mario falou, fechar as aspas e colocar as aspas simples para virar string, usa assim:

 

strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"
strSQL = strSQL & " order by data desc"

[xanburzum 169]

strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"

[Martinsrj 0]

Resolvido!

Valeu pessoal!!!!!

[Mário Monteiro 179]

que bom que resolveu

 

abraços