Mese precedente o successivo

[yoyo87]

function giornidelmese(mese, anno)
  DataInizio = CDate("01/" & mese & "/" & anno)
  DataFine = DateAdd("m", 1, DataInizio)
  giornidelmese = DateDiff("d", DataInizio, DataFine)
end function
%>
<table style="width:140;background-color:#6699CC;border:2px solid sylver;">
<tr>
	<td>"><span onclick="precedente()" style="font-size:22;font-family:arial;font-weight:bold;color:black;text-decoration:none;"><</span></td>
	<td colspan="5" align="center" style="padding-top:2;">
 <% response.Write(Ucase(monthname(month(date()))) & " " & year(date()))%>
		</td>	<td align="right">"><span onclick="successivo()" style="font-size:22;font-family:arial;font-weight:bold;color:black;text-decoration:none;">></span></td>

In base a questo codice come posso far in modo che il nome del mese (dato da: "Ucase(monthname(month(date()))) ") mi possa cambiare in base al link "?data=<%=DateAdd("m", -1, data) ", oppure "?data=<%=DateAdd("m", 1, data) "?

Spero di essermi spiegato :P

GRAZIE PER L'AIUTO

[kylnas1]

Originariamente inviato da yoyo87
Spero di essermi spiegato :P

GRAZIE PER L'AIUTO

No

[yoyo87]

In pratica...Sto creando un calendario, vorrei cambiare il mese in base a dei link che muovono il calendario al mese successivo o precendente.

--------------------
< Luglio >
Lu Ma Me Gi Ve Sa Do
- - - 1 2 3 4
5 6 7 8 9 10 11

In pratica, con questo esempio i link "<" e ">" muovono il calendario col mese successivo e precedente, però non riesco anche a far cambiare il nome del mese....speriamo di essere stato più chiaro

[yoyo87]

...pensavo venisse meglio l'esempio del calendario..uff...

[Shagrat]

http://www.mattkruse.com/javascript/calendarpopup/

bastano?

[yoyo87]

Passo alla prossima domanda:

CHE ERRORE C'E' CHE NON RIESCO A TROVARE NULLA????
Non mi da errore sulla pagina però funziona come dovrebbe perchè quando cambio il select del mese rimane sempre quello corrente.

<%
			mese = MonthName(month(data))
			lettera = ucase(mid(mese,1,1))
			mese = lettera & mid(mese,2,len(mese))
			anno = year(data)
		%>		
				<form name='selectAnno' ID=Form1>
					<SELECT id='mese' size='1' onchange='cambiaMeseAnno()' style="font : bold 10pt arial;color=#004080">
		<%
				for i = 1 to 12
					nomeDelMese = MonthName(month("01/" & i & "/04"))
					lettera = ucase(mid(nomeDelMese,1,1))
					nomeDelMese = lettera & mid(nomeDelMese,2,len(nomeDelMese))
		%>
					<OPTION VALUE=<%=nomeDelMese%>> <%=nomeDelMese%>
		<%
				next
		%>
				</select>
				<select name='anno' size='1' onchange='cambiaMeseAnno()'  style="font : bold 10pt arial;color=#004080;width:60;">
		<%
				for i = 1900 to 2100
		%>			<option value=<%=i%>> <%=i%>
		<%
				next
		%>		</select>

	</td></form>
----------------------------------------------------
<script language="vbscript">
<% if data > "" then
	mese1 = month(data) - 1
	anno1 = year(data) - 1900
%>
	meseCorrente = <%=mese1%>
	annoCorrente = <%=anno1%>
	document.selectAnno.mese.selectedIndex = meseCorrente
	document.selectAnno.anno.selectedIndex = AnnoCorrente
<% else %>
	meseCorrente = month(date()) - 1
	annoCorrente = year(date()) - 1900
	document.selectAnno.mese.selectedIndex = mesecorrente
	document.selectAnno.anno.selectedIndex = AnnoCorrente
<% end if%>
	function cambiaMeseAnno()
		meseSelezionato = document.selectAnno.mese.selectedIndex + 1
		annoSelezionato = document.selectAnno.anno.selectedIndex + 1900
		giornoSelezionato = <%=day(data_sel)%>
		window.top.location.href="calendario1.asp?data=" & giornoSelezionato & "/" & meseSelezionato & "/" & annoSelezionato & ""
	end function
	function precedente()
		document.selectAnno.mese.selectedIndex = document.selectAnno.mese.selectedIndex - 1
	end function
	function successivo()
		document.selectAnno.mese.selectedIndex = document.selectAnno.mese.selectedIndex + 1
	end function

</script>

[yoyo87]

Cancellate, ignorate questo messaggio. Ora meglio che ne riapro un altro con un altro problema...Non ci fate caso sarò sotto droga o alcol, non lo so. Però voi no fateci caso