---
title: "räkna unika träffar på min sida ??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/73475-räkna-unika-träffar-på-min-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2003-04-07T17:06:10.000Z"
updated: "2003-04-07T20:37:16.000Z"
replies: 14
views: 332
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/73475-räkna-unika-träffar-på-min-sida"
---

# räkna unika träffar på min sida ??

## #1 — jwradhe, 2003-04-07T17:06Z

hur gör jag det på bästa sätt ???

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

## #2 — Fredde Mannen, 2003-04-07T17:08Z

Du loggar besökarnas IP eller sätter en kaka på deras dator, och kollar sedan om den finns, eller IP:et finns.

Óm det finns så loggar du ej deras besök, annars logga besöket!

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

## #3 — jwradhe, 2003-04-07T17:09Z

oki thnx !!

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

## #4 — jwradhe, 2003-04-07T17:21Z

hehe har fastnat . 
så här långt har jag kommit :

```
<%
user = Request.ServerVariables("REMOTE_ADDR")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/grynsta.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From raknare where ip = user "

if RecSet.EOF then 
RecSet.Open Addera, Connect, 3, 3
RecSet.Addnew
RecSet("ip") = user
RecSet.Update
RecSet.Close
Set RecSet = nothing

Connect.Close
	
	Set Connect = nothing

%>
```

(har itne hållt på med asp på länge)  

någon som kan hjälpa mig hur jag ska göra =)

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

## #5 — Sebbe, 2003-04-07T17:38Z

```
<%
user = Request.ServerVariables("REMOTE_ADDR")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/grynsta.mdb")
Set objRS = Connect.Execute("SELECT * FROM raknare")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    strIP = strIP & user
    objRS.MoveNext
  Loop
End If

If NOT InStr(strIp,user) <> 0 Then
  strSQL = "UPDATE raknare SET besok = besok + 1, ip = ip & '" & user & "' WHERE id = MAX(id)"
  Connect.Execute(strSQL)
End If 

Set objRS = Nothing
Connect.Close
Set Connect = Nothing
%>
```

Kan det kanske funka, tro?

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

## #6 — LarsG, 2003-04-07T17:38Z

```
Addera = "Select * From raknare where ip = '" & user & "'"
```

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

## #7 — jwradhe, 2003-04-07T17:53Z

vilka fält i db och vilka tabeller ska jag ha ?

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

## #8 — Sebbe, 2003-04-07T18:02Z

raknare
\---------------------
id - räknare
ip - PM
besok - Tal
 :)

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

## #9 — jwradhe, 2003-04-07T18:12Z

Microsoft JET Database Engine error '80040e14' 

Cannot have aggregate function in WHERE clause (id=MAX(id)). 

/index.asp, line 16

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

## #10 — Sebbe, 2003-04-07T18:16Z

```
strSQL = "UPDATE raknare SET besok = besok + 1, ip = ip & '" & user & "' WHERE id = 1"
```

Om du bara har en post, där id:t verkligen **är** 1\. :)

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

## #11 — jwradhe, 2003-04-07T19:02Z

asså jag fattar inte

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

## #12 — Sebbe, 2003-04-07T19:04Z

Du gör en ny post i tabellen raknare där kolumnen id (som är av typen Räknare, kan även vara Tal om du vill :)) har värdet 1.

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

## #13 — jwradhe, 2003-04-07T19:11Z

... fattar inte mera iaf.......

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

## #14 — Sebbe, 2003-04-07T20:09Z

Bifogar färdigt script med databas och allt. :)

Bilagor:

- [besok.zip](https://www.webforum.nu/a/1253.zip)

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

## #15 — jwradhe, 2003-04-07T20:37Z

thnx för det

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/73475-räkna-unika-träffar-på-min-sida