---
title: "Senaste besökare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45048-senaste-besökare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-06-02T09:12:05.000Z"
updated: "2002-06-02T16:20:06.000Z"
replies: 23
views: 379
page: 1
pages: 2
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/45048-senaste-besökare"
---

# Senaste besökare

_Sida 1 av 2._

## #1 — antar, 2002-06-02T09:12Z

hur fixar jag så att blir dubletter i senaste besokare och att om man besöker sin egen krypin ska det inte skrivas till databasen att jag besökt mitt egen krypin!!

Set Connect=Server.CreateObject("ADODB.Connection")
sConnect = "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&""
Connect.Open(sConnect)

Anvandarnamn= request.querystring("Anvandarnamn")

SQL="SELECT Senastebesokare FROM Medlemmar WHERE Anvandarnamn='" & Anvandarnamn & "'"
Connect.execute(SQL)
Set Recset=Server.CreateObject("ADODB.Recordset")
Recset.open SQL, Connect, 3,3

adda=session("Anvandarnamn") & "\*"
happ=adda & recset("Senastebesokare")

sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)

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

## #2 — Jesper T, 2002-06-02T09:26Z

Jag skulle ha testat:

```
 
Set Connect=Server.CreateObject("ADODB.Connection") 
sConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&"" 
Connect.Open(sConnect) 

Anvandarnamn= request.querystring("Anvandarnamn") 

SQL="SELECT Senastebesokare, Anvandarnamn FROM Medlemmar WHERE Anvandarnamn='" & Anvandarnamn & "'" 
Connect.execute(SQL) 
Set Recset=Server.CreateObject("ADODB.Recordset") 
Recset.open SQL, Connect, 3,3 

adda=session("Anvandarnamn") & "*" 
happ=adda & recset("Senastebesokare") 
if recset("Anvandarnamn")<>Anvandarnamn then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)
end if
```

 

/Jesper

När jag tittar närmar på det hela så ser det ut som att "anvandarnamn" är den medlemmen vars krypin man tittar in i, men hur spar du användarnas eget användarnamn?
i sessions eller kakor eller vad ? Detta måste du väl ha med i if-satsen.

```
 if recset("Anvandarnamn")<>session("Anvandarnamn") then
```

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

## #3 — antar, 2002-06-02T09:47Z

jepp men funkar inte?

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

## #4 — antar, 2002-06-02T09:49Z

skriv inget i tabellen om jag skriver if not recset("anvandarnamn")\<\>Anvandarnamn then så funkar det

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

## #5 — Jesper T, 2002-06-02T09:52Z

Men är det fortfarande problem?

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

## #6 — antar, 2002-06-02T10:03Z

aa det skrivs endå till mitt egen krypin!!

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

## #7 — Jesper T, 2002-06-02T10:06Z

Men hur spar du ditt användarnamn?!
Altså när du surfar runt på din site så måste du väl kunna plocka ut det på ngt sätt. Hur gör du det?

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

## #8 — antar, 2002-06-02T10:09Z

session("Anvandarnamn")

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

## #9 — Jesper T, 2002-06-02T10:41Z

```
if not recset("Anvandarnamn")=session("Anvandarnamn") then
```

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

## #10 — antar, 2002-06-02T10:44Z

och hur gör man om man vill slippa dubletter på senaste besökarna?

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

## #11 — Jesper T, 2002-06-02T10:54Z

Vad händer om du inte tillåter dubletter i din databas och kör:

```
On Error Resume Next
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)
If Err.Number<>0 then
'Det gick inget vidare....
end if
end if
```

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

## #12 — antar, 2002-06-02T10:59Z

tabellen ser ut så här

antarid=1\*antarid=1\*osv... i en tabell

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

## #13 — Jesper T, 2002-06-02T11:04Z

Jag fattar inte riktigt strukturen ändå, men kanske detta då?

```
if Recset.eof then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)

else
  'posten finns, strunta i att lägga till!
end if
```

> tabellen ser ut så här

 
...Menar du inte kolumnen?

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

## #14 — antar, 2002-06-02T11:09Z

kolumnen menar jag!!

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

## #15 — antar, 2002-06-02T11:12Z

kolla här:

adda=session("Anvandarnamn") & "**\***"

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

## #16 — Jesper T, 2002-06-02T11:23Z

Om du har allt i samma kolumn kan du kanske göra:

```
if not right(recset("Anvandarnamn"),len(anvandarnamn))[red]&"*"[/red] = anvandarnamn[red]&"*"[/red] then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)

else
  'posten finns, strunta i att lägga till!
end if
```

//Jesper

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

## #17 — antar, 2002-06-02T11:46Z

händer ingenting?

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

## #18 — Jesper T, 2002-06-02T12:58Z

Prova att sätta stjärnan först, sen struntar du i stjärnan i if-satsen.

```
adda="*"&session("Anvandarnamn")
if not right(recset("Anvandarnamn"),len(anvandarnamn))= anvandarnamn then
```

Någon ASP-guru får nog hjälpa dig annars!

MVH Jesper :)

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

## #19 — antar, 2002-06-02T13:48Z

händer inget!

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

## #20 — jboy_87, 2002-06-02T14:47Z

testa 

adda=session("Anvandarnamn")&"\*"
happ=adda & recset("Senastebesokare") 

if not recset("Senastebesokare")&"\*" = Anvandarnamn then

if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)

else
  'posten finns, strunta i att lägga till!
end if
end if

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/45048-senaste-besökare  
Nästa sida: https://www.webforum.nu/amne/asp/45048-senaste-besökare/page2.md