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%>
|
|
<%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")
%>
|
|
|
|
|
|