---
title: "Visa online och ålder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45184-visa-online-och-ålder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-06-04T13:26:19.000Z"
updated: "2002-06-04T13:42:03.000Z"
replies: 2
views: 220
page: 1
pages: 1
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/45184-visa-online-och-ålder"
---

# Visa online och ålder

## #1 — antar, 2002-06-04T13:26Z

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

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

## #2 — roady, 2002-06-04T13:38Z

skall du visa ålder och online för personens krypin som man tittar på?
Har du ett online fält i databasen och ett åldersfält så är det väll bara att hämta infon  :q

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

## #3 — antar, 2002-06-04T13:42Z

ja jag har fält i databasen allt men hur ska jag få det och funka med split kolumnen senastebesokare ser ut så här antar\*guest\*test\*webmaster\*test2

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/45184-visa-online-och-ålder