Problema campo date

[m_ferraris]

ciao a tutti, ho il seguente problema:

ho una pagina con un modulo dove ho una form dinamica chiamata data dalla quale estraggo l'annata (es. 2008).

Ho bisogno di creare una pagina che mi visualizzi tutti i valori presenti nel db di quell'anno.

Ho scritto il seguente codice con imbeccata però non riesco a far visualizzare nulla. Che cosa Sto sbagliando?.


<%
Anno = trim(request.form("data"))

dataInizio = "01/01/" & Anno
dataFine = "31/12/" & Anno

%>

</div>
<div align="center"> <font size="4" color="#FF00CC"><font color="#000066">RIEPILOGO
TOTALE DEI MOVIMENTI DEL MAGAZZINO PER IL PERIODO: <%=response.write (dataInizio)%>
- <%=response.write (dataFine)%></font></font></div>
</td>
</tr>
</table>
<form name="form1" method="post" action="pdf_carico.asp">
<table width="964" border="1" bordercolor="#000000">
<tr>
<td height="26" bgcolor="#FFFFCC">
<div align="left">
<p align="center"><font size="4" color="#990000">Elenco Totale degli
Caricati nel Magazzino:</font>

</p>
<table width="950" border="0" align="center">
<tr>
<td>
<table border="1" bordercolor="#000000" align="center">
<tr bgcolor="#990000">
<td height="30">
<div align="center"><font color="#FFFFFF" size="2">Cod.
Articolo:</font></div>
</td>
<td height="30">
<div align="center"><font color="#FFFFFF" size="2">Articolo:</font></div>
</td>
<td height="30">
<div align="center"><font color="#FFFFFF" size="2">Articoli
Caricati:</font></div>
</td>
<td height="30">
<div align="center"><font color="#FFFFFF" size="2"> Costo
Unitario Articolo &euro;:</font></div>
</td>
<td height="30">
<div align="center"><font color="#FFFFFF" size="2">Totale
IVA&euro;:</font></div>
</td>
<td height="30">
<div align="center"><font color="#FFFFFF" size="2">Prezzo
Totale Articoli &euro;:</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"> <font size="2">
<%
Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then
rsReport__MMColParam = Request.QueryString("data")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))
%> <%

Dim mdb
mdb = "../../Database/db.mdb"

'creiamo l'oggetto Connection
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

'apriamo la connessione
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)

'settiamo la nostra stringa SQL
Dim str_sql

str_sql = "SELECT codice_articolo FROM magazzino WHERE (data between #"&dataInizio&"# And #"&dataFine&"#) GROUP BY codice_articolo"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql)

DO WHILE NOT RS.EOF
%>
<input type="text" name="cod_art_carico" value="<%=rs("codice_articolo")%>">
<%

RS.MOVENEXT
LOOP
%>

Grazie mille

[optime]

molto più semplicemente

... WHERE Year(Data)=Anno ....

adattalo

[m_ferraris]

però nel db ho un campo data nel formato mm/gg/aaaa va bene lo stesso?

ho fatto così ma mi da errore:

<%
Anno = trim(request.form("data"))
%>

....

str_sql = "SELECT codice_articolo FROM magazzino WHERE Year(Data)=Anno GROUP BY codice_articolo"

....

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/test/magazzino/vedi_magazzino/anno/pagina1.asp, line 96

[optime]

Anno è variabile....

[m_ferraris]

è il parametro che devo ricevere dal form: es. può essere 2000 - 2005 - 2007. E' l'utente che lo gestisce scegliendolo dalla select dinamica

[optime]

mmmmmmmmmmmmm santa santa

str_sql = "SELECT codice_articolo FROM magazzino WHERE Year(Data)=" & Anno & " GROUP BY codice_articolo"

....

[m_ferraris]

scusami, hai ragione, sono proprio un somaro....

ora ho aggiornato come mi hai detto però mi da il seguente errore:

str_sql = "SELECT codice_articolo FROM magazzino WHERE Year(Data)=" & Anno & " GROUP BY codice_articolo"

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query 'Year(Data)='.
/test/magazzino/vedi_magazzino/anno/pagina1.asp, line 96

[optime]

anno sarà vuoto... controlla

[m_ferraris]

ho fatto questo per leggere l'anno dal form:

<%
Anno = request.form("Data")
%>

e l'ho messo in cima al codice.

E' giusto?.

[optime]

fa' response.write anno e vedi cosa vale (ma tutto de tutto te devo dì? )