---
title: "Min.Online"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13018-min-online"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2001-12-04T20:22:00.000Z"
updated: "2001-12-05T15:12:00.000Z"
replies: 19
views: 148
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/13018-min-online"
---

# Min.Online

## #1 — antar, 2001-12-04T20:22Z

Hejsan kan ni hjälp mig med en sak!!
jag håller på med en liten community jag vill att när medlemen loggar in så ska det starta nån slags timer som räknar hur många min som användaren har varit i sidan och så ska det sparas i databasen och när han sedan loggar ut så ska timern stoppas

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

## #2 — EchO, 2001-12-04T20:34Z

Du kan ju även spara tiden när personen loggas ut...räkna sedan ut tiden mellan inloggning och utloggning och plussa sedan på tiden i ett "tid online fält" i databasen...

Det är en lösning

@EchO

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

## #3 — LarsG, 2001-12-04T20:36Z

Då kan det vara lämpligt att lagra det värdet i en sessionvariabel.

```
'vid inloggning
session("loginTime") = now()
session("userid") = userid
```

vad vill du spara i databasen. Bara tiden för det senaste besöket eller alla besök?

Nu vet jag inte hur dina tabeller ser ut men jag antar att du har någon där du sparar information om olika användare.

Om du bara vill spara tiden för senaste 
besöket så

```
'vid utloggning
minutes = datediff("n",cdate(session("logintime")),now())
set connect = server.createobject("adodb.connection")
connect.open "dsn"
connect.execute "update users set visitTime = " & minutes & " where userid = " & session("userid"),,128
connect.close
```

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

## #4 — antar, 2001-12-04T21:16Z

jag vill att man ser hur många min man har varit inne!!!

som typ silverplanet.cc som deras script!!!

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

## #5 — LarsG, 2001-12-04T21:22Z

Då har du den uträkningen

```
minutes = datediff("n",cdate(session("logintime")),now())
response.write "du har varit här " & minutes & " minuter <br>"
```

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

## #6 — antar, 2001-12-04T22:37Z

nu blev det såhär istället för min

53611174

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

## #7 — LarsG, 2001-12-04T23:01Z

Jaha, då har det blivit något skumt.
Hur ser din kod ut?

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

## #8 — antar, 2001-12-04T23:04Z

```
RecSet("datum") = Now
RecSet("status") = "online"

RecSet.Update

Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("Username") = RecSet("Username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")
session("totalminonline") = now()

Session.TimeOut = 40

minutes = datediff("n",cdate(session("totalminonline")),now())
connect.execute "update members set totalminonline = " & minutes & " where id = " & session("id"),,128

strSQL="UPDATE members SET poang = poang + 1 WHERE ID = " & Session("id")
Connect.execute (strSQL)

strSQL="UPDATE members SET loggatin = loggatin + 1 WHERE ID = " & Session("id")
Connect.execute (strSQL)
```

\[Redigerat av antar den 05 dec 2001\]

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

## #9 — antar, 2001-12-04T23:07Z

\<%minutes = datediff("n",cdate(session("totalminonline")),now())
response.write "du har varit här " & minutes & " minuter \<br\>" %\>

\[Redigerat av antar den 05 dec 2001\]

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

## #10 — antar, 2001-12-04T23:12Z

hur gör man om användaren stannat i 20 min så plussas det på 3 poäng i databasen???? tack LarsG

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

## #11 — antar, 2001-12-04T23:25Z

men larsG tiden sparas ej i databasen vill att när man loggar in så startas tiden och sen när man loggar ut som nollställs den till 0

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

## #12 — antar, 2001-12-05T00:26Z

hur gör man om användaren stannat i 20 min så plussas det på 3 poäng i databasen???? tack LarsG

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

## #13 — LarsG, 2001-12-05T00:38Z

Om du lägger den här koden vid **utloggningen** 

```
minutes = datediff("n",cdate(session("totalminonline")),now())

if minutes > 20 then
   points = 3
else
   points = 1
end if
connect.execute "update members set loggatin = loggatin + 1, totalminonline = " & minutes & " , poang = " & points where id = " & session("id"),,128
```

så.  Om du räknar ut antal minuter när man loggar in så blir det alltid 0. 

Varför du får det där höga värdet på antalet minuter förstår jag inte.

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

## #14 — iceM2, 2001-12-05T08:39Z

till antar: Nu är inte jag forumledare här Men... istället för att skriva fyra väldigt korta meddelanden på raken så kan du väl redigera det första korta befintliga meddelandet med tillägsfrågor?

Inget illa menat men det blir lite trevligare då ;)

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

## #15 — antar, 2001-12-05T13:32Z

okej sorry :-( 
LarsG tack så mycket jag har fixat allt
det va inget fel på ditt kod utan på mig hehehe tack!!

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

## #16 — antar, 2001-12-05T13:51Z

fel på kod:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.

```
connect100.execute "update members set poang = poang + 1, minonline = " & minutes & " , poang = " & poang where id = " & session("id"),,128
```

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

## #17 — @nders, 2001-12-05T14:02Z

```
connect100.execute "update members set poang = poang + 1, minonline = " & minutes & " , poang = " & poang [b]& " [/b]where id = " & session("id"),,128
```

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

## #18 — antar, 2001-12-05T14:13Z

fel:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Microsoft Jet kan inte hitta tabellen eller frågan 'poang'. Kontrollera att den existerar och att namnet är rätt stavat
/status.asp, line 95

```
set connect100 = server.createobject("adodb.connection")
Connect100.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 20 then
points = 3
else
points = 1
end if
connect100.execute "update poang set poang = poang + 1, minonline = " & minutes & " , poang = " & points &" where id = " & session("id"),,128

Connect100.close
Set Connect100 = nothing
```

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

## #19 — antar, 2001-12-05T15:03Z

nån som kan hjälpa mig :-o

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

## #20 — @nders, 2001-12-05T15:12Z

nu när jag ser efter ser frågan konstig ut.

Vad ska in i poängfältet? Variabeln points eller ska den ökas med ett? Du ska inte ha med fältet poang två gånger i listan.

Heter din tabell verkligen poang?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13018-min-online