Access e ordinamento ULTIMO

[killer]

se puoi posta la tua select x intero così ti diciamo come modificarla...
In ogni caso ti faccio un esempio generico:

Select Max(TuoCampoData) As UltimoDidat From TuaTabella

In questo modo potrai usare il tuo codice asp:

<%=(Recordset1.Fields.Item("UltimoDidat").Value)%>

[wertax]

credo che la select sia questa:

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connessione_STRING
Recordset1.Source = "SELECT * FROM q_prodotto WHERE id_marca = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY dat DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

Grazie in anticipo.

[killer]

puoi scegliere tra 2 modi diversi di operare:

1. nell'sql statement vedo che stai ordinando x il campo dat (che presumo essere il tuo campo data) quindi ti basta utilizzare il primo record di Recordset1 per avere il valore + grande.

2. Togli l'asterisco dall'sql statement e metti la "select list" (ovvero l'elenco dei campi) specificando Max(dat) As UltimoDidat

Detto ciò, il tuo codice nel caso 1 va già bene così come l'hai scritto. Nel caso 2 invece diventerebbe:

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connessione_STRING
Recordset1.Source = "SELECT Campo1, Campo2, CampoN, Max(dat) As UltimoDidat FROM q_prodotto WHERE id_marca = " + Replace(Recordset1__MMColParam, "'", "''")
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

NOTA: il modo 2 potrebbe non funzionare come ti aspetti... (e io non posso darti info + dettagliate xkè non conosco la tabella e tu non hai specificato la sua struttura e non conosco neanche il contesto di utilizzo del tuo recordset). E' possibile che sia necessario aggiungere un filtro del tipo:

Where dat = (
            Select max(dat)
            From etc etc..
            )