毕业设计，关于ASP删除数据库纪录的问题，急需答案

我想做一个删除用户帐号的功能，但是不知道为什么每次都只是删除了帐号，而关于该帐号的其他诸如报名信息等都还在，怎么解决，功能程序如下：
<% if request("action")="del" then
id=request("id")
set ddrs=server.CreateObject("adodb.recordset")
ddsql="select * from [yonghu] order by id desc"
ddrs.open ddsql,conn,1,1
zhanghao=ddrs("name")
set drrs=server.CreateObject("adodb.recordset")
dssql="delete * from [bmxx] where user="&zhanghao
drrs.open dssql,conn,1,3
set drrrs=server.CreateObject("adodb.recordset")
dsssql="delete * from [hdxx] where fbr="&zhanghao
drrrs.open dsssql,conn,1,3
set drs=server.CreateObject("adodb.recordset")
dsql="delete * from [yonghu] where id="&id
drs.open dsql,conn,1,3
Response.Write "<script language='javascript'>alert('删除成功!');</script>"
response.write "<meta http-equiv=refresh content=

<%if request("action")="del" then
id=request("id")
'获取用户名
set ddrs=server.CreateObject("adodb.recordset")
ddsql="select * from [yonghu] order by id desc"
ddrs.open ddsql,conn,1,1
zhanghao=ddrs("name")
ddrs.close
set ddrs=nothing
'删除
dssql="delete * from [bmxx] where user="&zhanghao
conn.execute(dssql)
'删除
dsssql="delete * from [hdxx] where fbr="&zhanghao
conn.execute(dsssql)
'删除
dsql="delete * from [yonghu] where id="&id
conn.execute(dsssql)
'提示
Response.Write "<script language='javascript'>alert('删除成功!');</script>"
response.write "<meta http-equiv=refresh content=""0;URL=huiyuan.asp"">"
response.End
end if%>

还有就是你的用户名字段“name”类型是数字类型？如果是文本类型的话，删除语句要改为：
'删除