---
title: "Antal besökare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/53892-antal-besökare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-09-21T22:55:15.000Z"
updated: "2002-09-24T19:36:24.000Z"
replies: 11
views: 381
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/53892-antal-besökare"
---

# Antal besökare

## #1 — antar, 2002-09-21T22:55Z

hur visar jag antal besökare genom denna kod?
\[kod\]
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* Senaste besökare \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
Set Connect=Server.CreateObject("ADODB.Connection") 
sConnect = "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&"" 
Connect.Open(sConnect) 

Anvandarnamn= request.querystring("Anvandarnamn") 
id= request.querystring("ID") 

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

adda=session("Anvandarnamn")&"="&now()&"¶"
happ=adda & recset("Lasare") 

if not recset("Lasare") = "" then
if not left(recset("Lasare"),instr(recset("Lasare"), "¶")) = session("Anvandarnamn")&"¶" then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql)
connect.close
set connect = nothing
else
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql)
connect.close
set connect = nothing
end if
end if
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
\[kod\]

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

## #2 — antar, 2002-09-22T11:14Z

jag har försökt och fixa det själv men går ej så bra!
här är koden

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database/dagbok.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select Lasare From dagbok Where ID = "&Request.QueryString("LasID")
RecSet.Open Addera, Connect, 3, 3

if not recset("lasare") = "" then
visitors=RecSet("Lasare")
visit_array=Split(visitors,"¶")
For i = 0 to Ubound(visit_array, 1)

Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera = "Select Lasare From dagbok Where ID = "&Request.QueryString("LasID")&" and Lasare='"& visit_array(i)&"'"
RecSet2.Open Addera, Connect, 3, 3
next
recset2.close
set recset2 = nothing
end if
%>
<b>Läsare: <%if recset("Lasare") = "" then 
response.write "0" 
else
response.write recset2.recordcount
end if
recset.close
set recset = nothing
connect.close
set connect = nothing%>
```

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

## #3 — OveRRidE, 2002-09-22T17:57Z

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

Varför i hela världen gör du så? :)

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

## #4 — jboy_87, 2002-09-22T18:08Z

ska det inte vara ¶

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

## #5 — antar, 2002-09-22T18:11Z

så nu redigera jag inlägget jag skrev nämligen fel!

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

## #6 — OveRRidE, 2002-09-22T21:23Z

Jag fattar faktiskt fortfarande inte varför du gör så. :l

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

## #7 — antar, 2002-09-23T07:34Z

hur ska jag göra då
har en kolumn som ser ut så här

Läsare:
nicke¶antar¶admin

sen så splittar jag ¶

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

## #8 — OveRRidE, 2002-09-23T07:56Z

Gör en relationstabell istället:

```
tblLasare
==================
ID | userId | dagbokID
------------------
22 | 34 | 45
23 | 15 | 56
```

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

## #9 — antar, 2002-09-23T08:17Z

jag vill veta hur man tar fram antal läsare med hjälp av andra koden?

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

## #10 — antar, 2002-09-23T16:58Z

:q

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

## #11 — antar, 2002-09-24T18:45Z

hjälp nån det e väll inget svårt eller?

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

## #12 — jboy_87, 2002-09-24T19:36Z

så kanske?

raknare = uBound(visit_array)
response.write raknare

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/53892-antal-besökare