<%
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(mese)
Select case mese
case 01
mmStringa = "Gennaio"
case 02
mmStringa = "Febbraio"
case 03
mmStringa = "Marzo"
case 04
mmStringa = "Aprile"
case 05
mmStringa = "Maggio"
case 06
mmStringa = "Giugno"
case 07
mmStringa = "Luglio"
case 08
mmStringa = "Agosto"
case 09
mmStringa = "Settembre"
case 10
mmStringa = "Ottobre "
case 11
mmStringa = "Novembre"
case 12
mmStringa = "Dicembre"
end select
associaMese = mmStringa
End Function
%>
Il Forno di Mauro Passagrilli
Parametri di impostazione Step 3/3: Imposta numero del lotto di produzione
<%
annoCorrente = Year(Date)
annoPrecedente = annoCorrente - 1
primoGiornoAnnoPrecedente = annoPrecedente & "0101"
primoGiornoAnnoCorrente = annoCorrente & "0101"
%>
<%
'Eseguo dei controlli per vedere se sono stati inseriti i record relativi agli anni precedenti, corrente e prossimo
'check per l'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
'check per l'anno corrente
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
%>
<%
end if
%>
<%
'Acquisisco l'id del mese selezionato
id = Request("id")
if id = "" then
chkMese = "no"
else
chkMese = "si"
end if
if chkMese = "si" then
idMese = Mid(id,5,2)
meseSelezionato = associaMese(idMese)
idAnno = Left(id,4)
id = clng(id)
inf = id - 1
sup = idAnno & idMese & "32"
%>
Anno Selezionato: <%=meseSelezionato%> <%=idAnno%>
Festivo
Giorno
Numero Lotto
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = connDB
strSql = "SELECT tblRegistro.idGiorno, tblRegistro.lottoProdottoFinito, tblRegistro.giornoFestivo FROM tblRegistro WHERE (((tblRegistro.idGiorno)<"& sup & " AND (tblRegistro.idGiorno)>" & inf & "));"
rs.Open strSql
Do while not rs.EOF
idGiorno = rs("idGiorno")
gg = Right(idGiorno,2)
lottoProdottoFinito = rs("lottoProdottoFinito")
giornoFestivo = rs("giornoFestivo")
%>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>