Ciao a tutti. Ho un problema che non riesco a risolvere.
Allora ho un database in cui sono memorizzate una serie di partite,in pratica si parla di un campionato interprovinciale. Devo stampare a video le varie partite separandole in giornate. dovrei ottenere questo risultato:



-----------------------------------
giornata n° 1
-----------------------------------
partita a
partita b
partita c
partita d
ecc
------------------------------------


------------------------------------
giornata 2
------------------------------------
partita a
partita b
partita c
partita d
ecc
------------------------------------


------------------------------------
giornata 3
------------------------------------
partita a
partita b
partita c
partita d
ecc
------------------------------------

ecc ecc


Con questo codice:
codice:
        <%

set Conn = Server.CreateObject("ADODB.Connection")
strCon = "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("mdb-database/xxxxxxxxxxx.mdb")
Conn.open (strCon)

set objrs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM calendario WHERE cat='"&cat&"' "
objrs.open sql, conn, 3, 3


if NOT objrs.RecordCount = 0 then


Do While (Not objrs.EOF)
%>
                  </font></p>
                <font color="#FFCC00"><font color="#FFFFFF"> </font></font>
                <table width="415" border="1" cellpadding="0" cellspacing="0">
                  <tr bordercolor="#FFCC00" bgcolor="#333333" class="stile1"> 
                    <td><font color="#FFFFFF"> </font><font color="#FFFFFF"> 
                      giornata: </font><font color="#FFCC00"> <font color="#FFFFFF"> 
                      <% Response.Write(objrs("giornata_num")) %>
                      </font></font></td>
                  </tr>
                </table>
                <font color="#FFCC00"><font color="#FFFFFF"> </font></font> 
                <table width="415" border="1" cellpadding="0" cellspacing="0">
                  <tr bordercolor="#FFCC00" bgcolor="#333333" class="stile1"> 
                    <td width="137"><font color="#FFFFFF"> 
<% Response.Write(objrs("sq_casa"))%>
                      </font></td>
                    <td width="137"><font color="#FFFFFF"> 
<% =Response.Write(objrs("sq_ospite"))%>
                      </font></td>
                    <td width="45"><font color="#FFFFFF"> 
<% dim id
id=objrs("id")
if objrs("ris_casa")=0 AND objrs("ris_ospite")=0 then
						response.write "comunica"
						else Response.Write(objrs("ris_casa")&":"& objrs("ris_ospite"))
end if
%>
                      </font></td>
                    <td width="45"><font color="#FFFFFF"> 
<% =Response.Write(objrs("data"))%>
                      </font></td>
                    <td width="45"><font color="#FFFFFF"> 
<% =Response.Write(objrs("ora"))%>
                      </font></td>
                  </tr>
                </table>
<% Response.Write("
") 
objrs.MoveNext
Loop
else 
Response.Write("mi dispiace, il seguente calendario non è ancora disponibile")
end if

objrs.close
set objrs=nothing
conn.close
set conn=nothing
%>
Ovviamente con questo riottengo per ogni partita la riga giornata n°..... cosa che non deve avvenire.
Chi mi può dare una mano?
ciao grazie