Evento no Mês

Olá Galera

Preciso de uma ajuda.

Eu tenho um sistema de evento e preciso q ele verifique se existe evento no mês atual.

o código:

<%if request("estado") <> "" Then sql = " and estado = '"& request("estado") &"'"end ifif request("cidade") <> "" Then Sql = " and cidade = '"& request("cidade") &"'"end if if request("data") <> "" Then	set rs = conexao.execute("Select * from agenda_eventos where data = '"& request("data") &"';")else set rs = conexao.execute("Select * from agenda_eventos where RIGHT(data,4) = '"&year(entdiax)&"' AND MID(data,4,2) = '"&mesdatax&"'"& sql &";")end if	if rs.eof then%> <br> </strong></font></span></strong></font></SPAN><SPAN style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px;" #invalid_attr_id="none"><span class="style5">Sem eventos neste mês <%	Else %> </span></SPAN></th> </tr> <tr> <th align="right" valign="top" scope="row"><TABLE width="180" border=1 align="left" cellPadding=2 cellSpacing=2 borderColor=#ffffff bgColor=CBE6F2> <TBODY> <TR> <TD width=16><IMG height=88 src="art_tit.gif" width=16></TD> <TD width="182" align="left" valign="top"><table width="190" border="0" cellspacing="1" cellpadding="0"> <tr> <th width="185" align="left" valign="top" bgcolor="#FFFFFF" scope="row"><font color="#3366CC"><strong><span class="txt">Eventos de <%=Ucase(Nome_mes)%> </span></strong></font></th> </tr> <tr> <th height="20" align="left" valign="top" scope="row"><table width="200" height="50" border="0" cellpadding="0" cellspacing="0" class="tabela"> <tr bgcolor="#F2F2F2"> <td width="30" align="center" bgcolor="#FFFFFF" class="txt">Dia</td> <td width="235" height="20" align="center" bgcolor="#FFFFFF" class="txt">Evento</td> <td width="135" align="center" bgcolor="#FFFFFF" class="txt">Cidade</td> <td width="48" align="center" bgcolor="#FFFFFF"class="txt">UF</td> </tr> <% x = 1 while not rs.eof %> <%if x = 2 then x = 1%> <tr bgcolor='#F8F8F8'> <%elsex = x + 1%> <tr> <%end if%> <td align="center" bgcolor="#FFFFFF" class="txt"><%=LEFT(rs("data"),2)%></td> <td bgcolor="#FFFFFF" class="txt"><div align="center"><a href="evento.asp?id=<%=rs("id")%>" class="menu"><%=rs("titulo")%></a></div></td> <td align="center" bgcolor="#FFFFFF" class="txt"><%=rs("cidade")%></td> <td align="center" bgcolor="#FFFFFF" class="txt"><%=rs("estado")%></td> </tr> <%rs.movenextwend%> </table></th> </tr> <tr> <th align="left" valign="top" scope="row"><span class="txt"> </span></th> </tr> </table></TD> </TR> </TBODY> </TABLE> <span class="txt-comum"> <%end ifrs.close%>Bando de dados em Access 

Grato

Alex