')' esperado

[Paulo Cézar Júnior 0]

Pessoal podem me ajudar com este erro:

 

Erro de compilação do Microsoft VBScript erro '800a03ee'

 

')' esperado

 

/default_teste.asp, line 165

 

Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE data_db=#"&DateAdd("d", 1, now)& "#" ExibicaoDe <= #"& vData &"#" AND ExibicaoAte >= #"& vData &"# AND DestTexto = on AND Status = on ORDER BY ExibicaoDe DESC")

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

 

Vejam código na linha 165:

 

<%Dim objDestTexto															Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE data_db=#"&DateAdd("d", 1, now)& "#" ExibicaoDe <= #"& vData &"#" AND ExibicaoAte >= #"& vData &"# AND DestTexto = on AND Status = on ORDER BY ExibicaoDe DESC")															While not objDestTexto.EOF																Response.Write "<a href='Noticia.asp?ID="& objDestTexto("ID") &"' class='lVerdana11Azul'>["& objDestTexto("ExibicaoDe") &"] "& objDestTexto("Titulo") &"</a><br>"															objDestTexto.MoveNext : Wend															Set objDestTexto = Nothing%>

[klonder 14]

Paulo, mude sua string sql para isso e vê se funciona:

 

Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE data_db=#"&DateAdd("d", 1, now)& "# AND " &_"ExibicaoDe <= #"& vData &"# AND ExibicaoAte >= #"& vData &"# AND DestTexto = on AND Status = on ORDER BY ExibicaoDe DESC")

Estavam faltando algumas aspas...

[Paulo Cézar Júnior 0]

Klonder tá abrindo a página, mas aonde deveria aparecer as notícias aparece:

 

Microsoft JET Database Engine erro '80040e10'

 

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

 

/default_teste.asp, line 165

 

Minha linha 165 ta do jeito que você passou...

só pra confirmar código de novo abaixo:

 

<%Dim objDestTexto															Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE data_db=#"&DateAdd("d", 1, now)& "# AND " &_"ExibicaoDe <= #"& vData &"# AND ExibicaoAte >= #"& vData &"# AND DestTexto = on AND Status = on ORDER BY ExibicaoDe DESC")															'Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE data_db=#"&DateAdd("d", 1, now)& "#" ExibicaoDe <= #"& vData &"#" AND ExibicaoAte >= #"& vData &"# AND DestTexto = on AND Status = on ORDER BY ExibicaoDe DESC")															While not objDestTexto.EOF																Response.Write "<a href='Noticia.asp?ID="& objDestTexto("ID") &"' class='lVerdana11Azul'>["& objDestTexto("ExibicaoDe") &"] "& objDestTexto("Titulo") &"</a><br>"															objDestTexto.MoveNext : Wend															Set objDestTexto = Nothing%>

[Custellinha 0]

Qual eh exatamente a linha 165 ??