<% ' Definisci stringa di connessione strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/cantieri.mdb") %> <% Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adOpenStatic = 3 Const adCmdText = &H0001 Set conn = Server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open strConn idcantiere = Request("IDCantiere") rs.Open "SELECT * FROM Cantieri WHERE IDCantiere =" & idcantiere, conn, adOpenStatic, adLockReadOnly, adCmdText %> Gruppo Dalla Bona
 
  <%=rs("NomeCantiere") %>
" onMouseover="changesubm('img/zoom01a.gif','subm01');" onMouseout="changesubm('img/zoom01s.gif','subm01')">
" onMouseover="changesubm('img/zoom02a.gif','subm02');" onMouseout="changesubm('img/zoom02s.gif','subm02')">
" onMouseover="changesubm('img/zoom03a.gif','subm03');" onMouseout="changesubm('img/zoom03s.gif','subm03')">

" onMouseover="changesubm('img/zoom05a.gif','subm05');" onMouseout="changesubm('img/zoom05s.gif','subm05')">
" onMouseover="changesubm('img/zoom06a.gif','subm06');" onMouseout="changesubm('img/zoom06s.gif','subm06')">
" onMouseover="changesubm('img/zoom07a.gif','subm07');" onMouseout="changesubm('img/zoom07s.gif','subm07')">


 <% rs.Close rs.Open "SELECT * FROM Finiture WHERE IDCantiere =" & idcantiere, conn, adOpenStatic, adLockReadOnly, adCmdText Do while Not rs.EOF %>

<%=rs("Titolo") %>
<%=rs("Descrizione") %>		 ">" width="190" border="0">

<% rs.MoveNext Loop rs.Close conn.Close %>