Listar informações de acordo com data no Cbox

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!!!