primoGiornoAnnoCorrente = annoCorrente & "0101" 'controllo se sono stati inseriti i giorni dell'anno in corso Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB strSql = "SELECT tblRegistro.idGiorno FROM tblRegistro WHERE idGiorno = " & primoGiornoAnnoCorrente rs.Open strSql if not rs.EOF then chkAnnoCorrente = "si" else chkAnnoCorrente = "no" end if rs.Close set rs = Nothing %> <%'response.write chkAnnoCorrente%> <%if chkAnnoCorrente = "no" then%>
Inserisci i giorni dell'anno <%=annoCorrente%> sul calendario
   
<%else%> Sono stati già inseriti i giorni dell'anno <%=annoCorrente%> sul calendario <%end if%> <% annoPrecedente = annoCorrente - 1 primoGiornoAnnoPrecedente = annoPrecedente & "0101" 'controllo se sono stati inseriti i giorni dell'anno precedente Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB strSql = "SELECT tblRegistro.idGiorno FROM tblRegistro WHERE idGiorno = " & primoGiornoAnnoPrecedente rs.Open strSql if not rs.EOF then chkAnnoPrecedente = "si" else chkAnnoPrecedente = "no" end if rs.Close set rs = Nothing meseCorrente = month(Date) meseSelezionato = Request("meseSelezionato") annoSelezionato = Request("annoSelezionato") %>
<%if annoSelezionato = "0" then%> <%if chkAnnoPrecedente = "si" then%> <%else%> <%end if%> <%else%> <%if chkAnnoPrecedente = "si" then%> <%else%> <%end if%> <%end if%>
Seleziona un anno
Anno selezionato
<%=annoCorrente%>
Seleziona un altro anno
Anno selezionato
<%=annoCorrente%>
Seleziona un mese