<%
            dim rsUtenti as New ADODB.Recordset
            dim con as New ADODB.Connection
            dim rsAssegnazioni as New ADODB.Recordset
            dim strCon as String
            dim strsql as String
            dim command as New ADODB.Command
            dim prm as New ADODB.Parameter
            dim prm2 as New ADODB.Parameter
            dim testo as String
            
            strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\prova.mdb;Persist Security Info=False"
            con.Open(strcon)
            command.ActiveConnection=con
            testo=""
            strsql="Select * from utenti order by soggetto"
            rsutenti.Open (strsql, con)
            if rsutenti.EOF=False and rsutenti.BOF=False then
                rsutenti.MoveFirst
                do while not rsutenti.EOF
                    command.CommandText="Select Seriale,datainizio,datafine from assegnazioniutenti where soggetto='" + rsutenti.Fields("Soggetto").Value + "' and datainizio < ? and (datafine > ? or isdbnull(datafine))"
                    
                    prm.Value="12/31/2005"
                    prm2.Value="12/01/2005"
                    command.Parameters.Append (prm)
                    command.Parameters.Append (prm2)
                    rsassegnazioni.Open (command)
                    if rsassegnazioni.EOF=False and rsassegnazioni.BOF=False then
                        rsassegnazioni.MoveFirst
                        do while not rsassegnazioni.EOF
                            testo= testo & rsutenti.Fields("Soggetto").Value & ";" & rsassegnazioni.Fields("Seriale").Value & ";" & rsassegnazioni.Fields("Datainizio").Value & ";" & rsassegnazioni.Fields("Datafine").Value & vbcrlf
                            rsassegnazioni.MoveNext
                        loop
                    end if
                    rsassegnazioni.Close
                    rsutenti.MoveNext
                Loop
            End If
            rsutenti.Close
        %>
        <%=testo%>