<% Response.Write (Server.MapPath("db1.mbd")) %>
<% data_attuale = Date set cn = Server.CreateObject("ADODB.Connection") cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db1.mdb") sqlstmt = "SELECT * FROM eventi ORDER BY data" set rs = cn.Execute(sqlstmt) If rs.eof then %>
Calendario
Nessuna corrispondenza
<% Else %>
Calendario
Data
Localita'
Evento
Organizzatore
Email
Telefono
Commenti
<% 'Setto le variabili prendendo i valori dal RecordSet Do while not rs.eof data = rs("data") localita = rs("localita") evento = rs("evento") organizzatore = rs("organizzatore") email = rs("email") telefono = rs("telefono") commenti = rs("commenti") %>
<%= data %>
<%= localita %>
<%= evento %>
<%= organizzatore %>
<%= email %>
<%= telefono %>
<%= commenti %>
<% rs.MoveNext loop rs.close Set rs = Nothing cn.close Set cn = Nothing End If %>
Inserisci un annuncio
Data
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
25
25
26
27
28
29
30
31
Gennaio
Febbraio
Marzo
Aprile
Maggio
Giugno
Luglio
Agosto
Settembre
Ottobre
Novembre
Dicembre
2000
2001
2002
2003
2004
2005
Localita'
Evento
Organizzatore
Email
Telefono
Note