---
title: "max 10"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63073-max-10"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-12-26T01:28:43.000Z"
updated: "2002-12-28T04:23:03.000Z"
replies: 7
views: 211
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/63073-max-10"
---

# max 10

## #1 — antar, 2002-12-26T01:28Z

hur gör jag så att bara 10 användare stannar kvar i fältet och resten raderas! så här ser insert koden ut

```
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 not recset("Senastebesokare") = "" then
if not left(recset("Senastebesokare"),instr(recset("Senastebesokare"), ",")) = session("Anvandarnamn")&"," then
if not recset("Anvandarnamn") = session("Anvandarnamn") then
sql="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql),,128
else
end if
end if
else
if not recset("Anvandarnamn") = session("Anvandarnamn") then
sql="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql),,128
end if
end if
```

och i senaste besokarfältet ser det ut:
pelle,gustav,antar,per,sven

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

## #2 — Jörgen HP, 2002-12-26T01:30Z

Gör en relationstabell med senaste besökare istället. Det är ingen bra lösning att spara dessa som en kommaseparerad sträng i ett databasfält.

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

## #3 — antar, 2002-12-26T01:34Z

jag vill inte skapa mer databaser det e onödigt och gör sidan trögare!

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

## #4 — solbulle, 2002-12-26T02:12Z

Lite OT, men tar inte de båda IF-blocken ut varandra? Blir väl precis samma kod som körs vad som än händer!?! Eller?

Angående din fråga, klipp av strängen happ efter det tionde kommatecknet och spara den biten.

Typ fullösning, går nog att göra snyggare  med instr osv.

```
varArray = split(happ,",")
If ubound(varArray) > 9 then
     for i = 0 to 9
		newArray = newArray & varArray(i) & ","
     next
	happ = newArray
End if
```

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

## #5 — Jörgen HP, 2002-12-26T11:13Z

> **antar skrev:**
>
> jag vill inte skapa mer databaser det e onödigt och gör sidan trögare!

Det blir inte fler databaser utan bara en tabell till. Jag ska inte försöka övertala dig, vill du göra på ett mindre bra sätt så gör så. MEN en dbms selectrerar data effektivare än VB-Script gör, och det kommer säkerligen vara effektivare än ditt sätt. Dessutom blir det ett stort projekt varje gång du ska förändra din kommaseparerade sträng. :)

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

## #6 — OveRRidE, 2002-12-26T12:07Z

För upplysnings skulle vill jag påminna att detta redan har diskuterats i sin helhet i [denna tråd](http://www.webforum.nu/showthread.php?s=&threadid=61462). :)

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

## #7 — antar, 2002-12-28T02:50Z

tack solbulle men hur ska jag koppla in det där med andra koden?

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

## #8 — solbulle, 2002-12-28T04:23Z

```
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") 

varArray = split(happ,",")
If ubound(varArray) > 9 then
     for i = 0 to 9
		newArray = newArray & varArray(i) & ","
     next
	happ = newArray
End if

if not recset("Senastebesokare") = "" then
	if not left(recset("Senastebesokare"),instr(recset("Senastebesokare"), ",")) = session("Anvandarnamn")&"," then
		if not recset("Anvandarnamn") = session("Anvandarnamn") then
			sql="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
			connect.execute(sql),,128
		else
		end if
	end if
else
	if not recset("Anvandarnamn") = session("Anvandarnamn") then
		sql="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
		connect.execute(sql),,128
	end if
end if
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/63073-max-10