Exibir notícia por data.

[Paulo Cézar Júnior 0]

Oi pessoal, tudo bem.

 

Tentei resolver esta questão em outro fórum, mas toda ajuda dada pelo pessoal não resolveu meu problema, para tal tento consegui auxílio aqui no imasters.

 

Se alguém puder ajudar fico grato.

 

O problema que ocorre é este:

 

 

A minha página que exibe as notícias pela data anterior ao dia atual tem este erro:

 

 

 

Noticias do dia 10/1/2007

 

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

 

Tipos incompatíveis

 

 

/default_teste.asp, line 170

 

 

 

Na linha 170 eu tenho este código... as notícias ainda não aparecem.

 

<%

Dim objDestTexto

Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE where ExibicaoDe = #" & vData(date - 1) & "# AND " &_

"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

%>

 

Numa página funão.asp eu tenho esse comando que trata a data.

 

'**********************************************************

'Variáveis

 

 

 

vData = Month(Date) &"/"& Day(Date) &"/"& Year(Date)

 

 

 

'**********************************************************

 

Se alguém puder ajudar a resolver o problema fico grato.

 

Muito obrigado.

 

Paulinho

[Mário Monteiro 179]

qual a linha exata do erro?

[Paulo Cézar Júnior 0]

Marioufpa a linha exata do erro é esta:

 

Set objDestTexto = Banco.Execute("SELECT TOP 20 ID, Titulo, ExibicaoDe FROM Noticias WHERE where ExibicaoDe = #" & vData(date - 1) & "# AND " &_

 

Veja código mais completo escrito acima.

 

Obrigado.

[Mário Monteiro 179]

o que vem aquivData(date - 1)de um response.write nisso para ver se é uma data validaque eu tou achando que nao