%
' 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.MoveNext
Loop
rs.Close
conn.Close
%>