replace

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

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

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

precis!! :e

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

'******************************************************