Expected 'Loop'

Set f = Server.CreateObject("GSFile.Text")

    sumdata = "This is my data for the file :)" & vbNewLine

   
SQL = "select distinct UserID from Ordre Where Bekraftet = 'nix'"
Set rs = Connect.Execute(SQL)

if not rs.EOF then
Do until rs.EOF

SQL = "Select * from Ordre where UserID ="&rs("UserID")&" "
Set rx = Connect.Execute(SQL)

sumdata = sumdata & "===== Ordre ID "& rx("OrdreID") &" ======" & vbNewLine


rx.close

SQL = "Select * from Users where UserID ="&rs("UserID")&" "
Set rx = Connect.Execute(SQL)

sumdata = sumdata & rx("Fornavn") & " " & rx("Efternavn") & vbNewLine
sumdata = sumdata & "===== Har Bestilt =====" & vbNewLine

rx.close


SQL = "select * from Ordre Where UserID="&rs("UserID")&" AND Bekraftet = 'nix'"
Set rx = Connect.Execute(SQL)

if not rx.EOF then
Do until rx.EOF   

SQL = "Select * from Vare where VareID ="&rx("VareID")&" "
Set rz = Connect.Execute(SQL)
   
   
sumdata = sumdata & rz("VareNummer") & vbNewLine
   
rz.close

rx.MoveNext
Loop
rx.close
else
'tom
end if   

html = f.Write(Server.MapPath("dum-fil.txt"), sumdata)

Set f = Nothing


Fejlen er

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/gemfil.asp, line 54

linie 54 er Set f = Nothing