Risposta mailing
Risposta
Recapito per contatto:
Offerte:
<%on error resume next dim objConn, objRdSet, SQL, data, id1,id2 Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("data\auto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;" set objRdset = Server.CreateObject("ADODB.Recordset") objRdSet.ActiveConnection = objConn affitto="vendo" citta="roma" SQL = "SELECT * FROM immobili " SQL = SQL & "WHERE (tipo LIKE '%appartamento%' " SQL = SQL & "or tipo LIKE '%villa%' " SQL = SQL & "or tipo LIKE '%casale%' " SQL = SQL & "or tipo LIKE '%villino a schiera%' " SQL = SQL & "or tipo LIKE '%attico%' " SQL = SQL & "or tipo LIKE '%box%' " SQL = SQL & "or tipo LIKE '%intero edificio%' ) " SQL = SQL & "and citta LIKE '%" & citta & "%' " SQL = SQL & "and modalita LIKE '%" & affitto & "%' " SQL = SQL & " ORDER BY priorita Desc" SQL = SQL & "; " objRdSet.Open SQL,objConn,1,1 %>
Tipo
Zona
mq
Prezzo
Sel
<%Do while NOT objRdSet.EOF%>
<%Response.Write(OBjRdSet("tipo"))%>
<%Response.Write(OBjRdSet("zona"))%>
<%Response.Write(OBjRdSet("mq"))%>
<%Response.Write(OBjRdSet("prezzoda"))%>
<%objRdSet.movenext loop%>
Ai sensi della legge (675/96) autorizzo la samoitalia a trattare i dati inseriti per la realizzazione di tutte le attività finalizzate alle operazioni di intermediazione immobiliare o comunque al soddisfacimento della mia richiesta.Nessun compenso sarà dovuto per questo servizio.
