da numero di settimana ai giorni

[Silcrinf]

Ciao a tutti!
Come da titolo, io avrei bisogno di un menu a tendina che mi riporti tutte le settimane dell'anno, così visualizzate:

dal 02/01/2005 al 08/02/2005
dal 09/01/2005 al 15/02/2005
dal 16/01/2005 al 22/02/2005
dal 23/01/2005 al 29/02/2005
...

La value di ogni voce deve contenere il numero di settimana corrispondente.

E' un casino???

grazie mille!

[Enrique_Rojas]

creati una tabella nel db dove caricherai le settimane dell'anno e la richiami come menu a tednina nel tuo script.

[salvodibella]

Per caso lavori all'INPS????
Scusa la domanda cretina, ma una cosa simile l'ho dovuta fare per un mio amico che è un ispettore dell'INPS. mah!
di seguito ti posto il codice che ho riadattato senza fare troppe modifiche per la tua pagina, quindi non mi rimproverate se ci sono passaggi inutili... ma ti assicuro che funziona.

<form name="form1" action="settimane.asp" method="get">
	<select name="settimana">
<%
	annoSelezionato = "2005"
	inizio = "01/01/" & annoSelezionato
	fine = "31/12/" & annoSelezionato
	if isDate(inizio) AND isDate(fine) then
		gio=day(inizio)
		mes=month(inizio)
		ann=year(inizio)
		giof=day(fine)
		mesf=month(fine)
		annf=year(fine)
		quantiMesi=datediff("m",inizio,fine)
		contatore=0
		multiplo=5
		do while contatore <= quantiMesi
			if not contatore=0 then
				mes = mes + 1
			end if
			contatore=contatore+1
			if contatore = multiplo then
				multiplo = multiplo + 4
			end if
			giornodelmese= gio & "/" & mes & "/" & ann 
			giorno=1
			if (mes + 1)>12 then 
				anno=ann+1
				mese=1
			else
				anno=ann
				mese=(mes+1)
			end if
			primodelmesesuccessivo="01" & "/" & mese & "/" & anno
			ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo)
			While (giorno<=day(ultimodelmese))
				giornodellaset=WeekDay(giornodelmese)			        for i=giornodellaset to 7
				if weekDay((giorno) & "/" & mes & "/" & ann) = 1 then
					contaSettimane = contaSettimane + 1
					if len(contaSettimane) = 1 then
						contaSettimane = "0" & contaSettimane
					end if
					if len(giorno) = 1 then
						giornoCorretto = "0" & giorno
					else
						giornoCorretto = giorno
					end if
					if len(mes) = 1 then
						meseCorretto = "0" & mes
					else
						meseCorretto = mes
					end if
					response.Write "<option value='" & contaSettimane & "'>da " & (giornoCorretto) & "/" & meseCorretto & "/" & ann
					passatoDaQui = true
				end if
				if weekDay((giorno) & "/" & mes & "/" & ann) = 7 and passatoDaQui = true then
					if len(giorno) = 1 then
						giornoCorretto = "0" & giorno
					else
						giornoCorretto = giorno
					end if
					if len(mes) = 1 then
						meseCorretto = "0" & mes
					else
						meseCorretto = mes
					end if
					response.Write " a " & (giornoCorretto) & "/" & meseCorretto & "/" & ann & "</option>"
					passatoDaQui = false
				end if
					giorno=giorno+1
					if giorno>day(ultimodelmese) then exit for
				next
				giornodelmese=(giorno) & "/" & mes & "/" & ann 
			Wend
		loop
			if passatoDaQui = true then
				giornoCorretto = giornoCorretto + 6
				giornoCorretto = giornoCorretto - 31
				if len(giornoCorretto) = 1 then
					giornoCorretto = "0" & giornoCorretto
				end if
				response.Write " a " & (giornoCorretto) & "/" & "01" & "/" & ann + 1 & "</option>"
			end if
	end if
%>
	</select>
	

	

	<input type=submit value="invia dati">
</form>
<%
	response.write "
Nell'anno " & ann & " ci sono in totale: " & datediff ("ww",inizio,fine)& " settimane

"
	if request("settimana") > "" then
		response.Write "La settimana selezionata e': <font color=red>" & request("settimana") & "</font>"
	end if

%>

[Silcrinf]

Grazie per l'aiuto!
Enrique_Rojas: quello che intendevo me l'ha spiegato Salvodibella.
Salvodibella: no, non lavoro all'INPS! eheheheheh Lo provo e ti faccio sapere!
Grazie per l'aiuto!

[gim]

Ciao a tutti; ho provato ad adegura il vostro interessantissimo script per creare un menu in cui mi appaia semplicemte un giorno della settimana; solo che mi viene visualizzata la domenica e non il sabato di cui avrei bisogno; per chiarezza, il risultato dovrebbe essere questo:

<option value="01/01/2005">01/01/2005</option>
<option value="01/08/2005">01/08/2005</option>
<option value="01/15/2005">01/15/2005</option>

ecc., fino a fine anno. In sostanza deevono apparire solo i sabato di tutto l'anno.

Sapreste darmi qualche dritta?
Grazie

[albis]

<select>
<%
dim DtDataPrimo
DIM intDayFirst
DtDataPrimo = "1/1/" & Year(Date)
intDayFirst=Weekday(DtDataPrimo)
DtDataPrimo = DateAdd("d",7-intDayFirst,DtDataPrimo)
Response.Write intDayFirst

while Year(DtDataPrimo) = Year(Date)

Response.Write "<option value=""" & DtDataPrimo & """>" & DtDataPrimo & "</option>"
DtDataPrimo = DateAdd("d",7,DtDataPrimo)
wend
Response.Write(DtDataPrimo )
%>
</select>

[gim]

Perfetto. Grazie mille!!!

[albis]

di nulla