%
' 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") %>
|
|
|
<%
rs.Close
conn.Close
%>