Visa online och ålder

hur fixar jag det här så att med arrayen kan se att medlemmen är online och hur gammal han e?

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%>