ett fel med besökare! På vissa!

Hejsan! På vissa så lägger den till mer än besökare! Men på andra inte! När den kommer till 3 så ska den börja ta bort den äldsta besökaren så här ser koden ut!

if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista, 
lay=2
for p=0 to ubound(visit_array) 
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>") 
next
else
response.write("Ingen har varit här=(<br>")
end if

sen har jag en till som sitte högre upp!

SQLv="SELECT visits FROM users WHERE username='" & se & "'"
Conn.execute(SQLv)
	
Set Rsv=Server.CreateObject("ADODB.Recordset")
Rsv.open SQLv, Conn, 3,3

if username<>se then
	'lägg till en ny besökare
	adda=username & "*"
			
	happ=adda & rsv("visits")
	
	sqlo="UPDATE users SET visits='" & happ & "'" & _
	     "WHERE username='" & se & "'"
	conn.execute(sqlo)
end if