Der er noget galt - Men hvad????

Er der nogen der kan se hvad der er galt med følgende programstump???

<%
strBynavn = Request.Form(\"ByValg\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"drukDatabase.mdb\")
Conn.Open DSN

strSQL1 = \"Select * from byTabel where byTabel.byNavn = \'\" & strBynavn & \"\'\"
strSQL2 = \"Select * from kommentarTabel, byTabel where bytabel.byNavn = \'\" & strBynavn & \"\' AND \"
strSQL2 = strSQL2 & \"byTabel.byID = kommentarTabel.kommentarID\"

Set rs1 = Conn.Execute(strSQL1)
Set rs2 = Conn.Execute(strSQL2)

%>

Lidt html

<%
    If rs2.EOF = True Then

    Response.Write(\"<tr>\")
    Response.Write(\"<td width=524 height=18 bgcolor=#000000><font color=#006600><b>Der er endnu ingen der har kommenteret anmeldelsen!!</b></font></td>\")
    Response.Write(\"</tr>\")
       
    Else
        Do while Not rs2.EOF
           
        Response.Write(\"<tr>\")
        Response.Write(\"<td width=524 height=18 bgcolor=#000000><font color=#006600><b>Afsender: \" & rs2(\"afsender\") & \"</b></font></td>\")
        Response.Write(\"</tr>\")
           
        Response.Write(\"<tr>\")
        Response.Write(\"<td width=524 height=60 bgcolor=#006600><font color=#000000><b>\" & rs2(\"kommentar\") & \"</b></font></td>\")
        Response.Write(\"</tr>\")
           
        rs2.MoveNext
           
        Loop
           
    End If
       
    Conn.Close
    Set Conn = Nothing
%>   

Jeg får at vide at der er en fejl i den sidste del af if-sætningen