源氏的刀图片:大家帮我看段代码，不知道哪里错了

下面这段,代码,是在后台添加分类(不管是几级分类)的时候,总是500错误.conn.asp没错的，我已经检查了,不知道为什么一添加,就是500错误,高手帮忙看下，哪里错了

<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'我要用到的
'添加一级目录
'=======================================

Sub AddA()
session("errormsg")=""
session("result")=""
BigClassA=trim(replace(request.form("0"),"'","''"))
set rs = server.createobject("adodb.recordset")
rs.source = "select * from deeptree where content = '"&BigClassA&"'"
rs.open rs.source,conn,1,1
if BigClassA = "" then
errormsg=errormsg+"栏目的名称必须填写!!!<br>"
end if
if not rs.eof then
errormsg=errormsg+"栏目的名称不能重名!!!<br>"
end if
session("errormsg")=errormsg
rs.close
if errormsg="" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * From deeptree where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("parentid")=0
rs("content")="BigClassA"
rs("level")=1
rs.update
rs.close
set rs=nothing
session("result")="添加一级栏目成功"
end if
End Sub

'=======================================
'添加二级目录
'=======================================
Sub AddB()
session("errormsg")=""
session("result")=""
BigClassA=trim(replace(Request.Form("BigClassA"),"'","''"))
BigClassB=trim(replace(Request.Form("BigClassB"),"'","''"))
set rs=Server.Createobject("Adodb.Recordset")
rs.source="select * from deeptree where content='"&BigClassB&"' "
rs.open rs.source,conn,1,1
if BigClassA ="" then
errormsg=errormsg+"没有上级栏目不能添加二级栏目!!!<br>"
end if
if BigClassB ="" then
errormsg=errormsg+"栏目的名称必须填写!!!<br>"
end if
if not rs.eof then
errormsg=errormsg+"栏目的名称不能重名!!!<br>"
end if
session("errormsg")=errormsg
rs.close
'BigClassEN=rs("BigClassEN")
'rs.close
if errormsg="" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * From deeptree where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("parentid")=BigClassA
rs("content")=BigClassB
rs("level")=1
rs.update
rs.close
set rs=nothing
session("result")="添加二级栏目成功"
end if
End Sub

'=======================================
在每条SQL语句执行之前
把他reponse.write 出来,然后立刻reponse.end

我不知道怎么操作，我很菜.不好意思.