Undtagelse opstod. / Exception Occured.

Her er min kode ....


<!--#include file=\"dataopen.asp\"-->
<%
sqlstr = \"SELECT * FROM [tblbrugere] ORDER BY id ASC;\"
set rsbruger = conn.Execute(sqlstr)
Do while not rsbruger.eof
response.write \"Der er blevet sendt en mail til \" & rsbruger(\"email\") & \"<BR>\"

\'Response.write rsbruger(\"area\") & \"<BR>\"
brugerarea = split(rsbruger(\"area\") & \",\", \",\")
for i = 0 to ubound(brugerarea)
response.write trim(brugerarea(i)) & \"<BR>\"
if trim(brugerarea(i)) = \"1\" then

\'response.write \"Aktiv område<BR>\"
    sqlstr = \"SELECT * FROM [tblforhandlere] ORDER BY butiknavn ASC;\"
    set rsforhandler = conn.Execute(sqlstr)
            fid = rsforhandler(\"id\")
            sqlstr = \"SELECT * FROM [tbltilbud] where forhandlerid = \'\" & fid & \"\' ORDER BY id ASC;\"
            set rstilbud = conn.Execute(sqlstr)
                tilbudarea = split(rstilbud(\"area\") & \",\", \",\")
                Response.write \"Butik område test : \" & i
                if trim(forhandlerarea(i)) = \"1\" then
                Response.write \"Dette tilbud skal vises\"
                end if

end if
next
rsbruger.movenext
Loop
\'Response.write brev
%>


Her er fejlen!

vDer er blevet sendt en mail til etlekana@mailme.dk
0
0
0
0
0
0
1
fejl \'80020009\'
Undtagelse opstod.

/tb/email.asp, linje 20


.......................


ER DET BARE MIG eller kan i andre heller ikke se nogen fejl?

Find fejlen og tjen et par lette point..