Problemas com o Access

[sublyer 0]

Bom estou desenvolvendo um sistema de agenda de show pra um site de eventos e eu gostaria de fazer com que ele buscasse pelos shows que fossem rolar nos proximos 5 dias e estou usando o seguinte código e não consigo fazer a busca.

 

dia_hoje=day(now)dia1=dia_hoje + 5 For contador= dia_hoje to dia1 step 1contador1=contador&"," Next caminho=Server.MapPath("/database.mdb")       Set Conexao = Server.CreateObject("ADODB.Connection")       Conexao.Open "DBQ="&caminho&";Driver={Microsoft Access Driver (*.mdb)}"       consulta2="SELECT * FROM eventos where data IN ("&contador1&")"       set ins=conexao.execute(consulta2)if ins.eof thenresponse.Write"  <img src=/img/icones/marcador.gif>  Nenhum evento previsto para os próximos 5 dias"else                           while not ins.eof          response.Write" <img src=/img/icones/marcador.gif> <a href=javascript:jan418('pop_up_informacoes.asp?idevento="&ins("id")&"')>" & ins("evento")&"</a><br>------------------------------------------------------------------------<br>"      	ins.movenext      	wend      	end if

 

Quem puder me ajudar eu agradeceria.......

 

 

Valew mesmo

[Salgado 4]

Bem, se hoje for dia 31 ele vai pegar as datas entre 31 e 36!

 

você deve usar "Between" em sua SQL, e para calcular datas use a Função DateAdd do ASP.

[sublyer 0]

E como eu faço esse recurso???existe algum tutorial???

[Salgado 4]

Bem tente com o seguinte:

Data_hoje = Date(now)

 

Data_5 = Date(DateAdd("d",5,Now())

 

'Ajustando para a busca

Data_Hoje = Month(Data_Hoje) &"/"& Day(Data_Hoje) &"/"& Year(Data_Hoje)

Data_5 = Month(Data_5) &"/"& Day(Data_5) &"/"& Year(Data_5)

 

caminho=Server.MapPath("/database.mdb")

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "DBQ="&caminho&";Driver={Microsoft Access Driver (*.mdb)}"

consulta2="SELECT * FROM eventos where data BETWEEN #"& Data_Hoje &"# AND #"& Data_5 &"#;"

set ins=conexao.execute(consulta2)

if ins.eof then

response.Write"  <img src=/img/icones/marcador.gif>  Nenhum evento previsto para os próximos 5 dias"

else

while not ins.eof

response.Write" <img src=/img/icones/marcador.gif> <a href=java script:jan418('pop_up_informacoes.asp?idevento="&ins("id")&"')>" & ins("evento")&"</a><br>------------------------------------------------------------------------<br>"

ins.movenext

wend

end if

[/tr]

[sublyer 0]

Viu ta dando um problema na linha :Data_hoje = Date(now)o erro que ocorre é o seguinteMicrosoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'Date' /agenda/Default.asp, line 14 Se puder me ajudar ae valew mesmo

[Edgard Belladonna 0]

Viu ta dando um problema na linha :

 

Data_hoje = Date(now)

 

o erro que ocorre é o seguinte

 

 

Microsoft VBScript runtime error '800a01c2'

 

Wrong number of arguments or invalid property assignment: 'Date'

 

/agenda/Default.asp, line 14

 

 

 

Se puder me ajudar ae valew mesmo

Erro 800A01C2:

 

Descrição:

Número de argumento errado ou definição de propriedade inválida.

 

Será q isso ajuda em alguma coisa?

[sublyer 0]

Mas como eu soluciono esse problema de Número de argumento errado ou definição de propriedade inválida, que está acontencendo nesse script???Valew aew

[Edgard Belladonna 0]

Nao coloque date(now) use somente date

 

data_hoje=date

 

e caso queira pegar somente o número do dia aplique day(date)

 

data_hoje=day(date)