<% CONN_STRING = "DBQ=" & Server.MapPath("/mdb-database/DB_BANDA.mdb") & ";" CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};" Dim XRS Dim XConn Dim strSQL strSQL = "select * from EVENTI WHERE POPUP='S';" Set XConn = Server.CreateObject("ADODB.Connection") XConn.Open CONN_STRING Set XRS = Server.CreateObject("ADODB.Recordset") XRS.Open strSQL, XConn, adOpenStatic, adLockReadOnly, adCmdText IF XRS.RECORDCOUNT > 0 THEN %> <% END IF XRS.Close Set XRS = Nothing XConn.Close Set XConn = Nothing %>
JUNIOR BAND
E' uscito il primo Cd della Banda Musicale Città di Procida...