Loop å Do *sucka*

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

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

utveckla med lite kod tack? :)

------------------
nakoz

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

------------------
/Magnus aka Zaphod
www.designmodule.com