Calendario eventi con database

[andreacweb]

Salve!

Sto cercando un calendario eventi in asp (da integrare nell'home page di un sito) di quelli classici tipo quelli che ci sono nei blog che permettono di scorrere i mesi avanti e dietro che abbia una semplice funzionalità:

-possibilità di associare ad ogni giorno del calendario un testo
(per esempio:al 10/02 ci clicco sopra e si apre una popup con ,chessò, il proverbio del giorno,mentre i giorni senza nessun proverbio nn sono cliccabili)

-Un pannello di controllo che permetta scegliere il giorno(mese ed anno) in cui inserire/cancellare/modificare (in un db) il proverbio.

Non mi servono altre funzioni, deve essere il più semplice possibile!

Sapete dove posso trovarlo?

Grazie

 

[frankiedeguello]

Questo dovrebbe andare bene:
ASPCalendar v.1
:byebye:

 

[andreacweb]

Ciao,
aspcalendar è troppo complesso per quel che mi serve.

Ho torvato questo codice che è perfetto ma mi fa visuaizzare solo il mese in corso e nn mi permette di scorrere quelli precedenti e successivi.


Calendario.asp
<%
response.write ("<table border=1>")
response.write ("<tr><td align=center colspan=7>" & Ucase(monthname(month(date()))) & " " & year(date()) & "</td></tr>")
response.write ("<tr><td>D</td><td>L</td><td>M</td><td>M</td><td>G</td><td>V</td><td>S</td></tr>")
giornodelmese="01/" & month(date()) & "/" & year(date())
giorno=1
'questo controllo risolve il probelma del mese di dicembre
if (month(date())+1)>12 then
anno=Year(date())+1
mese=1
else
anno=Year(date())
mese=(month(date())+1)
end if
primodelmesesuccessivo="01" & "/" & mese & "/" & anno
ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo)
While (giorno<day(ultimodelmese))
response.write ("<tr>")
giornodellaset=WeekDay(giornodelmese)
for i=1 to giornodellaset-1
response.write ("<td align='center'>-</td>")
next
for i=giornodellaset to 7
response.write ("<td><a href='evento.asp?gg=" & giorno & "&mm=" & mese-1 & "&aa=" & anno & "'>" & giorno & "</a></td>")
giorno=giorno+1
if giorno>day(ultimodelmese) then exit for
next
for i=i+1 to 7
response.write ("<td align='center'>-</td>")
next
response.write ("</tr>")
giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date())
Wend
response.write ("</table>")
%>

Sapete dirmi come fare per modificarlo per scorrere tutti i mesi(ed anni)?

Questo è il codice della finestra che si apre qundo si clicca sul giorno:

evento.asp
<%
dim gg, mm, aaaa, data
gg = Request.QueryString("gg")
mm = Request.QueryString("mm")
aa = Request.QueryString("aa")
data = gg & "/" & mm & "/" & aa
if IsDate(data) = false then
Response.End
else
Response.Write "Evento della data " & data & "<br><br>"
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 WHERE gg = '" & gg & "' AND mm = '" & mm & "' AND aa = '" & aa & "'")
if rs.EOF then
Response.Write "Nessun evento"
else
Response.Write rs("titolo") & "<br><br>" & rs("descrizione")
end if
cn.Close
set cn = nothing
end if
%>

Grazie