Cercando nel forum sono quasi riuscito ad ottenere ciò che voglio...

L'unico problema è che mi visualizza solo il mese in cui ci si trova e non si possono scorrere queli successivi e precedenti.

Questo è il codice:
è possibile modificaro per far visualizzare tutti i mesi?

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>" & giorno & "</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>")
%>

Questa è la pagina che si apre quando 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 & "

"
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") & "

" & rs("descrizione")
end if
cn.Close
set cn = nothing
end if
%>


Grazie

Aiutatemiiiiii! :-)