3 replies to this topic

[D-Style]

E aí galera!

Eu estou com um probleminha, que eu acho que é simples. Eu estou com um sistema de eventos feito, só que eu quero dar uma melhorada nele. Tipo assim: O banco de dados tem registros de várias festas que vão acontecer durante a semana.

O que eu quero fazer, é o seguinte: Em uma página, exibir apenas os eventos que irão acontecer no dia do acesso (por exemplo: acesso no dia 10/12, então exibir apenas os eventos do dia 10/12). Em outra página, exibir os eventos que irão acontecer do dia seguinte (11/12) em diante. Compliquei?

O código que eu tentei fazer sem sucesso segue abaixo:

<% 
sqlstmt = "SELECT * FROM prog_festas where dia = "date(now)" ORDER BY id ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
	Exit For
	Else
	dia = rs("dia")
	mes = rs("mes")
	titulo = rs("titulo")
	local = rs("local")
	id = rs("id")
%>
<br><a class="menu-link" href="ver.asp?id=<%=id%>"><b><%=titulo%></b><br><%=local%></a><br>
<%
rs.MoveNext
End If
Next%>

Dá esse erro:

Fim da instrução esperado
/index2.asp, line 38, column 50
sqlstmt = "SELECT * FROM prog_festas where dia = "date(now)" ORDER BY id ASC"

O que que eu faço? Abraços!

[zOOm]

Tenta consertar a instrução SQL:

qlstmt = "SELECT * FROM prog_festas where dia = "date(now)" ORDER BY id ASC"

Por...

qlstmt = "SELECT * FROM prog_festas where dia = '"&date&"' ORDER BY id ASC"

Caso não dê certo poste novamente, pois há outras maneiras de fazê-lo ...




vlw!

[D-Style]

Tenta consertar a instrução SQL:

qlstmt = "SELECT * FROM prog_festas where dia = "date(now)" ORDER BY id ASC"

Por...

qlstmt = "SELECT * FROM prog_festas where dia = '"&date&"' ORDER BY id ASC"

Caso não dê certo poste novamente, pois há outras maneiras de fazê-lo ...




vlw!

Eu fiz o q vc disse, só que agora tá dando esse erro:

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.
/Clientes/festeiro/programacao/festas/index2.asp, line 41

Linha 41:

rs.Open sqlstmt, dsn, 3,3

Eu vou colocar o código de novo, pq faltaram algumas linhas:

<% 
dsn = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & Server.MapPath("../../admin/banco.mdb")
sqlstmt = "SELECT * FROM prog_festas ORDER BY id ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, dsn, 3,3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
  Exit For
	Else
  dia = rs("dia")
  mes = rs("mes")
  titulo = rs("titulo")
  local = rs("local")
  id = rs("id")
  %><br><a class="menu-link" href="ver.asp?id=<%=id%>"><b><%=titulo%></b><br><%=local%></a><br>
         <%
rs.MoveNext
End If
Next%>

Seguinte... Eu tirei o comando "where dia = " & date & " order..." pq acho q assim ele só executaria caso fosse pedido o endereço index2.asp?dia=XX... Não é isso q eu quero. Eu quero que puxe a página index.asp mesmo, e que puxe apenas as festas do dia em questão... Blz???

Abraços!

[D-Style]

e aí galera? alguma dica?

Abraços!