select from tabella

[forte78]

ho questo script

<%
strSQL = "SELECT * FROM colloqui WHERE " & _
"operatorescadenza Like '%" & Trim(session("operatorescadenza")) & _
"%' AND datascadenza Like '%" & Trim(session("datascadenza")) & _
"%' AND tiposcadenza Like '%" & Trim(session("tiposcadenza")) & _
"%' AND aggiornato Like '%" & Trim(session("aggiornato")) & _
"%' AND agenzia Like '%" & Trim(session("agenzia")) & _
"%' ORDER BY datascadenza ASC, orainizioscadenza ASC"

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


in questo script si ha come risultato da una ricerca un elenco di voci presenti in una tabella

Si vuole elencare solo l' ultima data di quei singoli utenti e non tutte le date degli utenti


esempio stato attuale

data nome
10/10/05 gino
10/11/05 paolo
10/12/05 antonio
11/12/05 fabio
13/12/05 luca
16/12/05 paolo
17/12/05 paolo
18/12/05 antonio
21/12/05 fabio
29/12/05 luca


esempio di quello che deve essere

data nome
10/10/05 gino
17/12/05 paolo
18/12/05 antonio
21/12/05 fabio
29/12/05 luca




spero che con questo esempio sia stato chiaro

x ora vi ringrazio ed un saluto

[Yappy]

Che ne dici di una cosa del genere?

<% 
strSQL = "SELECT * FROM colloqui WHERE " & _ 
"operatorescadenza Like '%" & Trim(session("operatorescadenza")) & _ 
"%' AND datascadenza Like '%" & Trim(session("datascadenza")) & _ 
"%' AND tiposcadenza Like '%" & Trim(session("tiposcadenza")) & _ 
"%' AND aggiornato Like '%" & Trim(session("aggiornato")) & _ 
"%' AND agenzia Like '%" & Trim(session("agenzia")) & _ 
"%' ORDER BY operatorescadenza ASC,datascadenza ASC, orainizioscadenza ASC" 

'ordino i dati anche per operatore...

Set objrs = Server.CreateObject("ADODB.Recordset") 
objrs.cursorlocation = 3 
objrs.Open strSQL, cny 
old=""


'Durante la lettura while ...
do while not objrs.eof
corrente=objrs("operatorescadenza")
if (corrente<>old) then 
   'scrivi i dati

end if
' altrimenti no

old=corrente
'chiudi il loop
loop
%>

Ciao,
Banda Bassotti

[forte78]

ciao ho provato a testare su questa pagina


mi si blocca il caricamento nn riesco ad andare avanti

com'è possibile.......

ho copiato lo stesso tuo codice.

Fammi sapere sapere se debbo fare altre modifiche su questo.

[MMarzia]

Originariamente inviato da forte78
mi si blocca il caricamento nn riesco ad andare avanti

magari va in loop: ti sei ricordato del movenext?

[forte78]

guarda mi pare ke ci sia è cosi composto lo script



<%
strSQL = "SELECT * FROM colloqui ORDER BY operatorescadenza ASC,datascadenza ASC, orainizioscadenza ASC"

'ordino i dati anche per operatore...

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cny
old=""


'Durante la lettura while ...
do while not objrs.eof
corrente=objrs("operatorescadenza")
if (corrente<>old) then
'scrivi i dati

end if
' altrimenti no

old=corrente
'chiudi il loop
loop
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="100%">

<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">

<%
While NOT objrs.EOF
If Len(objrs("codiceimmobile")) > 0 Then Trova_Indirizzo(objrs("codiceimmobile"))
%>



<tr>
<td width="6%" align="center">
<p align="center">" target="_self"><font face="Tahoma" size="2">[img]edit.gif[/img]</font></p>
</td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("datascadenza")%></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("orainizioscadenza")%></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("operatorescadenza")%></font></td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1">" target="_blank"><%=objrs("codiceimmobile")%></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strCognome %></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strIndirizzo %></font></td>
<td width="3%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strCivico %></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strComune %></font></td>
<td width="7%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strTelefono %></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tiposcadenza")%></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tipoappuntamento")%></font></td>
</tr>
<%objrs.MoveNext : Wend %>
</table>
</td>
</tr>
</table>
<%
'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>




</td>
</tr>

[maximum]

<%
'Durante la lettura while ...
do while not objrs.eof
corrente=objrs("operatorescadenza")
if (corrente<>old) then 
   'scrivi i dati

end if
' altrimenti no

old=corrente
objrs.movenext 
'chiudi il loop
loop
%>

[forte78]

ok nn da errori l'esempio di maximum

pero


nn mi da risultati lo schermo è completamente vuoto quando in realta nella tabella ci sono + di 1000 ris.

quando in realta come nelle precedenti discussioni debbono essere visionati le ultime date di quel operatore

[MMarzia]

scusa ma il primo ciclo a che ti serve?
:master:

[forte78]

quale intendi

[MMarzia]

Originariamente inviato da forte78
quale intendi

il primo...

'Durante la lettura while ...
do while not objrs.eof
  corrente=objrs("operatorescadenza")
  if (corrente<>old) then
    'scrivi i dati
  end if
  
  ' altrimenti no
  old=corrente
'chiudi il loop
loop

a me pare perfettamente inutile
anche perchè era solo un esempio di Yappi