<%@ Language = "VBScript"%> <% Response.Buffer = true dim cnn,recSet set cnn = Server.CreateObject("ADODB.Connection") set recSet = Server.CreateObject("ADODB.RecordSet") cnn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/mdb-database/eventi.mdb") sql = "SELECT * FROM dati ORDER BY ID DESC" recSet.Open sql,cnn,3,3 %> serate pordenone eventi sesto reghena sacile
<% if recSet.eof then response.write "Nessun evento in programma" else %> <% do while not(recSet.eof) %> <% titolo1=recSet("titolo") titolo=Replace(titolo1, VBCrLf, "
") response.Write(titolo)%>
<% testo1=recSet("testo") testo=Replace(testo1, VBCrLf, "
") response.Write(testo)%>
')>Menù evento
<% recSet.MoveNext loop end if %>
Albergo Ristorante La Perla - Via Ippolito Nievo, 4/5 - Ramuscello di Sesto al Reghena 33070 Pordenone
Tel. Hotel 0434 690011 - Tel. Ristorante 0434 684004 - Fax 0434 690756 - skype:hlaperla - info@albergolaperla.com
P.IVA 01211850936