LOOP PROBLEM!!

http://hashasp.mine.nu/paster/?id=567

Där finner ni mitt problem ;( Snabba svar skulle va jättebussigt ;)

Felmeddelande?

Prova om detta fungerar... samma kod i stort förutom några uppenbara förändringar :)

Function status(level, nicket)
  level = "" & level

  strSql = "SELECT level_status, next_level FROM person WHERE username = '" & nicket & "'"

  Set RStemp = MinCon.Execute(strSql)

  levels = RStemp("level_status") + level

  If levels => RStemp("next_level") Then
    levels = levels - RStemp("next_level")

    next_level = RStemp("next_level") + 100
    new_levels = RStemp("level") + 1

    strSql = "UPDATE person SET next_level = " & next_level & ", [level] = " & _
              new_levels & " WHERE username = '" & nicket & "'"

    MinCon.Execute strSql, , 128
  End If

  RStemp.Close : Set RStemp = Nothing

  strSql = "UPDATE person SET level_status = " & levels & " WHERE username = '" & nicket & "'"

  MinCon.Execute strSql, , 128
End Function

[b][red]Set rs = Server.CreateObject("ADODB.Recordset")[/red][/b]
Set MinCon = Server.CreateObject("ADODB.Connection")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("listmygames.mdb")

strSql = "SELECT username, level_status FROM person WHERE aktiverad = 'ja'"

[b][red]Set rs = MinCon.Execute(strSql)[/red][/b]

Do while NOT [b][red]rs[/red][/b].EOF
  strSql = "SELECT COUNT(*) FROM games WHERE username = ' " & [b][red]rs[/red][/b]("username") & "'"

  Set temp = MinCon.Execute(strSql)

  Response.Write "<B>" & [b][red]rs[/red][/b]("username") & " (" & temp(0) * 15 & ")</B><BR>"

  strSql = "SELECT username FROM games WHERE username = '" & [b][red]rs[/red][/b]("username") & "'"

  Set RStemp2 = MinCon.Execute(strSql)

  Do While Not RStemp2.EOF
    If Not IsNull([b][red]rs[/red][/b]("level_status")) Then 
      Call status(15, RStemp2("username"))
    End If

    Response.Write RStemp2("title") & " <B>15</B><BR>"

    RStemp2.MoveNext
  Loop

  Response.Write "<P>"

  [b][red]rs[/red][/b].MoveNext
Loop

RStemp2.Close : Set RStemp = Nothing
rs.Close : Set RStemp = Nothing