<% '*************************************************************** '* Controllo l'ultimo giorno inserito * '*************************************************************** Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB strSql = "SELECT tblRegistro.idGiorno FROM tblRegistro" rs.Open strSql, connDB, 3, 3 if not rs.EOF then rs.MoveLast ultimaData = rs("idGiorno") end if rs.Close set rs = Nothing '*************************************************************** '* Formatto la data * '*************************************************************** if ((isnull(ultimaData)) or (ultimaData = "") or (ultimaData = null)) then ggUltimaData = day(date) if ggUltimaData <10 then ggUltimaData = "0" & ggUltimaData end if mmUltimaData = month(date) if mmUltimaData<10 then mmUltimaData = "0" & mmUltimaData end if aaaaUltimaData = year(date) strUltimaData = ggUltimaData & "/" & mmUltimaData & "/" & aaaaUltimaData else ggUltimaData = Right(ultimaData,2) mmUltimaData = Mid(ultimaData,5,2) aaaaUltimaData = Left(ultimaData,4) strUltimaData = ggUltimaData & "/" & mmUltimaData & "/" & aaaaUltimaData end if %>

Impostazione calendario
Risultano in memoria i giorni fino a:		<%=strUltimaData%>
Numero di anni di ulteriore estensione:

  <% '*************************************************************** '* Pesco anno e mese a partire dalla data odierna * '*************************************************************** anno = Year(Date) mese = Month(Date) giorno = day(Date) if (mese < 10 ) then strMese = "0" & mese else strMese = cstr(mese) end if if (giorno < 10 ) then strGiorno = "0" & giorno else strGiorno = cstr(giorno) end if annoF = request("annoFestivo") if annoF = "" then annoF = anno end if annoF = annoF * 1 meseF = request("meseFestivo") if meseF = "" then meseF = mese end if %>

Impostazione giorni non lavorativi
Seleziona un anno		<% for i = anno to aaaaUltimaData if i = annoF then %> <%=i%> <% else response.write "" & i & "" end if Next %>
Seleziona un mese		selected<%end if%>> selected<%end if%>>Gennaio selected<%end if%>>Febbraio selected<%end if%>>Marzo selected<%end if%>>Aprile selected<%end if%>>Maggio selected<%end if%>>Giugno selected<%end if%>>Luglio selected<%end if%>>Agosto selected<%end if%>>Settembre selected<%end if%>>Ottobre selected<%end if%>>Novembre selected<%end if%>>Dicembre
<% meseF = meseF * 1 if not (meseF = 0) then if meseF < 10 then strMeseF = "0" & meseF else strMeseF = cstr(meseF) end if end if inf = annoF & strMeseF & "00" sup = annoF & strMeseF & "32" strSql = "SELECT tblRegistro.idGiorno, tblRegistro.giornoFestivo FROM tblRegistro WHERE (((tblRegistro.idGiorno)<"& sup & " AND (tblRegistro.idGiorno)>" & inf & "));" Set rs=Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = connDB rs.Open strSql Do while not rs.EOF idGiorno = rs("idGiorno") ggSett = giornoSettimana(idGiorno) gg = Right(idGiorno,2) giornoFestivo = rs("giornoFestivo") %> <% rs.MoveNext Loop rs.Close Set rs = nothing %> Giorno Festivo > <%=ggSett%> > <%=gg%> > value="<%=idGiorno%>">