---
title: "hjälp snälla :-("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14163-hjälp-snälla"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hacktheplanet"
published: "2002-02-02T21:23:00.000Z"
updated: "2002-02-03T10:41:00.000Z"
replies: 7
views: 228
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14163-hjälp-snälla"
---

# hjälp snälla :-(

## #1 — hacktheplanet, 2002-02-02T21:23Z

```
<%
Set Connect6 = Server.CreateObject("ADODB.Connection") 
Connect6.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
Set RecSet6 = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet6.Open Addera, Connect6, adOpenStatic, adLockOptimistic

tid = now()
tid2 = recset6("minonline")
tid3 = recset6("datum")

Set connection6 = server.createObject("adodb.connection")
connection6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & ""
connection6.execute "update members set status = 'offline' where not "& tid2 &" + "& tid3 &" = "& tid &" and username"
sql = "select count(*) as members from members"

%>
```

får:

**Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'not 0 + 2002-02-02 22:06:15 = 2002-02-02 22:20:18 and username'.**

Permalänk: https://www.webforum.nu/p/14163

## #2 — PatrikB, 2002-02-02T21:49Z

testa detta:

```
where not ("& tid2 &" + "& tid3 &") = "& tid &"
```

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/309194

## #3 — hacktheplanet, 2002-02-02T21:54Z

nope funkar inte :(

Permalänk: https://www.webforum.nu/p/309195

## #4 — LarsG, 2002-02-02T22:52Z

Det behövs ett villkor på username också förmodar jag. Du får ändra så att det passar.

```
<%
Set connect6 = server.createObject("adodb.connection")
connect6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") 
connect6.execute "update members set status = 'offline' where dateadd('n',minonline,datum) < now() and username = '" & session("username") & "'"
sql = "select count(*) as members from members"
%>
```

Permalänk: https://www.webforum.nu/p/309196

## #5 — hacktheplanet, 2002-02-02T23:51Z

session("username") har jag inte när jag startar default.asp

Permalänk: https://www.webforum.nu/p/309197

## #6 — hacktheplanet, 2002-02-02T23:58Z

nope funkar inte vill att min online ska plussas med senaste inloggade
vi säger att jag e online i 5 min så står det 5 min fältet och så vill jag gemföra det med senaste inloggade om det inte stämmer så blir man offline i databasen!!! snälla kan nån hjälpa :(

Permalänk: https://www.webforum.nu/p/309198

## #7 — hacktheplanet, 2002-02-03T00:38Z

nu ser koden ut såhär
men det blir fel på sekunderna och så blir man utloggad :(

```
<%
Set connect6 = server.createObject("adodb.connection")
connect6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") 
connect6.execute "update members set status = 'offline' where not dateadd('n',minonline,datum) < now()"
sql = "select count(*) as members from members"
%>
```

Permalänk: https://www.webforum.nu/p/309199

## #8 — hacktheplanet, 2002-02-03T10:41Z

kan nån hjälpa mig nu ser koden ut såhär!
får

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'not datum + 2002-02-03 01:41:23 \<\> 2002-02-03 and username'.
/Default.asp, line 45

```
<% 
Set Connect6 = Server.CreateObject("ADODB.Connection") 
Connect6.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&"" 
Set RecSet6 = Server.CreateObject("ADODB.Recordset") 
Addera = "Select * From members" 
RecSet6.Open Addera, Connect6, adOpenStatic, adLockOptimistic 

tid = date() 
gem = dateadd("n",recset6("minonline"),cdate(recset6("datum"))) 

Set connection6 = server.createObject("adodb.connection") 
connection6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & "" 
connection6.execute "update members set status = 'offline' where not "& gem &" <> "& tid &" and username" 
sql = "select count(*) as members from members" 
%>
```

Permalänk: https://www.webforum.nu/p/309200

---

Tråden på webben: https://www.webforum.nu/amne/asp/14163-hjälp-snälla