<% ' 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 TipologiaCantiere = Request("IDTipologia") Select Case TipologiaCantiere Case 1 titolo = "Residenziale" Case 2 titolo = "Direzionale" Case 3 titolo = "Commerciale" Case 4 titolo = "Artigianale - Industriale" End Select %> Gruppo Dalla Bona
  <%=titolo%>
.gif','subm01')">.gif" name="subm01" border="0" id="subm01" width="143" height="27">
.gif','subm02')">.gif" name="subm02" border="0" id="subm02" width="143" height="27">
.gif','subm03')">.gif" name="subm03" border="0" id="subm03" width="143" height="27">
.gif','subm04')">.gif" name="subm04" border="0" id="subm04" width="143" height="39">

<% rs.Open "SELECT * FROM Cantieri WHERE TipologiaCantiere = " & TipologiaCantiere , conn, adOpenStatic, adLockReadOnly, adCmdText Do while Not rs.EOF %>
 

<%=rs("NomeCantiere") %>

<%=rs("Descrizione") %>

" target="_blank">" width="210" border="0">

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