Vad är felet nedan?

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/data.mdb")

Namn = Request.Cookies("FirstName") & " " & Request.Cookies("LastName")

Set RS3 = Conn.Execute("Select * From online Order By namn")
Dim online
Do until RS3.Eof
if Namn = RS3("namn") Then
online = "1"
Else
online = "2"
End if
RS3.MoveNext
Loop

if online = "2" Then
Conn.Execute("Insert Into online(namn) Values('" & Namn & "')")
Conn.Execute("Insert Into mess(inlagg) Values('" & Login & "')")
End if

Först och främst kan du låta din sql-sats loopa istället. Sen är det svårt att svara på vad som går fel- får du något felmeddelande?

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/data.mdb") 

Namn = Request.Cookies("FirstName") & " " & Request.Cookies("LastName") 

Set RS3 = Conn.Execute("Select * From online where namn='" & namn & "'") 
if not rs3.eof then
  online = "1" 
Else 
  online = "2" 
  Conn.Execute("Insert Into online(namn) Values('" & Namn & "')") 
  Conn.Execute("Insert Into mess(inlagg) Values('" & Login & "')") 
End if 

rs3.close
conn.close

ha, det gjorde susen....att jag inte tänkte på det :o) Måste ha skrivit fel i if-satsen.....