Fejl i loop

jeg har denne kode:
                dato_tekst_aftale=""
                dato_tekst_aftale= "<select name='lev_date' size='1'>"
                dato_tekst_aftale=dato_tekst_aftale+ "<option value='0' SELECTED>Vælg dato..</Option>"

                SQL_wkday ="SELECT * from wkday LIMIT "& start_dag &",50"
                Conn.Execute (SQL_wkday)
                Set rs2 = conn.Execute(SQL_wkday)
                Do While Not rs2.EOF or rs2.BOF
               
                    if        levplan_mon    =1 and RS2("wkday_daynbr") =2 then
                    vis_dato ="Ja"
                    else if    Levplan_tue    =1 and RS2("wkday_daynbr") =3 then
                    vis_dato ="Ja"
                    else if    levplan_wen    =1 and RS2("wkday_daynbr") =4 then
                    vis_dato ="Ja"
                    else if    levplan_thu    =1 and RS2("wkday_daynbr") =5 then
                    vis_dato ="Ja"
                    else if    levplan_fri    =1 and RS2("wkday_daynbr") =6 then
                    vis_dato ="Ja"
                    else if    Levplan_sat    =1 and RS2("wkday_daynbr") =7 then
                    vis_dato ="Ja"
                    else if    levplan_sun    =1 and RS2("wkday_daynbr") =1 then
                    vis_dato ="Ja"
                    else
                    vis_dato= "nej"               
                    end if

                    if     vis_dato = "ja" then
                        dato_tekst_aftale=dato_tekst_aftale+ "<option value='" & RS2("wkday_date") & "'>" & rs2("wkday_date") & "</Option>"
                    else
                    end if
                rs2.movenext
                loop
                dato_tekst_aftale=dato_tekst_aftale+ "</select>"



og jeg får denne fejl:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A040E)
'Loop' uden 'Do'
/teknos/webshop/webshop/webshop1.asp, line 133
loop


og det fatter jeg ikke loge da jeg jo både har en do og en loop
nogen der kan hjælpe hurtig