codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title> Prenotazioni. </title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="HAPedit 3.1">
<meta http-equiv="refresh" content="20" /> 


<style type="text/css"> 
@import url("stile.css"); 
</style> 

</head>
<body>

<form name="sett" method="post" action="settimana.asp">

	<% 
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & server.MapPath("dati.mdb")
		sql = "select * from settimana ORDER BY ID1 asc"
		set rs = conn.execute(sql)
	%>


	
 SELEZIONA LA SETTIMANA: 
  
		
(Settimana  selezionata: 

	<%
	response.write (session("set"))
	
	
	
	
	%>

	) 
 


	<select name="settimana"><%	
	do until rs.eof%>
<option<%if (FormatDateTime(rs("inizio"),2) = session("set")) then%> selected<%end if%> value="<%=FormatDateTime(rs("inizio"),2)%>"> Lunedì <%=rs("inizio")%> </option><% 
		rs.movenext
   	loop%>
</select>



	<%
		Rs.Close
  		Set Rs = Nothing
		Conn.Close
  		Set Conn = nothing
	%>
	<input type="submit" name="invia" value="Conferma" title="Invia i dati." /> </form> </div>




<div id="footer">

<% 
inizio = session("set")

if session("set") <> "" then 
cont = 0

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & server.MapPath("dati.mdb")


  set rs=server.CreateObject("adodb.recordset")
  sql = "select TOP 25 * from consulente WHERE [data] >= #" & Month(inizio)&"/"&Day(inizio)&"/"&Year(inizio) &"#  ORDER BY DATA ASC, Fascia asc" 
  rs.open sql,conn,3,3


'************** stampo l'intestazione della tabella
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">

<tr>
    <td > </td>
    <td >  <%=inizio%>  </td>
    <td >  <%=dateadd("d",1,inizio)%>  </td>
    <td >  <%=dateadd("d",2,inizio)%>  </td>
    <td >  <%=dateadd("d",3,inizio)%>  </td>
    <td >  <%=dateadd("d",4,inizio)%>  </td>
</tr>
<%
response.Flush()

dim arr_orari
arr_orari=array("09.30 - 11.00","11.00 - 12.30","13.30 - 15.00","15.00 - 16.30","16.30 - 18.00")


for i=0 to 4

response.write "<tr><td>" & arr_orari(i) & "</td>"


	for j=0 to 4
	
	rs.filter="Fascia=" & (i+1) & " and [data]=#" & dateadd("d",j,inizio) & "#"
	
	
	if trim(rs("testo")) & "[]" <> "[]" Then
		%> <td class="a1" bgcolor = "red"> 
			&idG=<%=rs("data")%>"> <%=rs("testo")%>  
		</td><% 
	Else 
		%> 
		<td bgcolor = "green"> 
			&idG=<%=rs("data")%>">  00.00 - 00.00   
		</td>
		<%
	end if
	next
	rs.filter=""


'chiudo la riga
response.write "</tr>"

next

Rs.Close 
Set Rs = Nothing 
Conn.Close 
Set Conn = nothing 

end if
%>

</table>
</div>


</body>
</html>

apparte qualce zozzata mi pare funzionante

ATTENZIONE: nel db nella tabella consulenti c'è un record errato: ci sono due volte il recordt che ha per data 4/1/2006 -fascia 1...a uno dei due ci devi mettere fascia 5 altrimenti va in errore lo script