<% ' 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.form("TipologiaCantiere") Citta = Request.form("Citta") mm_form = Request.form("MM_send") 'prezzoda = Request.form("prezzoda") 'prezzoa = Request.form("prezzoa") %> Gruppo Dalla Bona
  Ricerca immobili
 
Tipologia
Comune
Prezzo da  a Mila €
 
 
<% If mm_form = "form1" then %> <% rs.Open "SELECT * FROM Cantieri WHERE TipologiaCantiere = " & TipologiaCantiere & " AND Citta = '" & Citta & "'", 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 %> <% End If %>