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
Rispondi quotando
Oppa 
