<% Function giornoSettimana(data) gg = Right(data,2) mm = Mid(data,5,2) aaaa = Left(data,4) dataVera = gg & "/" & mm & "/" & aaaa dataVera = cdate(dataVera) ctrl = weekday(dataVera) Select case ctrl case 1 giornoS = "domenica" case 2 giornoS = "lunedì" case 3 giornoS = "martedì" case 4 giornoS = "mercoledì" case 5 giornoS = "giovedì" case 6 giornoS = "venerdì" case 7 giornoS = "sabato" End Select giornoSettimana = giornoS End Function Function associaMese(mm) Select case mese case 1 mm = "Gennaio" case 2 mm = "Febbraio" case 3 mm = "Marzo" case 4 mm = "Aprile" case 5 mm = "Maggio" case 6 mm = "Giugno" case 7 mm = "Luglio" case 8 mm = "Agosto" case 9 mm = "Settembre" case 10 mm = "Ottobre " case 11 mm = "Novembre" case 12 mm = "Dicembre" end select associaMese = mm End Function %>

Il Forno di Mauro Passagrilli Parametri di impostazione
	<% '*************************************************************** '* 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%>">

<% connDB.Close Set connDB = nothing %>