---
title: "LOOP PROBLEM!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107190-loop-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "znyder"
published: "2004-07-12T16:53:59.000Z"
updated: "2004-07-12T22:04:54.000Z"
replies: 1
views: 192
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/107190-loop-problem"
---

# LOOP PROBLEM!!

## #1 — znyder, 2004-07-12T16:53Z

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

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

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

## #2 — Engine^, 2004-07-12T22:04Z

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
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107190-loop-problem