find 5 fejl

Hvordan kan det være denne her ikke virker

if request.querystring("fag") <> "" AND request.querystring("undermenu") = "" AND request.querystring("underundermenu") = "" then
                        Set conn = Server.CreateObject("ADODB.Connection")
                        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
                        sql4 = "SELECT * FROM indhold where menu = '"&request.querystring("fag") &"' AND undermenu = '' AND underundermenu = '' "
                        response.write sql4
                        set rs4 = Conn.Execute(sql4)
                        end if
                        response.write rs4("tekst")