<% ' 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/zoom04a.gif','subm04');" onMouseout="changesubm('img/zoom04s.gif','subm04')">
" 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 Tipologie WHERE IDCantiere =" & idcantiere & " ORDER BY IDTipologia ASC", conn, adOpenStatic, adLockReadOnly, adCmdText Do while Not rs.EOF %>

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

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