<% ' 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/zoom02a.gif','subm02');" onMouseout="changesubm('img/zoom02s.gif','subm02')">
" onMouseover="changesubm('img/zoom03a.gif','subm03');" onMouseout="changesubm('img/zoom03s.gif','subm03')">
" 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')">



" width="500">


Orari cantiere

<%=rs("OrarioCantiere") %>


Dove si trova

<%=rs("DoveSiTrova") %>
" target="_blank">" width="155" border="0">
 
<% rs.Close conn.Close %>