Listar informações de acordo com data no Cbox

[MarkZL 0]

Amigos!

 

 

Estou montando uma Agenda em ASP, e criei um combo com as datas dos agendamentos...

Gostaria que a data selecionada no Combo fizesse listar somente os dados respecivos a mesma... porem estou com dificuldade pra montar a sintaxe.

 

'Criando Variavel onde armazenarei a data

<%Dim DataData = Date()%>

'Criando conexão

<%				sql = "SELECT age_data FROM Agenda1 ORDER BY age_data ASC"				Set rs = oconexao.execute( sql )							%>

 

'Criando Combo com as datas extraidas do BD

<FORM METHOD="get" ACTION="cad_agenda.asp?dia=<%=rs("data")%>">		<select name="dia">			<%		while not rs.EOF		%>			<option value="<%= rs("data") %>"><%= rs("data") %>			<%				rs.Movenext()				wend				rs.close()			%>			</option>		</select>		<input type="submit" value="Buscar"></input></FORM>

 

'Listando os Registros

<table cellpadding="3" cellspacing="1" width="1000" bgcolor="#AAAAAA" align="center">	<tr bgcolor="#DDDDDD">		<td colspan="8" align="center"><b>Agenda da Unidade:</b></td>	</tr>	<tr bgcolor="#F2F2F2">		<td align="center">		<strong>Dia:</strong>				</TD>		<td align="center">Horário:</td>		<td align="center">Professor</td>		<td align="center">Aluno</td>		<td align="center">Observações</td>		<td> <td>					<!--<td align="center" width="25"> </td>-->	</tr><%sql2 = "SELECT age_data, age_horario, age_professor, age_aluno, age_obs, age_uni FROM Agenda1" &_ If Data <> "" Then	sql2 = sql2&" where age_data like '%"&Data&"%'"Else	sql2 = sql2&" where age_uni=8 ORDER BY age_data ASC"End IfSet rs = oconexao.execute( sql2 )while not rs.EOF%>	<tr bgcolor="#FFFFFF">				<td align="center"><%= request.querystring ("data")%></td>		<td align="center"><%= rs("age_horario")%></td>		<td align="center"><%= rs("age_professor")%></td>		<td align="center"><%= rs("age_aluno")%></td>		<td align="center"><%= rs("age_obs")%></td>		<td><img src="imagens/editar.gif" alt="Editar" width="15" height="17" border="0"></td>		<td><A HREF="cad_agenda_exclui.asp?aluno=<%=rs("age_aluno")%>"><img src="imagens/deletar.gif" width="16" height="16" border="0" alt="Deletar"></A></td>	</tr><%rs.Movenext()wendrs.close()%></table>

 

 

e no final tenho o erro

 

Microsoft VBScript compilation error '800a03ea'

 

Syntax error

 

/MUSCULACAO_testes/admin/cad_agenda.asp, line 222

 

If Data <> "" Then

^

 

 

 

 

Sou iniciante e estou quebrando a cabeça mesmo! gostaria que alguem pudesse me ajudar!!

 

Obrigadooooo!!!

[jrcardozo 4]

não li com calma seu codigo, mas nessa linhasql2 = "SELECT age_data, age_horario, age_professor, age_aluno, age_obs, age_uni FROM Agenda1" &_ retire &_