numero de cadastros

[jrcardozo 4]

faça isso

response.write "select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") : response.end

set rs1 = conn.execute("select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui

set rs2 = conn.execute("select count(id) as Hoje from Users where CDate(data) = "& formatDateTime(Now,2) &";") 'E aqui

 

depois coloque no forum a query que vai exibir no seu browser

[zanelati2002 0]

cara não sei se ta certo olha o codigo qeu ficou

 

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

	response.write "select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") : response.end
set rs1 = conn.execute("select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
set rs2 = conn.execute("select count(id) as Hoje from Users where CDate(data) = "& formatDateTime(Now,2) &";") 'E aqui
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><FONT face="Verdana, Arial" size=1>- Hoje:
						<B><%=totHoje%></B></FONT></TD></FONT></TD></TR>
					<TR>
					  <TD><FONT face="Verdana, Arial" size=1>- Ontem:
						<B><%=totOntem%></B></body></font></b></html>

olha o erro

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/minhas webs/use.asp, line 8, column 118

response.write "select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") : response.end

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

 

 

Tipo de navegador:

[hargon 64]

Você informou um parentese a mais no final da linha. Remove ele ou então acrescenta um no inicio, após o response.write.

[zanelati2002 0]

o resultdo foi este

select count(id) as Ontem from Users where CDate(data) = 14/5/2008;

 

o codigo foi este

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

	response.write ("select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") : response.end
set rs1 = conn.execute("select count(id) as Ontem from Users where CDate(data) = "& formatDateTime(DateADD("d",-1,Now),2) &";") 'Alterei aqui
set rs2 = conn.execute("select count(id) as Hoje from Users where CDate(data) = "& formatDateTime(Now,2) &";") 'E aqui
	totOntem = rs1("Ontem")
	totHoje =  rs2("Hoje")		
	%>
					  <TD><FONT face="Verdana, Arial" size=1>- Hoje:
						<B><%=totHoje%></B></FONT></TD></FONT></TD></TR>
					<TR>
					  <TD><FONT face="Verdana, Arial" size=1>- Ontem:
						<B><%=totOntem%></B></body></font></b></html>

[hargon 64]

Tira essa linha do response.write e response.end e troque a rs1 e rs2 para as linhas abaixo:

set rs1 = conn.execute("select count(id) as Ontem from Users where CDate(data) = #"& formatDateTime(DateADD("d",-1,Now),2) &"#;") 'Alterei aqui
set rs2 = conn.execute("select count(id) as Hoje from Users where CDate(data) = #"& formatDateTime(Now,2) &"#;") 'E aqui

[zanelati2002 0]

Não tem o que falar Parabens a todos os que me ajudarem com mais esta

 

 

- Hoje: 1 - Ontem: 3

 

 

Certinho

[hargon 64]

Ufa... até que enfim hehehe

 

Muito bom. :clap: