Agenda de Eventos

[claytonprog 0]

Olá Pessoal! Estou tentando montar uma pequena agenda de eventos e estou com dificuldade, segue codigo abaixo da agenda:agenda.asp

<%Session.LCID=1046SET Conexao = Server.CreateObject("AdoDB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("agenda.mdb")%><% dt = Cdate(Request.QueryString("dt"))mes = CInt(Request.QueryString("mes"))Dim Sql, RS, m, d, ad = day(dt)m = month(dt)a = year(dt)Sql = "SELECT * FROM AGENDA Where month(data) = "&mes&" "set rs = server.CreateObject("AdoDB.RecordSet")RS.Open SQL,ConexaoWhile NOT RS.EOF%><div align="center"> <center> <table border="0" width="48%" cellspacing="0">   <tr>     <td width="24%" bgcolor="#FFFFFF"><font face="Verdana" color="#FF0000" size="1"><b>Evento:</b></font></td>     <td width="76%" bgcolor="#FFFFFF"><font size="1" face="Verdana"><%=RS("evento")%></font></td>   </tr>   <tr>     <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Local:</b></font></td>     <td width="76%"><font size="1" face="Verdana"><%=RS("local")%></font></td>   </tr>   <tr>     <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Cidade:</b></font></td>     <td width="76%"><font size="1" face="Verdana"><%=RS("cidade")%></font></td>   </tr>   <tr>     <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Data:</b></font></td>     <td width="76%"><font size="1" face="Verdana"><%=RS("data")%></font></td>   </tr>   <tr>     <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Descrição:</b></font></td>     <td width="76%"><font size="1" face="Verdana"><%=RS("detalhes")%></font></td>   </tr> </table> </center></div>  <p align="center"><a href="agenda.asp?&mes<%=mes%>" target="_blank"><font face="Verdana" size="1"><b>Ver todos deste Mês</b></font></a></p><%RS.MoveNextWendSet RS = Nothing%><form method="POST" action="agenda.asp"><p align="center"> <font face="Verdana" size="1">Pesquisar eventospassados:</font><font face="Verdana" size="2">     </font><font face="Verdana" size="1">Mês</font><font face="Verdana" size="2"></font> <font face="Verdana" size="1"> <select size="1" name="id">   <option value="1">Janeiro</option>   <option value="2">Fevereiro</option>   <option value="3">Março</option>   <option value="4">Abril</option>   <option value="5">Maio</option>   <option value="6">Junho</option>   <option value="7">Julho</option>   <option value="8">Agosto</option>   <option value="9">Setembro</option>   <option value="10">Outubro</option>   <option value="11">Novembro</option>   <option value="12">Dezembro</option> </select></font> <input type="submit" value="Vai"><br></form>

Meu banco de dados está assim estruruta:Id - AutonumEvento - Textodata - DataAbreviadadetalhes - TextoLocal - textoCidade - TextoQuando eu rodo o script aparece o combo com os meses e quando eu clico no mês não retorna nada. Por Favor me ajudem ai! Desde já agradeço.

[jrcardozo 4]

tente isso

mes = CInt(Request.QueryString("mes"))if mes="" thenmes = CInt(Request.form("id"))end if