蔡依林周杰伦最近同台:修改，删除总出错啊，大家帮看看啊

<%
Action = Request.QueryString("Action")
InfoID = Request.QueryString("Leexii_HLei_ID")

If InfoID = "" Then
ErrInfo "对不起,内容填写不完整!","Admin_hetong_leiList.asp"
End If
If Action = "EditOK" Then
Leexii_HLei_Title = Request.Form("Leexii_HLei_Title")
If Leexii_HLei_Title = "" Then
ErrInfo "对不起,内容填写不完整!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
Conn.execute("update Leexii_HLei Set Leexii_HLei_Title='"&Leexii_HLei_Title&"',Leexii_LeiID='0' Where Leexii_HLei_ID="&InfoID)
ErrInfo "恭喜,信息修改成功!","Admin_hetong_leiList.asp"
End If
ElseIf Action = "Del" Then
sql="select * from Leexii_HLei where Leexii_LeiID="&InfoID
Set InfoRead1 = conn.execute(sql)
If not InfoRead1.eof then
ErrInfo "对不起,此分类还有分类信息没有删除!","Admin_hetong_leiList.asp"
Else
Conn.execute("delete from Leexii_HLei Where Leexii_HLei_ID="&InfoID)
ErrInfo "恭喜,信息删除成功!","Admin_hetong_leiList.asp"
End if
Else
Set InfoRead = conn.execute("select * from Leexii_HLei where Leexii_HLei_ID = "&InfoID)
If InfoRead.eof Or InfoRead.bof Then
ErrInfo "对不起,数据库中没有这条信息!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
%>

修改提示 对不起,数据库中没有这条信息!
删除提示 对不起,此分类还有分类信息没有删除!

大家指点下哪写错了，该怎么改
初学者请大家不要见笑，求教