vi mostro lo script
<%
'elenco documenti
varmq = request.form("mq")
if trim(varmq) <> "" then
mqpiu15 =Replace((varmq*(1.25)) ,",", ".")
mqmen15 =Replace((varmq*(0.75)) ,",", ".")
end if
varprezzo = request.form("prezzo")
if trim(varprezzo) <> "" then
prezzopiu15 =Replace((varprezzo*(1.25)) ,",", ".")
prezzomen15 =Replace((varprezzo*(0.75)) ,",", ".")
end if
strSQL = "SELECT * FROM immobili WHERE " &_
"tipoimmobile Like '%" & Trim(Request.Form("tipoimmobile")) & "%' AND comune Like '%" & Trim(Request.Form("comune")) & "%' AND quartiere Like '%" & Trim(Request.Form("quartiere")) & "%' AND zona Like '" & Trim(Request.Form("zona")) & "%' AND uso Like '%" & Trim(Request.Form("uso")) & "%' AND giardino Like '%" & Trim(Request.Form("giardino")) & "%' AND terrazzo Like '%" & Trim(Request.Form("terrazzo")) & "%' AND cameredaletto Like '%" & Trim(Request.Form("cameredaletto")) & "%' AND nuovacostruzione Like '%" & Trim(Request.Form("nuovacostruzione")) & "%' AND visione Like '%" & Trim(Request.Form("visione")) & "%' AND statopratica Like '%" & Trim(Request.Form("statopratica")) & "%'"
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"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cn
Do While Not objRS.EOF
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="5%" align="center">
<p align="center">" target="_blank">[img]edit.gif[/img]"></p>
</td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("codice")%></font></td>
<td width="6%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("indirizzo")%></font></td>
<td width="6%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("comune")%></font></td>
<td width="7%" 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"><%=objrs("prezzo")%></font></td>
<%
'--- Trovo il numero dei colloqui e in base al numero trovato invio alla pagina con l'elenco colloqui oppure
' alla pagina menu colloqui (quella preesistente)
Dim NumeroColloqui, strLink
NumeroColloqui = TrovaNumeroColloqui(objrs("codice"))
If CInt(NumeroColloqui) > 0 Then
''' QUI C'E' LA COLONNA A CUI VORREI APPLICARE L'ORDINAMENTO
strLink = "<td width=""5%"" align=""center"">http://<b><font face=""Tahoma"" colo...& "</font></b></font></td>"
Else
strLink = "<td width=""5%"" align=""center""><font face=""Tahoma"" color=""#FFFFFF"" size=""1"">Nessuno</font></td>"
End If
Response.write strLink
%>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1">" target="_blank"><font face="Tahoma" color="#FFFFFF" size="1">Nuovo »</font></font></td>
</tr>
<%
objrs.MoveNext
Loop
objrs.Close
SET objrs = Nothing
%>
la query mostra un elenco di risultati che fa vedere nell'ultima colonna un contatore che conteggia il n. di record eseguiti in un altro db
se ora l'ordinamento mostra
strSQL = strsql &" ORDER BY codiceimmobile DESC"
che è il n. di id
come posso ordinare l'ultima colonna cioè quella che mostra il conteggio????
fatemi sapere
Rispondi quotando
