2 timer udtræk

hvordan ligger loginsne registreret - i en DB eller?

ja. under kolonnen "sidstset"

dvs. det er en SQL sætning jeg mangler

prøv den her:

strSQL = "SELECT sidstset FROM tabelnavn WHERE sidstset > Hour-2"

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/udvikling/admin.asp, line 3756

hvad hedder din tabel?

kunder

hvilket format har sidstset er det dd-mm-yyyy hh:mm:ss eller?

15-06-2003 12:52:45

så prøv det her:

Dim date
date = now()
dateMinus = DateAdd("h",-2,date)

strSQL = "SELECT sidstset FROM tabelnavn WHERE sidstset > #"& dateMinus &"#"

Får ingen udtræk, men heller ingen fejl. Noget kunne tyde på den bedte om det forkerte?

prøv lige at skriv:

response.write strSQL

og se om det ikke er den rigtige dato og klok der kommer ud

Et par funktioner der gør at du får det rigtige output:

Function Nul(intTal)
  If Len(intTal) = 1 Then
    intTal0 = 0 & intTal
  Else
    intTal0 = intTal
  End If

  Nul = intTal0
End Function

Function MakeDate(Format)
      Format = Replace(Format, "dd", Nul(Day(Date)))
      Format = Replace(Format, "mm", Nul(Month(Date)))
      Format = Replace(Format, "yyyy", Nul(Year(Date)))
      Format = Replace(Format, "hh", Nul(Hour(Time)))
      Format = Replace(Format, "nn", Nul(Minute(Time)-5))
      Format = Replace(Format, "ss", Nul(Second(Time)))
MakeDate = Format
End Function

Set rs = Conn.execute("select * from users where sidstset > '" & makedate("dd-mm-yyyy hh:nn:ss") & "'")

Hvis du vil vise data'er i de sidste 2 timer:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
minTid = DateAdd("h", -2, Now)
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.recordset")
Conn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.Mappath("minDB.mdb"))

SQL="SELECT * FROM Mintabel where sidstset > #"&mintid&"#"
rs.Open SQL, conn, 1, 3

do while not rs.EOF
Response.Write rs("sidstset")%><br>
<%
rs.MoveNext
loop%>
<P><P>
<%
Response.Write now
%>
</BODY>
</HTML>