confrontare una data in un recorset...

[champino]

piccolo problema.
nel mio database è salvata come 'ultimaconnessione' una data ricavata con un dateadd (l'ultima connessione degli utenti)

voglio tirare fuori dal mio recorset gli utenti che si sono connessi negli ultimi 5 minuti
(quindi che 'ultimaconnessione' sia > del tempo che gli ho dato io ovvero ora attuale -5 minuti)

ho provato con questo ma non funziona xche????..
---------------------------------------------------------------------------------------

<%
dim ade
dim tempo
adesso = Dateadd( "n",0 , now)
tempo = Dateadd("n", -5, adesso)
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_amore_STRING
Recordset1.Source = "SELECT * FROM Indirizzi"+ " where ultimaconnessione > " + Replace(tempo, "'", "''")
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>

-------------------------------------------------------------------------

mi da questo errore: Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ultimaconnessione > 19/11/2006 18.31.54'.

[Lak3d]

per farti restituire la data attuale basta un Date()...

tempo = Dateadd("n", -5, Date)

Il problema è che non so se si possa anche sottrarre. Il nome della funzione sembrerebbe non lasciar spazio a dubbi...

Scrivi questo e dimmi cosa ti restituisce a video...

...
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_amore_STRING
Recordset1.Source = "SELECT * FROM Indirizzi"+ " where ultimaconnessione > " + Replace(tempo, "'", "''") 
Response.Write (RecordSet1.Source)
Response.End
...

[champino]

mi scrive questo..

''''''''''''''''''''''''''''''''''''' SELECT * FROM Indirizzi where ultimaconnessione < 18/11/2006 23.55.00

[Lak3d]

<%
dim tempo
tempo = Dateadd("n", -5, Now())
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_amore_STRING
Recordset1.Source = "SELECT * FROM Indirizzi"+ " where ultimaconnessione >#" & tempo & "#"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>

Il replace non dovrebbe servire... dimmi se così ti funziona...

[champino]

ok funziona

ma solo con
-----------------------------------------
<%
dim ade
dim tempo
adesso = Dateadd( "n",0 , now)
tempo = Dateadd("n", -5, adesso)
%>
--------------------------------------------
perchè con
-------------------------------------------
<%
dim tempo
tempo = Dateadd("n", -5, Now())
%>
-------------------------------------------
non calcola i secondi...

grazie mille!!

[Lak3d]

:master: