Não Sei Que Erro E Esse?

[halakaluf]

Olha gente não sei o que ta causando esse erro!

Os campos no bd estão certos já olhei.

Todas as variaveis estão chegando.

E continua dando esse erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

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

/asp/site/news.asp, line 19

<%
'Declaração de variaveis
Dim Conexao
Dim RsMan
Dim ComandoSQL
Dim Caminho


Set Conexao = Server.CreateObject("ADODB.Connection")
Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./jornal.mdb") & ";Persist Security Info=False"
Conexao.Open Caminho

Set RsMan = Server.CreateObject("ADODB.RecordSet")
ComandoSQL = "SELECT end_foto, data, titulo, tipo, mensagem FROM tab WHERE data = "& date &" and tipo = man"
'response.Write(ComandoSQL)
'response.End()
RsMan.Open ComandoSQL, Conexao
%>

[dark0]

<%
'Declaração de variaveis
Dim Conexao
Dim RsMan
Dim ComandoSQL
Dim Caminho

'Conectando ao banco:
 Caminho = Server.MapPath("./jornal.mdb")
 set conexao = Server.CreateObject("ADODB.Connection")
 conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Caminho

ComandoSQL = "SELECT end_foto, data, titulo, tipo, mensagem FROM tab WHERE data = "& date &" and tipo = 'man'"

Set RsMan = conexao.execute(ComandoSQL)
%>

PS: Mudei a forma de conexao.. e coloquei aspa simples no MAN.. no final.. e só

não tenho como testar, pois não tenho sua estrutura aqui..

[halakaluf]

Ae dak0 valeu...

funfo legal

era as aspas simples!!!

[dark0]

certo

eu imaginei que fossem as aspas mesmo..

mas resolvi colocar a conexao tb..

vai sabe, né

hehe

essa conexao eu uso sempre e nunca deu problema.

então, como a duvida foi resolvida, to fechando o tópico

ate mais