splitta

arrMyArray = Split("antar*antar2*antar3*antar4*", "*")

ja men antar*antar2*antar3 är senaste besökarna det ändras ju hela tiden

Det är typiskt dåligt att ha * separerade strängar i en kolumn i databasen. Gör en separat tabell där du lagrar medlemmar som är online istället. Det tjänar du på i längden.

eh
Visualisera det på det här sättet istället då.
x = "antar1"
x = x & "*antar2"
x = x & "*antar3"

arr = split(x, "*")
Nu har du en array.
arr(0) = "antar1"
arr(1) = "antar2"
osv

har gjort så här
<%myString = recset("Senastebesokare")%>
<%
myArray = split(myString,"*")
For i = 0 To Ubound(myArray)
Response.Write myArray(i)
Next%>

hur får jag br och funka??

Menar du så?

<%myString = recset("Senastebesokare")%> 
<% 
myArray = split(myString,"*") 
For i = 0 To Ubound(myArray) 
Response.Write " " & myArray(i) & "<br>"
Next%>

gjorde såhär

<%visitors=recset("Senastebesokare")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
lay=2
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next%>

hur får jag fram online eller offline?

halllå §e

kan nån hjälpa det här e säkert enkelt vill koppla databasen med arrayen

Varför inte bara lista de som är online från start så att säga?

vad menar du???????

Det verkar ju som om du har alla medlemmar i databasen samt ett fält där det står om de är online eller offline. I så fall kan du väl lista de som är online direkt ur databasen!?!
Men jag kanske har missat något?
Hur vet man vilka som är online?

jag kör med split ju

Den här tanken menas antar jag.
<%
set RS = conn.execute("SELECT * FROM tabell WHERE online = 'true'")
do until RS.eof
response.write RS("namn") & "<br>"
RS.movenext
Loop
%>

vart ska jag lägga in det där?

Visa all kod du har i ärendet så blir det mycket lättare.

krypin.asp
'***************** 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

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
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)
else
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)
end if
end if
'******************************************************

index.asp

<%
on error resume next
if not recset("Senastebesokare") = "" then
visitors=recset("Senastebesokare")
visit_array=Split(visitors,"*")
lay=9
For i = 0 To lay
response.write("<img border=""0"" src=""bilder/online.gif"" width=""10"" height=""9""><a href=""#"" onclick=""krypin('krypin.asp?visa=krypin&id=','id_"&visit_array(i)&"',502,303); return false;""><b>" & visit_array(i) & "</b></a><br>")
next

else%>

<font face="Tahoma"><img border="0" src="Bilder/1pxtrans.gif">Tyvärr, Ingen har besökt ditt krypin ännu!<br>
<img border="0" src="Bilder/Community/Smileys/ledsen.gif">
<%end if%>