<% 'Mirem el num. de registres a dies i ho guardarem a la variable numdies set rs=server.createobject("ADODB.RecordSet") SQL=" FROM RUT_canruti_dies WHERE data>=CURDATE() and data<=DATE_ADD(CURDATE(), INTERVAL 390 DAY) ORDER BY data" rs.Open "SELECT count(*) as numdies" & SQL, oConn Qnumdies=rs("numdies") rs.close rs.Open "SELECT *" & SQL, oConn %> SCU: Dijous de Can Ruti <% 'Creem el recordsets set rs_metges=server.createobject("ADODB.RecordSet") set rs_textcanruti=server.createobject("ADODB.RecordSet") sql="SELECT * FROM RUT_canruti_text WHERE idioma='" & Idioma & "'" rs_textcanruti.Open sql, oConn 'opcio del menu CONST OPMENU=1 %>

"<%=treure_p(rs_textcanruti("titol"))%>"

<%=rs_textcanruti("introduccio")%>

<%=treure_p(rs_text("C_MES_INFORMACIO"))%>

<%=treure_p(rs_text("C_CALENDARI"))%>

<% n=0 while not rs.eof n=n+1 SQL=" FROM RUT_canruti_metges WHERE data='" & year(rs("data")) & "-" & month(rs("data")) & "-" & day(rs("data")) &"'" rs_metges.Open "SELECT COUNT(*) as contametges" & SQL, oConn contametges=cint(rs_metges("contametges")) color_fons="#33cc33" if contametges>=6 then color_fons="#FF0000" rs_metges.close rs_metges.Open "SELECT *" & SQL, oConn,3,3 %> <%rs_metges.close rs.movenext wend%>
 <%=treure_p(rs_text("C_DATA"))%>    <%=treure_p(rs_text("C_INSCRITS"))%>   <%=treure_p(rs_text("C_OBSERVACIONS"))%>
 <%=escriu_data (rs("data"))%>   <%if contametges<6 then%> ')" value="<%=treure_p(rs_text("C_NOVA_INSCRIPCIO"))%>"/> <%end if%>   <% response.Write contametges%> <%if contametges>0 then%> <%else%>     <%end if%>  


<%=treure_p(rs_text("C_CONTACTAR"))%> <%=rs_textcanruti("contactar")%>

<%tancar %>