filtro in asp su una query di Access

[iako77]

salve,
ho bisogno di una dritta:
in una pagina asp ho creato un Elenco/Menu in cui sono elencati i mesi per numero (01,02,03..).
Ho bisogno di riuscire a far sì che questo applichi un filtro ad una Query di Access (in cui c'è il campo mese numerico) che mi faccia vedere solo i record con quello specifico mese.
Ad oggi sono riuscito solo a farli visualizzare tutti con questo tentativo di codice:

<form name="form1" method="post" action="">
<p><font face="Verdana, Arial, Helvetica, sans-serif">Scegli il mese</font>
<select name="mese">
<option>01</option>
<option>02</option>
<option>03</option>
<option>04</option>
</select>
</p>
</form>
<p align="left"> <br>
<strong></strong><br>
<% SQL="SELECT * FROM Query_corsi_per_mese order by data asc"

Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<%
if form1= "01" then
SQL="SELECT * FROM Query_corsi_per_mese WHERE mese='01'"
end if
%>

<p align="left"><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data
corso: <%=rec("data")%></strong></font> </p>

<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF00FF">
<tr>
<td colspan="3" bgcolor="#FF00FF"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Corso:</strong>
<%=rec("tipo_corso")%> </font></td>
</tr>



</table>
<br>
<% rec.MoveNext
Wend
rec.close%>

 

[PoLe]

Prova a fare così:


...
<font face="Verdana, Arial, Helvetica, sans-serif">Scegli il mese</font>
<select name="mese" onChange='location.href("questa_pagina.asp?mese=" + this.value; )'>
<option value='01'>01</option>
<option value='02'>02</option>
<option value='03'>03</option>
<option value='04>04</option>
...e così via fino a 12
</select>
</form>
<p align="left"> <br>
<strong></strong><br>
<%
if request.querystring("mese")="" then
SQL="SELECT * FROM Query_corsi_per_mese order by data asc"
else
SQL="SELECT * FROM Query_corsi_per_mese WHERE mese='" & request.querystring("mese") & "'"
end if

Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<p align="left"><br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data
corso: <%=rec("data")%></strong></font> </p>

<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF00FF">
<tr>
<td colspan="3" bgcolor="#FF00FF"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Corso:</strong>
<%=rec("tipo_corso")%> </font></td>
</tr>
</table>
<br>
<% rec.MoveNext
Wend
rec.close%>


Scusa ma sono di fretta, se hai dubbi chiedi pure, appena posso torno e ti rispondo!

:byebye: