<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ("universitanew") set rs=Server.Createobject("ADODB.Recordset") rs.activeconnection=conn s="i" sql = "SELECT * " &_ " FROM ((Docenti LEFT JOIN Docenti_Materie ON Docenti.DO_ID = Docenti_Materie.DM_ID_DOCENTE) LEFT JOIN Materie ON Docenti_Materie.DM_ID_MATERIA = Materie.MA_ID) LEFT JOIN Durata ON Materie.MA_DURATA = Durata.DU_ID " &_ " WHERE Docenti.DO_INTER='" & s & "' and Materie.MA_INTER='" & s & "' " &_ " ORDER BY Docenti.DO_COGNOME, Docenti.DO_NOME" rs.open sql %> <% bgc="#eeeeee" do while not rs.eof if rs("DO_ID")<>DO_ID then if bgc="#eeeeee" then bgc="#ffffff" else bgc="#eeeeee" end if end if %> <% if rs("DO_ID")<>DO_ID then %> <% else %> <% end if %> <% DO_ID=rs("DO_ID") rs.movenext loop Conn.Close %>

"><%=rs("DO_COGNOME") & " " & rs("DO_NOME")%>

"><%=rs("MA_DES")%><%if not isnull(rs("DU_DES")) then response.write " [" & rs("DU_DES") & "]"%>