<% ' 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 idtipologia = Request("IDTipologia") 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
  Cantieri futuri - <%=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">
<% colonna = 1 sql = "SELECT * FROM CantieriFuturi WHERE TipologiaCantiere = " & idtipologia rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText Do while Not rs.EOF %> <% If (colonna = 1) Then %>
<% End If %> <% If (colonna = 2) Then %>
<%=rs("Titolo") %>
" target="_blank">" width="201" height="151" border="0">
<%=rs("Descrizione") %>



<% End If %> <% colonna = colonna +1 If colonna > 2 Then colonna = 1 %> <% rs.MoveNext Loop rs.Close conn.Close %> <% if (colonna = 2) Then %>
<% End if %>