---
title: "Loop å Do *sucka*"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6682-loop-å-do-sucka"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nakoz"
published: "2000-09-24T22:55:00.000Z"
updated: "2000-09-25T15:34:00.000Z"
replies: 3
views: 302
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/6682-loop-å-do-sucka"
---

# Loop å Do *sucka*

## #1 — nakoz, 2000-09-24T22:55Z

okej... nu har jag vart vaken i snart 40 timmar... e grymt seg i skallen, men de e en enkel Loop som inte tycker om mig riktigt... :)
har en sida, där folk ska kunna bli vänner med varann, å då de har blivit de ska de inte kunna bli vänner med varann igen. utan då ska den redirecta till en viss 'fail.asp'. kolla nedan.

```
<%   Addera = "SELECT * FROM friends"

     RecSet.Open Addera, cn, adOpenStatic, adLockOptimistic

     Do Until RecSet.EOF
If Request.Form("to") = RecSet("Van") AND Session("ID") = RecSet("Vanlista") Then

RecSet.MoveNext
Loop
     Response.Redirect("fail.asp")
End If

	Session("Relation") = Request.Form("relation")
	Session("Van") = Request.Form("to") 
     Response.Redirect ("send3.asp")

RecSet.Close 
cn.Close %>
```

felmeddelandet blir:

Kompileringsfel i Microsoft VBScript fel '800a040e' 

'loop' utan 'do' 

/asp/hemsidor/flyktedit/user/friend/send2.asp, rad 14 

Loop
^

hjälp tack... \*gäspa\*

Mvh

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

## #2 — Danmagnus, 2000-09-24T23:05Z

kan det vara så att IF satsen innuti LOOPEN inte är avslutad innan du skriver "LOOP" ?

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

## #3 — nakoz, 2000-09-25T10:32Z

utveckla med lite kod tack? :)

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

## #4 — Zaphod, 2000-09-25T15:34Z

Du måste (eller bör åtminstone) avsluta if satsen innan du avslutar do loopen.

```
Do Until RecSet.EOF
If Request.Form("to") = RecSet("Van") AND Session("ID") = RecSet("Vanlista") Then

RecSet.MoveNext
Loop
Response.Redirect("fail.asp")
End If

Borde istället vara (svårt att veta när du inte visar all kod):
Do Until RecSet.EOF
If Request.Form("to") = RecSet("Van") AND Session("ID") = RecSet("Vanlista") Then
'Någon kod som skickar meddelandet??
RecSet.MoveNext
Else
Exit Do
Response.Redirect("fail.asp")
End If
Loop
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6682-loop-å-do-sucka