ciao a tutti, ho il seg. problema: ho una pagina in cui richiamo i valori presenti in una tabella in base al periodo di date inseriti nella pagina precedente e al cliente che scelgo in una select dinamica però, non mi visualizza i valori solo nell'intervallo tra le due date ma, mi fa vedere sempre tutti i valori presenti nel db per quel cliente.
Vi passo il codice della pagina così potete verificarmi l'errore.
Ho messo due campi testo al posto che data per evitare il il problema delle date in forma anglosassone.
pagina1.asp
<title>Fattura</title>
<body bgcolor="#CCCCCC" text="#000000">
<form name="form1" method="post" action="pagina2.asp">
<table width="1034" border="0" height="205">
<tr>
<td>
<%
ID=request("fornitori")
sql = "SELECT * FROM anag_esercizio WHERE ID="& ID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
</p>
<table width="1034" border="0">
<tr>
<td>
<p align="center"><font color="#009900" size="4">DATI DELL'ESERCIZIO
PER IL QUALE SI EMETTE FATTURA:</font> </p>
<p align="center"><font size="3" color="#000000">Tipo di Esercizio:</font>
<font size="4" color="#009900">
<input type="text" name="esercizio" value="<%=rs(1)%>">
</font>, Nome Esercizio:
<input type="text" name="nome_esercizio" value="<%=rs(2)%>">
;</p>
<p align="center">Cognome Titolare :
<input type="text" name="cognome_titolare" value="<%=rs(3)%>">
, Nome Titolare,
<input type="text" name="nome1_titolare" value="<%=rs(4)%>">
Secondo Nome:
<input type="text" name="nome2_titolare" value="<%=rs(5)%>">
;</p>
<p align="center">Codice Fiscale:
<input type="text" name="codfisc" value="<%=rs(11)%>">
P.Iva Esercizio:
<input type="text" name="piva" value="<%=rs(10)%>">
</p>
<p align="center"> Citta:
<input type="text" name="citta" value="<%=rs(7)%>">
, Via:
<input type="text" name="via" value="<%=rs(6)%>">
,</p>
<p align="center">C.A.P.:
<input type="text" name="cap" value="<%=rs(9)%>">
, Provincia:
<input type="text" name="provincia" value="<%=rs(8)%>">
</p>
</td>
</tr>
</table>
<table width="1034" border="0">
<tr>
<td>
<p align="center"><font color="#CC3300" size="4">DATI DELLA FATTUA:</font></p>
<p align="center"><font size="3" color="#000000">Numero Fattura:</font>
<input type="text" name="numero" value="<%=response.write (numero)%>">
, Anno:
<input type="text" name="anno" value="<%=response.write (anno)%>">
</p>
<p align="center">Periodo di Fatturazione: dal
<input type="text" name="dataInizio" value="<%=response.write (dataInizio)%>">
al:
<input type="text" name="dataFine" value="<%=response.write (dataFine)%>">
</p>
<p align="center">
<%
Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then
rsReport__MMColParam = Request.QueryString("data")
End If
%>
<%
dataInizio = day(Request.QueryString("dataInizio")) & "/" & month(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = day(Request.QueryString("dataFine")) & "/" & month(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM ddt_finale WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' ORDER BY esercizio ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
%>
<div align="center">Documenti di Trasporto a cui si riferisce la fattura:
<input type="text" name="ddt" size="50" value="<%=rs(2)%> \ <%=rs(1)%>">
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<p align="center">
<div align="center">Data Emissione Fattura:
<input type="text" name="data">
(gg/mm/aaaa)</div>
</div>
</td>
</tr>
</table>
<table width="1034" border="0">
<tr>
<td height="26">
<div align="left">
<p align="center"></p>
</div>
<div align="center"> <font size="4" color="#FF00CC"><font color="#993399">RIEPILOGO
TOTALE DEGLI ELEMENTI DA FATTURARE DI TUTTI I D.d.t.:</font></font></div>
</td>
</tr>
</table>
<table width="1034" border="0">
<tr>
<td height="26">
<div align="left">
<p align="center"></p>
<table width="681" border="0" align="center">
<tr>
<td>
<table border="1" bordercolor="#000000" align="center" width="672">
<tr>
<td bgcolor="#FF9966" height="30" width="219">
<div align="center">Tot. Quantità Articolo:</div>
</td>
<td bgcolor="#FF9966" height="30" width="207">
<div align="center">Articolo:</div>
</td>
<td bgcolor="#FF9966" height="30" width="224">
<div align="center">Prezzo Tot. Articoli €:</div>
</td>
</tr>
<tr>
<td width="219">
<div align="center">
<%
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 articolo, Sum(quantita) AS totale1 FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' GROUP BY articolo"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql)
DO WHILE NOT RS.EOF
%>
<input type="text" name="quantita" value="<%=rs("totale1")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
<td width="207">
<div align="center">
<%
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
' Stringa di interrogazione sulla tabella libri
sql = "SELECT articolo FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' GROUP BY articolo"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
set rs = conn.execute(str_sql)
DO WHILE NOT RS.EOF
%>
<input type="text" name="articolo" value="<%=rs("articolo")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
<td width="224">
<div align="center">
<%
Dim mdb2
mdb2 = "../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn2
Set conn2 = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL
Dim str_sql2
str_sql2 = "SELECT articolo, Sum(tot_prezzo) AS totale2 FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' GROUP BY articolo"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql2)
DO WHILE NOT RS.EOF
%>
<input type="text" name="prezzo" value="<%=rs("totale2")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<table width="1034" border="0">
<tr>
<td>
<div align="left">
<table width="506" border="1" align="center" bordercolor="#000000">
<tr bgcolor="#FFFFCC">
<td colspan="2">
<div align="right">Aliquota:</div>
</td>
<td colspan="2">
<div align="center">
<input type="text" name="aliquota" value="20%">
</div>
</td>
</tr>
<tr bordercolor="#CCCCCC">
<td colspan="4"> </td>
</tr>
<tr bgcolor="#FFCCCC">
<td colspan="2">
<div align="right">Imponibile € :</div>
</td>
<td colspan="2">
<div align="center">
<%
Dim mdb3
mdb3 = "../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn3
Set conn3 = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn3.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL
Dim str_sql3
str_sql3 = "SELECT Sum(tot_prezzo) AS totale3 FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "'"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql3)
DO WHILE NOT RS.EOF
%>
<input type="text" name="imponibile" value="<%=rs("totale3")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78"> </td>
<td width="80"> </td>
<td width="76"> </td>
<td width="78"> </td>
</tr>
<tr bgcolor="#CC99CC">
<td colspan="2">
<div align="right">Imposta €:</div>
</td>
<td colspan="2">
<div align="center">
<%
Dim mdb4
mdb4 = "../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn4
Set conn4 = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn4.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL
Dim str_sql4
str_sql4 = "SELECT Sum(imposta) AS totale4 FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "'"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql4)
DO WHILE NOT RS.EOF
%>
<input type="text" name="imposta" value="<%=rs("totale4")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
</tr>
<tr bordercolor="#CCCCCC">
<td width="78"> </td>
<td width="80"> </td>
<td width="76"> </td>
<td width="78"> </td>
</tr>
<tr bgcolor="#9999FF">
<td colspan="2">
<div align="right"><font size="5">Tot. Fattura €</font>:</div>
</td>
<td colspan="2">
<div align="center">
<%
Dim mdb5
mdb5 = "../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn5
Set conn5 = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn5.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL
Dim str_sql5
str_sql5 = "SELECT Sum(totale) AS totale5 FROM calcolo_fattura WHERE (data BETWEEN '"&dataInizio&"' And '"&dataFine&"') AND nome_esercizio= '" &REQUEST("nome_esercizio")& "'"
'creiamo l'oggetto RS
set rs = conn.execute(str_sql5)
DO WHILE NOT RS.EOF
%>
<input type="text" name="totale_fattura" value="<%=rs("totale5")%>">
<%
RS.MOVENEXT
LOOP
%>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<table width="1034" border="0">
Rispondi quotando
