---
title: "Visa beökare, men bara senaste"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/111067-visa-beökare-men-bara-senaste"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-09-07T23:46:58.000Z"
updated: "2004-09-11T18:10:37.000Z"
replies: 8
views: 301
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/111067-visa-beökare-men-bara-senaste"
---

# Visa beökare, men bara senaste

## #1 — WebbisNet, 2004-09-07T23:46Z

Den här funktionen för att visa vem som har besökt ens sida på communityt funkar jättebra, men det jag vill nu är att om amn besöker en sida mer än en gång så vill jag bara att senaste besöket visas....ett namn ska alltså inte visas upprepade gånger.....distinct verkar inte hjälpa

```
lVisitorId = CLng(session("UserId"))   '# besökarens id
lUserId = CLng(request("UserId"))   '# krypinets ägares id

if lUserId <> lVisitorId then
objConn.execute "INSERT INTO tblUsers_visitors (HomeUserId, HomeVisitorId, HomeDateVisited,HomeTimeVisited) VALUES(" & lUserId & "," & lVisitorId & ",#" & date & "#,#" & time & "#)"
   'response.redirect "view.asp"
end if

Set visitor=objConn.Execute("SELECT DISTINCT TOP 5 tblUsers.userID, tblUsers.username, tblUsers.screenname, tblUsers_visitors.ID, tblUsers_visitors.HomeVisitorId, tblUsers_visitors.HomeUserId, tblUsers_visitors.HomeDateVisited, tblUsers_visitors.HomeTimeVisited "&_
"FROM tblUsers RIGHT JOIN tblUsers_visitors ON tblUsers.userID = tblUsers_visitors.HomeVisitorId where HomeUserId="&request("userID") &" GROUP BY tblUsers.userID, tblUsers.username, tblUsers.screenname, tblUsers_visitors.ID, tblUsers_visitors.HomeVisitorId, tblUsers_visitors.HomeUserId, tblUsers_visitors.HomeDateVisited, tblUsers_visitors.HomeTimeVisited "&_
"ORDER BY tblUsers_visitors.ID DESC")
```

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

## #2 — magnusfernstrom, 2004-09-07T23:49Z

DISTINCTROW? 

Känner bara till det, men vet inte om det fungerar, gör något liknande som DISTINCT. Pröva! Alltid värt ett försök. Annars får du väl - som alla andra - vänta på LarsG. :e

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

## #3 — WebbisNet, 2004-09-07T23:52Z

> **magnusfernstrom skrev:**
>
> DISTINCTROW? 
> 
> Känner bara till det, men vet inte om det fungerar, gör något liknande som DISTINCT. Pröva! Alltid värt ett försök. Annars får du väl - som alla andra - vänta på LarsG. :e

Hjälpte tyvärr inte :-)

så det blir till att vänta :-)

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

## #4 — magnusfernstrom, 2004-09-07T23:53Z

Äh, jag chansade bara! Jag visste att det fanns också, men inte vad det är för skillnad från DISTINCT. LarsG verkar kunna ALLT inom SQL, typ. Detta är en piece of cake för honom, och många andra på wF! :)

Nåväl. Vänta bara :D

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

## #5 — WebbisNet, 2004-09-09T15:23Z

Re: Visa beökare, men bara senaste

> **WebbisNet skrev:**
>
> Den här funktionen för att visa vem som har besökt ens sida på communityt funkar jättebra, men det jag vill nu är att om amn besöker en sida mer än en gång så vill jag bara att senaste besöket visas....ett namn ska alltså inte visas upprepade gånger.....distinct verkar inte hjälpa
> 
>
>
> ```
> lVisitorId = CLng(session("UserId"))   '# besökarens id
> lUserId = CLng(request("UserId"))   '# krypinets ägares id
> 
> if lUserId <> lVisitorId then
> objConn.execute "INSERT INTO tblUsers_visitors (HomeUserId, HomeVisitorId, HomeDateVisited,HomeTimeVisited) VALUES(" & lUserId & "," & lVisitorId & ",#" & date & "#,#" & time & "#)"
>    'response.redirect "view.asp"
> end if
> 
> Set visitor=objConn.Execute("SELECT DISTINCT TOP 5 tblUsers.userID, tblUsers.username, tblUsers.screenname, tblUsers_visitors.ID, tblUsers_visitors.HomeVisitorId, tblUsers_visitors.HomeUserId, tblUsers_visitors.HomeDateVisited, tblUsers_visitors.HomeTimeVisited "&_
> "FROM tblUsers RIGHT JOIN tblUsers_visitors ON tblUsers.userID = tblUsers_visitors.HomeVisitorId where HomeUserId="&request("userID") &" GROUP BY tblUsers.userID, tblUsers.username, tblUsers.screenname, tblUsers_visitors.ID, tblUsers_visitors.HomeVisitorId, tblUsers_visitors.HomeUserId, tblUsers_visitors.HomeDateVisited, tblUsers_visitors.HomeTimeVisited "&_
> "ORDER BY tblUsers_visitors.ID DESC")
> ```

Inte så snyggt att ha det så här som bilden visar  :(

Bilagor:

- [senastebesökare.jpg](https://www.webforum.nu/a/4513.jpg)

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

## #6 — WebbisNet, 2004-09-10T14:47Z

Ingen som vet?

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

## #7 — SB, 2004-09-11T16:24Z

Distinct returnerar bara de poster en gång där värdena är lika i alla angivna kolumner.

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

## #8 — LarsG, 2004-09-11T16:43Z

Varför har du delat upp besökstiden i en date och en time? Det blir bara besvärligare att hantera.

Jag förmodar att det är Access.

```
SELECT TOP 5 tblUsers.userID, 
             tblUsers.username, 
             tblUsers.screenname, 
             tblUsers_visitors.ID, 
             tblUsers_visitors.HomeVisitorId, 
             tblUsers_visitors.HomeUserId, 
             tblUsers_visitors.HomeDateVisited, 
             tblUsers_visitors.HomeTimeVisited 
        FROM tblUsers 
  inner JOIN tblUsers_visitors tv1 ON tblUsers.userID = tblUsers_visitors.HomeVisitorId 
  where HomeUserId= " & request("userID") & "
and cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited))
= (select max(cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited)))
     from tblUsers_visitors
    where tblUsers_visitors.HomeVisitorId = tv1.HomeVisitorId)
order by tblUsers_visitors.HomeDateVisited desc, 
         tblUsers_visitors.HomeTimeVisited desc
```

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

## #9 — WebbisNet, 2004-09-11T18:10Z

> **LarsG skrev:**
>
> Varför har du delat upp besökstiden i en date och en time? Det blir bara besvärligare att hantera.
> 
> Jag förmodar att det är Access.
> 
>
>
> ```
> SELECT TOP 5 tblUsers.userID, 
>              tblUsers.username, 
>              tblUsers.screenname, 
>              tblUsers_visitors.ID, 
>              tblUsers_visitors.HomeVisitorId, 
>              tblUsers_visitors.HomeUserId, 
>              tblUsers_visitors.HomeDateVisited, 
>              tblUsers_visitors.HomeTimeVisited 
>         FROM tblUsers 
>   inner JOIN tblUsers_visitors tv1 ON tblUsers.userID = tblUsers_visitors.HomeVisitorId 
>   where HomeUserId= " & request("userID") & "
> and cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited))
> = (select max(cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited)))
>      from tblUsers_visitors
>     where tblUsers_visitors.HomeVisitorId = tv1.HomeVisitorId)
> order by tblUsers_visitors.HomeDateVisited desc, 
>          tblUsers_visitors.HomeTimeVisited desc
> ```

Jag får:

```
Microsoft JET Database Engine error '80040e14' 

Syntax error in JOIN operation. 

/view_include.asp, line 39
```

med

```
Set visitor=objConn.Execute("SELECT TOP 5 tblUsers.userID,tblUsers.username,tblUsers.screenname,tblUsers_visitors.ID,tblUsers_visitors.HomeVisitorId,tblUsers_visitors.HomeUserId,tblUsers_visitors.HomeDateVisited,tblUsers_visitors.HomeTimeVisited FROM tblUsers "&_ 
"inner JOIN tblUsers_visitors tv1 ON tblUsers.userID = tblUsers_visitors.HomeVisitorId "&_ 
"where HomeUserId= " & request("userID") & " and cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited))= (select max(cdate(cstr(tblUsers_visitors.HomeDateVisited) & ' ' & cstr(tblUsers_visitors.HomeTimeVisited))) "&_
"from tblUsers_visitors where tblUsers_visitors.HomeVisitorId = tv1.HomeVisitorId order by tblUsers_visitors.HomeDateVisited desc, "&_ 
"tblUsers_visitors.HomeTimeVisited desc")
```

Rad 39 är första raden...set visitor ......

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/111067-visa-beökare-men-bara-senaste