Erro

[pfr 0]

Pessoal onde está o erro aqui

   dim semanasemana=weekday(now())semfrente=7-Cint(semana)inicio = dateadd("d",now(),Cint(-semana)) ' inicio da semanafim = dateadd("d",now(),Cint(semfrente))  ' fim da semana                 Set Conexao = Server.CreateObject("ADODB.Connection")              Conexao.Open db              Set rs = server.createobject("adodb.recordset")              rs.open "Select * From cadastro WHERE aniversario > inicio and aniversario <= fim ORDER BY day(aniversario), nome", Conexao, 1,2    

Este e o erro

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2. /aniversario.asp, line 18

[namio 0]

Olha a sintaxe da função dateadd! :D

 

DateAdd(interval, number, date)

 

Experimenta escrever assim:

 

inicio = dateadd("d",Cint(-semana),now()) ' inicio da semanafim = dateadd("d",Cint(semfrente),now())  ' fim da semana