codice:
'recupero il valore del luogo dove viene cercato l'immobile
reg = request("regioni")
prov = request("provincie")
com = request("comuni")
'recupero il valo del tipo di contratto da fare sull'immobile
tipo=request.Form("tipo")
'recupero il valore in mq quandri dove cercare l'immobile
mqmin=request("mqmin")
mqmax=request("mqmax")
'recupero il malore di euro che 'utente vuole spendere
euromin=request("euromin")
euromax=request("euromax")
'connessione al database
Set Conn = Server.createobject("ADODB.Connection")
Conn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("/mdb-database/database.mdb")
Conn.Open
%>
<center>
<table ID="table0" border="0" cellpadding="4" cellspacing="1" bgcolor="#DFDFDF">
<tr>
<td align="center">Regione</td>
<td align="center"><font size="2" face="Verdana">Provincia</font></td>
<td align="center"><font size="2" face="Verdana">Citta</font></td>
<td align="center"><font size="2" face="Verdana">Tipologia Contratto</font></td>
<td align="center"><font size="2" face="Verdana">Immonbile</font></td>
<td align="center"><font size="2" face="Verdana">Metratura</font></td>
<td align="center"><font size="2" face="Verdana">Euro</font></td>
<td align="center"><font size="2" face="Verdana">Visualizza</font></td>
</tr>
<%
'se la categoria ovvero i ceck box sono selezionati li carico in un array
'effettuo la ricerca nel db dove sono contenuti gli immobili
if Request.Form("categoria") <> "" then
cat= Split(Request.Form("categoria"), ", ")
for h=LBound(cat) to UBound(cat)
xx = cat(h)
set rs = server.CreateObject("ADODB.recordset")
'cerco nei campi richiesti dall'utente
if reg <> "" and prov <> "" and com <> "" then
SQL="SELECT * from link where categoria like '%"&xx&"%' and categoriav like '%"& tipo &"%' and reg like '%"& reg &"%' and prov like '%"& prov &"%' and com like '%"& com &"%' and (mq BETWEEN "&mqmin&" and "&mqmax&") and (e BETWEEN "&euromin&" and "&euromax&");"
end if
'la ricerca sara effettuata in tutta italia
if reg = "" and prov = "" and com = "" then
SQL="SELECT * from link where categoria like '%"&xx&"%' and categoriav like '%"& tipo &"%' and (mq BETWEEN "&mqmin&" and "&mqmax&") and (e BETWEEN "&euromin&" and "&euromax&");"
end if
'effettuo la ricerca in tutta la regione scelta dall'utente
if Request.Form("provincie") = "" then
SQL="SELECT * from link where categoria like '%"&xx&"%' and categoriav like '%"& tipo &"%' and reg like '%"& reg &"%' and (mq BETWEEN "&mqmin&" and "&mqmax&") and (e BETWEEN "&euromin&" and "&euromax&");"
end if
'effettuo la ricerca in tutta la provincia scelata dall'utente
if com = "" then
SQL="SELECT * from link where categoria like '%"&xx&"%' and categoriav like '%"& tipo &"%' and reg like '%"& reg &"%' and prov like '%"& prov &"%' and (mq BETWEEN "&mqmin&" and "&mqmax&") and (e BETWEEN "&euromin&" and "&euromax&");"
end if
' ricerca effettutata su tutti i contrtatti
if tipo = "" then
SQL="SELECT * from link where categoria like '%"&xx&"%' and com like '%"& com &"%' and reg like '%"& reg &"%' and prov like '%"& prov &"%' and (mq BETWEEN "&mqmin&" and "&mqmax&") and (e BETWEEN "&euromin&" and "&euromax&");"
end if
RS.Open SQL,Conn
do while Not Rs.EOF
%>
<tr>
<td align="center"><font size="1" face="Verdana"><%=rs("reg")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("prov")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("com")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("categoriav") = replace(rs("categoriav"),"_"," ")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("categoria") = replace(rs("categoria"),"_"," ")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("mq")%></font></td>
<td align="center"><font size="1" face="Verdana"><%=rs("e")%></font></td>
<td align="center"><font size="1" face="Verdana">[img]view.gif[/img]</font></td>
</tr>
<%
'il prossimo recor
RS.MoveNext
loop
next
end if
%>
</table>
<%
'chiudo il recordset
RS.close
set RS = nothing
'chiudo la connessione al db
conn.close
set conn = nothing
%>