Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

douglasdamame

Mostrar apenas a agenda do dia

Por , em ASP Clássico

Recommended Posts

douglasdamame    0

douglasdamame
Postado

Olá pesoal,

 

Estou precisando montar uma agenda, que mostre apenas os eventos do dia, comparando a data gravada com o do sistema.

 

Obtive ajuda de outros webmasters em outros foruns, mas não consegui montar o sistema, apresentando erro e/ou não aceitando os parâmetros.

 

Se alguém puder me ajudar, agradeceria muito, pois preciso montar esta sessão o mais rápido possível.

 

O código que estive batendo cabeça, segue abaixo:

<%'Faço a conexão com o bd e recupero os dadoscnpath="DBQ=" & Server.MapPath("db/agenda.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath  Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSourceset rs=conn.execute("select* From agenda where data = " & Date()&"")%><html><head><title>Agenda</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><font face=verdana><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><i> </i></b></font> <p align="center">   <%do until rs.eof%></p><table width="53%" border="0" cellspacing="0" cellpadding="0" align="center">  <tr>     <td>       <div align="left"></div>      <div align="left"><font size="2"><%=rs("texto")%></font></div>    </td>  </tr>  <tr>     <td>       <div align="center"></div>    </td>  </tr>  <% rs.movenextloopconn.close%></table></font> </body></html>

 

A BD tem 3 Campos

1- ID

2- data

3- texto

 

Obrigado,

Douglas

Compartilhar este post

Link para o post
Compartilhar em outros sites

xenxen    0

xenxen
Postado

Viu kra mando o erro que ta dando...descreve ele bem certinho...valeuateh!

Compartilhar este post

Link para o post
Compartilhar em outros sites

douglasdamame    0

douglasdamame
Postado

Olá,

 

Achei o erro,

 

Na linha de conexão com a BD eta errada:

 

set rs=conn.execute("select* From agenda where data=Date()")

 

Se trocarem a linha pela de cima o código roda ...

Estava dando conflito de conexão com o access.

 

Valeu,

Douglas

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito