replace

hur får jag bort sista * tecknet i fältet?

Function replace2(stjarna)
stjarna = replace(right(stjarna,"*",""),1)
replace2 = stjarna
End Function

Function replace2(stjarna) 
replace2 = left(stjarna, len(stjarna)-1) 
End Function

Förutsätter dock att du inte skickar in ett nullvärde i funktionen.

tack anders :D

varför får jag fel på det här
Felaktigt matrisindex: 'i'
/main.asp, line 193

<%
Function replace2(stjarna) 
replace2 = left(stjarna, len(stjarna)-1) 
End Function

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From Medlemmar where id="&session("id")
RecSet.Open Addera, Connect, 3, 3

if not recset("Senastebesokare") = "" then
visitors=Replace2(RecSet("Senastebesokare"))
online=recset("Status")
visit_array=Split(visitors,"*", -1, 1)
For i = 0 to 9
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
%>

kod-taggar

Snälla, söta rara!

Kan ni ej använda kod-taggarna så koden blir läsbar?

bättre nu eller? :e

For i = 0 to 9

Den koden förutsätter att det finns 10 poster i arrayen. Gör det det?

Är du säker på att du har 10 poster i din visit_array, med andra ord i din tabell i databasen.
Du bör lägga in en funktion som visar tio poster om det finns, annars visar den de som finns.

Ursprungligen av antar bättre nu eller? :e

Blev genast bättre :D

kör så här

'***************** 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)
connect.close
set connect = nothing
end if
end if
'******************************************************

Och, mer intressant, hur många poster har du i arrayen visit_array ?

när jag har 10 så får jag inte felmeddelandet men annars får jag!!

Vill du inte köra for-slingan en gång för varje person som finns i arrayen?

I så fall, prova:

For i = 0 to ubound(visit_array)

mvh,

om den har dynamiskt innehåll kan du väl göra så här:

For i = 0 to Ubound(visit_array, 1)

...
...
...
if i > 9 then exit For
Next

tack så mycket vet ni hur man fixar så att det här funkar ihop med arrayen

online=recset("Status")

if recset("status") = "online" then else asdsad bla bla end if

kan ingen hjälpa mig ??? eller ni kanske inte fattar vad jag menar??

Du vill alltså när du loopar ut visit_array markera om de är online eller inte?
Vart har du informationen om de är online eller inte?
recset("Status") som du skriver här ovan betecknar väl den användaren man är inne på för stunden, eller?

har den i samma databas som Recset("Senastebesokare")

Online = är när man e online i sidan asså inloggad när man loggar ut blir man offline

hallå kan nån hjälpa

För det första; att tjata tjänar ingenting till, det får snarast motsatt effekt.

För det andra är din datamodell inte helt hundra då du sparar flera värden i samma kolumn, osv, vilket gör det hela ganska problematiskt.

Som jag ser det måste du i din loop ställa en SELECT-fråga för varje användarnamn, i din loop.

typ:

[b]strSQL = "SELECT status FROM Members WHERE WHERE Anvandarnamn='" & Anvandarnamn & "'"
set objRS = Connect.execute(strSQL)[/b]
response.write("<img border=""0"" [b]src=""bilder/" & objRS("status") & ".gif""[/b] 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>")

Jag förutsätter att du har bilder som heter online.gif och offline.gif och att det är de två värden som kan finnas i fältet status.