Ciao,
Ho la necessità di visualizzare i turni delle farmacie riportati in un database il cui risultato per esempio può essere

Data Farmacia Indirizzo
_________ ______________ ___________
01/04/2011 Farmacia Bianchi Via Tizio, 1
01/04/2011 Farmacia Rossi Via Caio, 2
01/04/2011 Farmacia Verdi Via Sempronio,3

02/04/2011 Farmacia Pippo Via Roma, 7

03/04/2011 Farmacia Pluto Via Venezia,8


Vorrei poter visulizzare nel campo "Data", quando la data è identica" solamenmte una volta i giorni che sono uguali.
Mi spiego megio. Vorrei mi uscisse così:


Data Farmacia Indirizzo
_________ ______________ ___________
01/04/2011 Farmacia Bianchi Via Tizio, 1
Farmacia Rossi Via Caio, 2
Farmacia Verdi Via Sempronio,3

02/04/2011 Farmacia Pippo Via Roma, 7
03/04/2011 Farmacia Pluto Via Venezia,8

Ho provato a cambiare l'interrogazione del DB a spostare "move.next" ma ..niente da fare.
Il codice di base è il seguente:
<%
Data=request.querystring("Data")
Farmacia=request.querystring("Farmacia")
Indirizzo=request.querystring("Indirizzo")
%>

<%
sql="select * from Turni2011 where Data between #04/01/2011# AND #04/30/2011# order by Data asc"
%>

<%
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database/farmacie.mdb")
set rs=Conn.Execute(sql)
%>

<table width="100%" border="1" cellspacing="0" cellpadding="4">
<tr>
<td width="10%">Data</td>
<td width="50%">Farmacia</td>
<td width="40%">Indirizzo</td>
</tr>


<%
Do while not rs.EOF
i=i+1
if intVolta="1" then
intVolta="0"
intSfondo="#EFF4F7"
else
intVolta="1"
intSfondo="#FFFFFF"
end if
%>


<tr bgcolor="<%=intSfondo%>">
<td width="10%"><%response.write rs("Data")%></td>
<td width="50%"><%response.write rs("Farmacia")%></td>
<td width="40%"><%response.write rs("Indirizzo")%></td>
</tr>

<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>

</table>

Qualche consiglio? Grazie