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