sn ancora alle prese con questa query mi potreste dare una mano grazie.

X Capirci : Ti invio l'intera query :




<%
'NUMERO RISULTATI
Dim objRS, strSQL

dim varMq
dim varprezzo
dim stWhere

varmq = Session("mq")
if trim(varmq) <> "" then
mqpiu15 =Replace((varmq*(1.25)) ,",", ".")
mqmen15 =Replace((varmq*(0.75)) ,",", ".")
end if

varprezzo = Session("prezzo")
if trim(varprezzo) <> "" then
prezzopiu15 =Replace((varprezzo*(1.25)) ,",", ".")
prezzomen15 =Replace((varprezzo*(0.75)) ,",", ".")
end if

'*** LA QUERY ***********************************************************************************
strSQL = "SELECT * FROM immobili WHERE "
strSQL = strSQL & "tipoimmobile Like '%" & Trim(Session("tipoimmobile"))
strSQL = strSQL & "%' AND comune Like '%" & Trim(Session("comune"))
strSQL = strSQL & "%' AND quartiere Like '%" & Trim(Session("quartiere"))
strSQL = strSQL & "%' AND zona Like '%" & Trim(Session("zona"))
strSQL = strSQL & "%' AND uso Like '%" & Trim(Session("uso"))

' --- GIARDINO
If Len(Trim(Session("giardino"))) > 0 Then
strSQL = strSQL & "%' AND giardino Like '%" & Trim(Session("giardino"))
End If
'--- TERRAZZO
If Len(Trim(Session("terrazzo"))) > 0 Then
strSQL = strSQL & "%' AND terrazzo Like '%" & Trim(Session("terrazzo"))
End If

'--- CAMERE DA LETTO
If Len(Trim(Session("cameredaletto"))) > 0 Then
strSQL = strSQL & "%' AND cameredaletto Like '%" & Trim(Session("cameredaletto"))
End If

strSQL = strSQL & "%' AND nuovacostruzione Like '%" & Trim(Session("nuovacostruzione"))
strSQL = strSQL & "%' AND username Like '%" & Trim(Session("username"))

'--- VISIONE ---------------------------------------------------------------
If Len(Trim(Session("visione"))) > 0 Then
strSQL = strSQL & "%' AND visione = '" & Trim(Session("visione")) & "'"
Else
strSQL = strSQL & "%' AND NOT visione = 'ARCHIVIATI'"
End If
'---------------------------------------------------------------------------

strSQL = strSQL & " AND statopratica Like '%" & Trim(Session("statopratica"))
strSQL = strSQL & "%' AND descrizione Like '%" & Trim(Session("descrizione"))
strSQL = strSQL & "%' AND telefono Like '%" & Trim(Session("telefono"))
strSQL = strSQL & "%' AND cellulare Like '%" & Trim(Session("cellulare"))
strSQL = strSQL & "%' AND agenzia Like '%" & Trim(Session("agenzia"))
strSQL = strSQL & "%' AND indirizzo Like '%" & Trim(Session("indirizzo"))
strSQL = strSQL & "%' AND livello Like '%" & Trim(Session("livello"))
strSQL = strSQL & "%' AND cognome Like '%" & Trim(Session("cognome")) & "%'"

if trim(varmq) <> "" then
strSQL = strSQL & " AND mq <=" & mqpiu15 & " and mq >=" & mqmen15 & " "
end if

if trim(varprezzo) <> "" then
strSQL = strSQL & " AND prezzo <=" & prezzopiu15 & " and prezzo >=" & prezzomen15 & " "
end if

'strSQL = strSQL &" ORDER BY codiceimmobile DESC"

Select Case Request.QueryString("ord")
Case "codUp"
strSQL = strSQL & " ORDER BY codiceimmobile"
Case "codDown"
strSQL = strSQL & " ORDER BY codiceimmobile DESC"
Case "indUp"
strSQL = strSQL & " ORDER BY indirizzo"
Case "indDown"
strSQL = strSQL & " ORDER BY indirizzo DESC"
Case "comUp"
strSQL = strSQL & " ORDER BY comune"
Case "comDown"
strSQL = strSQL & " ORDER BY comune DESC"
Case "proUp"
strSQL = strSQL & " ORDER BY cognome"
Case "proDown"
strSQL = strSQL & " ORDER BY cognome DESC"
Case "mqUp"
strSQL = strSQL & " ORDER BY mq"
Case "mqDown"
strSQL = strSQL & " ORDER BY mq DESC"
Case "livUp"
strSQL = strSQL & " ORDER BY livello"
Case "livDown"
strSQL = strSQL & " ORDER BY livello DESC"

Case "preUp"
strSQL = strSQL & " ORDER BY prezzo"
Case "preDown"
strSQL = strSQL & " ORDER BY prezzo DESC"
Case Else
strSQL = strSQL & " ORDER BY codiceimmobile ASC"
End Select


'**********************************************************************************************

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn
%>


<%
Response.Write "Trovati " & objrs.RecordCount &" risultati di .<br><br>"

%>


i dati provengono da questa select


<select name="visione" style="color: #000080; font-family: Tahoma; font-size: 8 pt; font-weight: bold">
<option value="">TUTTI</option>
<option value="SI">SI</option>
<option value="NO">NO</option>


</select>



Ti spiego un risultato stampa la selezione del campo VISIONE che l'utente opta

l'altro risultato deve essere sempre uguale a SI solo ke questo è il risultato


SELECT * FROM immobili WHERE tipoimmobile Like '%%' AND comune Like '%%' AND quartiere Like '%%' AND zona Like '%%' AND uso Like '% AND nuovacostruzione Like '% AND visione = 'SI' AND descrizione Like '%%' AND telefono Like '%%' AND cellulare Like '%%' AND agenzia Like '%%' AND indirizzo Like '%rov%' AND livello Like '%%' AND cognome Like '%%' ORDER BY codiceimmobile ASC


c'è un modo x nn far rilevare quella select in questo 2° risultato ???

E' da una sett. ke sn dietro a questa query

qui si stampa




<%

objrs.PageSize = RECORDSPERPAGE2

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If


intNumRows = objrs.RecordCount

If (intNumRows <> 0) Then
objrs.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To objrs.PageSize
%>


<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="3%" align="center"><p align="center</p></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("codiceimmobile")%></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("livello")%></font></td>
<td width="7%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("indirizzo")%>--<%=objrs("civico")%></font></td>
<td width="7%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("comune")%></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("cognome")%></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("mq")%></font></td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=FormatNumber(objrs("prezzo"), 0)%></font></td>
</tr>
<%
objrs.MoveNext
If ( objrs.EOF ) Then Exit For
Next
End If
%>
</table>


<table width="100%" border="0">
<tr>
<td align="center"><font face="Arial" size="1" color="#FFFFFF">


<%'Navigazione sulle pagine
If ( intNumRows > 0 ) Then

Response.Write("<font size='1' color='white' face='Arial'>")
Response.Write "Pagina " & intPageNum & " di " & objrs.PageCount & "<BR>"

'Pagina precedente
If ( intPageNum > 1 ) Then
Response.Write "<A HREF='" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & intPageNum - 1 & "'>&laquo;</A>&nbsp;&nbsp;"
End If


'Numeri di pagina
For intLinks = 1 To objrs.PageCount
intPagina = intPagina + 1
If intPagina > 10000 Then
intPagina = 1
Response.Write("<BR>")
End If
If intLinks = intPageNum Then
Response.Write "&nbsp;<font color=""#87ceeb""><b>" & intLinks & "</b></font>&nbsp;"
Else
Response.Write "&nbsp;<font color='white'><b><A HREF='" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & intLinks & "'>" & intLinks & "</A></b></font>&nbsp;"
End If
Next

'Pagina successiva
If ( intPageNum < objrs.PageCount ) Then
Response.Write "&nbsp;&nbsp;<A HREF='" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & intPageNum + 1 & "'>&raquo;</A>"
End If

Response.Write("</font>")

'Fine navigazione sulle pagine

End If


'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>