replace

& objRS("status") &

0x80020009)
Undantag inträffade.
/main.asp, line 196

Hur ser hela loopen ut nu?
Vad är fältet status för datatyp?

vilken loop

datatypen är text

Ehm, du hade väl en for-loop som du la den där koden i?

så här ser hela ut nu

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 top 10 *  From Medlemmar where id="&session("id")
RecSet.Open Addera, Connect, 3, 3

strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='"&Anvandarnamn &"'"
set objRS = Connect.execute(strSQL)

if not recset("Senastebesokare") = "" then
visitors=replace2(RecSet("Senastebesokare"))
online=recset("Status") = "online"
visit_array=Split(visitors,"*")
For i = 0 to Ubound(visit_array, 1)
response.write("<img border=""0"" src=""bilder/" & objRS("status") & ".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>")	
if i > 9 then exit for
next
recset.close
connect.close
set recset = nothing
set connect = nothing

Koden jag skrev hör hemma inne i loopen.

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 top 10 *  From Medlemmar where id="&session("id")
RecSet.Open Addera, Connect, 3, 3

if not recset("Senastebesokare") = "" then
visitors=replace2(RecSet("Senastebesokare"))
online=recset("Status") = "online"
visit_array=Split(visitors,"*")
For i = 0 to Ubound(visit_array, 1)
strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='" & visit_array(i) &"'"
set objRS = Connect.execute(strSQL)
response.write("<img border=""0"" src=""bilder/" & objRS("status") & ".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>")	
if i > 9 then exit for
next
recset.close
connect.close
set recset = nothing
set connect = nothing

Dessutom hade inte Anvandarnamn något värde, så jag la in visit_array(i) där i stället.

får fortfarande samma fel??

Skriv ut strSQL istället för att exekvera den, hur ser det ut då?

strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='" & visit_array(i) &"'"
Response.write strSQL & "<br>"
'set objRS = Connect.execute(strSQL)

SELECT * FROM Medlemmar WHERE Anvandarnamn='antar'

Måste du hämta alla fält? Behöver du något mer fält än status?
Det borde ju iofs inte göra så det inte fungerar...

jepp behöver id, kon, fodd

Var det verkligen strSQL du skrev ut där?

Ett tips: Specificera fälten du ska använda i SQL-frågan. Det finns ingen anledning att hämta sånt du inte ska använda.

Mvh,

om jag skriver in on error resume next så funkar allt

går det och göra så att bara 10 första besökarna blir kvar och resten raderas i databasen!!

Ja, det kan man.

DELETE-fråga, ungefär så här:

strSQL = "DELETE FROM tabellen WHERE Fältet NOT IN (SELECT TOP 10 Fältet FROM tabellen ORDER BY Fältet)"

Resten lämnas som övning till läsaren. ;)

varför funkar det inte

Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/main.asp, line 209, column 149

response..write ("onmouseover=""window.status='"&if objRS("status") = Online then objRS("gor") end if &"';return true;"" onmouseout=""window.status='';return true;""")

Mina ögon fastnade på de två punkterna mellan response och write. Kan de ha med saken att göra?

Det känns som att du skulle vinna ganska mycket på att försöka dig på lite felsökning själv innan du ställer nästa fråga här. :)

Dels för att du har två punkter mellan response och write, och dels för att du har en massa if-satser och grejs inne i ditt response.write statement.

response.write ("onmouseover=""window.status='")

if objRS("status") = Online then response.write objRS("gor") 
response.write ("';return true;"" onmouseout=""window.status='';return true;""")

går det inte och köra if sats i response.write?