tjek og insert

Hvad er der galt med denne ?

<% if request.form("B1") <> "" then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("ant.mdb")
                               
if Request.Form("T1") <> "" then
                                   
Sql = "select * from boern where kode = '" & Request.Form("T1") & "'"
Set rs = Conn.Execute(sql)
                                       
if rs.EOF or rs.BOF then
status = "Koden er forkert"
else
                                                   
sql2 = "Insert into afmeldinger (stue, barn, dato) values('" & request.querystring("stue") & "','" & request.querystring("navn") & "', '" & request.querystring("dato") & "'"
Conn.Execute(sql2)   
Response.Redirect("default.asp")                                                       

                   
rs.Close
set rs = nothing
%>
<% end if %>
<% end if %>
<% end if %>