<%
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
// #### NOVITA' PER GLI OMBRELLONI STAGIONALI: IL COSTO DEL SERVIZIO RIMANE INVARIATO PER TUTTO IL 2010 ---- NOVITA' PER BANDINAGGIO: SARA' PRONTA A BREVE LA ZONA LETTINI IN RIVA AL MARE CON NEBULIZZATORI E FILODIFFUSIONE ####
// Apertura connessione al data-base e archiviazione della email, nome e cognome
Stringa = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("\database\dbase.mdb")
objConnection.Open Stringa
Dim sql
Dim descrizione
sql = "SELECT * FROM News"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sql, objConnection, 3, 3
if (rs.recordcount <> -1) Then
descrizione = rs.Fields.Item("descrizione").Value
Else
descrizione = ""
End If
rs.Close
Set rs = Nothing
objConnection.Close
Set objConnection = Nothing
%>
