---
title: "replace"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45352-replace/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-06-06T12:31:38.000Z"
updated: "2002-06-07T11:25:07.000Z"
replies: 44
views: 635
page: 3
pages: 3
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/45352-replace"
---

# replace

_Sida 3 av 3._

## #41 — hypatia, 2002-06-06T21:18Z

Du har fortfarande kvar en if-sats i response.write.

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

## #42 — antar, 2002-06-06T22:31Z

tack så mycket sista grejen kvar bara hur fixar jag så att 
bara dom 10 senaste besökarna ska finnas i databasen och resten ska tas bort!

i fältet ser det ut så här
antar\*test\*antar2\*test3

strSQL = "DELETE FROM Medlemmar WHERE Senastebesokare NOT IN (SELECT TOP 10 Senastebesokare FROM Medlemmar)"

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

## #43 — @nders, 2002-06-07T04:15Z

Vad är det du vill göra? Rensa i det fältet så det innehåller max tio namn med stjärnor emellan?

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

## #44 — antar, 2002-06-07T07:39Z

precis!!  :e

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

## #45 — solbulle, 2002-06-07T11:25Z

Tror att detta skulle kunna fungera, dina flera If-satser samt de två blocken med databasuppdateringar ser jag inte vitsen med.(?)
I mina ögon körs ett inlägg i databasen hur det än ser ut!?!

```
'***************** Senaste besökare ****************

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") 
id= request.querystring("ID") 

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

if not recset("Anvandarnamn")=session("Anvandarnamn") then
	if not recset("Senastebesokare") = "" then
		if not left(recset("Senastebesokare"),instr(recset("Senastebesokare"), "*")) = session("Anvandarnamn")&"*" then

			visitors=replace2(RecSet("Senastebesokare"))
			visit_array=Split(visitors,"*")

				For i = 0 to Ubound(visit_array, 1)
					New_visit_array = New_visit_array & "*" & visit_array(i)
					if i > 8 then exit For
				Next

			Senastebesokare = session("Anvandarnamn")& "*" & Senastebesokare 
			sqlo="UPDATE Medlemmar SET Senastebesokare='" & Senastebesokare & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
			connect.execute(sqlo)
			connect.close
			set connect = nothing

		end if	
	end if
end if

'******************************************************
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/45352-replace/page3  
Föregående sida: https://www.webforum.nu/amne/asp/45352-replace/page2.md