Eventi Settimana

[yoyo87]

Vorrei creare una pagina per Gli eventi della settimana di un caledario.
Che codice uso per estrapolare dal DB solo gli eventi in data della settimana?

[salvod]

la domanda è troppo generica.. ti conviene partire da qualke cosa già fatta prova a cercare qualcosa nei siti elencati in questo post: http://forum.html.it/forum/showthrea...hreadid=611531

[fabiosh75]

Guarda questo è una buona base
Calendario

Ciao

[yoyo87]

Io ho questo codice del calendario, che funziona. Volevo mettere un link ad una pagina che dava solo gli eventi della settimana, ma non so come fare. Cmq vi posto il codice del calendario:

<%
' se non passiamo nessun valore parte dalla data odierna
If Request("data") ="" then
  data = Date()
else
  data = CDate(Request("data"))
end if

mese = Month(data)
anno = Year(data)

' conta il numero di giorni in un mese
function giornidelmese(mese, anno)
  DataInizio = CDate("01/" & mese & "/" & anno)
  DataFine = DateAdd("m", 1, DataInizio)
  giornidelmese = DateDiff("d", DataInizio, DataFine)
end function

%>
<table style="width:152;background-color:#0C4285;border: 1px solid #000000">
<tr>
	<td align="center">#calendario" onclick="precedente()" class="cal"><</td>
	<%
			mese = MonthName(month(data))
			lettera = ucase(mid(mese,1,1))
			mese = lettera & mid(mese,2,len(mese))
			anno = year(data)
		%><td colspan="5" align="center" height="5px">
				<form name='selectMese'>
					<SELECT id='mese' onchange='cambiaMeseAnno()'>
		<%
				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>
        </form></td>
	<td align="center">#calendario" onclick="successivo()" class="cal">></td>
</tr>
<tr bgcolor="#C0C0C0">
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Do</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Lu</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Ma</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Me</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Gi</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Ve</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Sa</font></td>
</tr>
<%
dim cn, rs
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/calendario.mdb")
set rs = cn.Execute("SELECT * FROM eventi")
DataInizio = CDate("01/" & mese & "/" & anno)

' saltiamo primi giorni della settimana
for i = 1 to WeekDay(DataInizio)-1
  if i = 1 then Response.Write "<tr>"
  Response.write "<td bgcolor=#0C4285 align=center>-</td>"
next

'mostriamo il calendario
giornoScelto = Request("data")
if giornoScelto = "" then
	giornoScelto = date()
end if
for i = 1 to giornidelmese(mese,anno)
  data = Cdate(( i & "/" & mese & "/" & anno))
  if WeekDay(data) = 1 then Response.Write "<tr>"
	if i = day(giornoScelto) then
	Response.Write("<td id='giorno" & i & "' align='center' class='CalendarioOggi'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'><font color=#FFFFFF>" & i & "</font></a></td>")
	Elseif data = Cdate(rs("dataevento")) then
	Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>") 
	Else
	Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiorno'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>")
	    end if
		
  if WeekDay(data) = 7 then Response.Write "</tr>"
next

' saltiamo primi giorni della settimana
for j = WeekDay(Data)+1 to 7
  Response.write "<td bgcolor=#0C4285 align=center>-</td>"
  if j mod 7 = 0 then Response.Write "</tr>" : exit for
next
%>
<td colspan="7">Eventi della settimana</td>
</table>
<script language="vbscript">
 
<% if data > "" then
	mese1 = month(data) - 1
	anno1 = year(data) - 1900
%>
	meseCorrente = <%=mese1%>
	annoCorrente = <%=anno1%>
	document.selectMese.mese.selectedIndex = meseCorrente
<% else %>
	meseCorrente = month(date()) - 1
	document.selectMese.mese.selectedIndex = meseCorrente
<% end if%>
	function cambiaMeseAnno()
		meseSelezionato = document.selectMese.mese.selectedIndex + 1
		annoSelezionato = <%=anno1%> + 1900
		giornoSelezionato = <%=day(data_sel)%>
		window.top.location.href="home.asp?data=" & giornoSelezionato & "/" & meseSelezionato & "/" & annoSelezionato & ""
	end function
	function precedente()
		document.selectMese.mese.selectedIndex = document.selectMese.mese.selectedIndex - 1
	end function
	function successivo()
		document.selectMese.mese.selectedIndex = document.selectMese.mese.selectedIndex + 1
	end function
</script>

</div>

[yoyo87]

Nessuno sa darmi una manina?