hvorfor vil den ikke acceptere .eof??

Den kommer med denne fejl:
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: \'eof\'

og det er det andet og det tredje .eof den ikke vil acceptere, det førdste er ok.

koden:
<%
sql=\"select * from opgavetype where tilhoerid=0\"
set rs_opgavetype_kategori=db_base.execute(sql)

while not rs_opgavetype_kategori.eof
\'    response.write rs_opgavetype_kategori(\"opgavetype\")&\"<br>\"
    sql=\"select * from opgavetype where tilhoerid=\"&rs_opgavetype_kategori(\"id\")&\"\"
    rs_opgavettype=db_base.execute(sql)

    if rs_opgavettype.eof then
        response.write \"snydt<br>\"
    end if
    while not rs_opgavettype.eof
        \'sql=\"select * from opgave where projektid=\"&dbget(\"projekt\")&\" and opgavetypeid=\"&rs_opgavettype(\"id\")&\"\"   
        response.write rs_opgavettype(\"id\")&\"<br>\"
    rs_opgavettype.movenext
    wend

rs_opgavetype_kategori.movenext
wend

%>