ASP后台发送邮件失败 ADODB.Recordset 错误 '800a0e7d'

这是显示页面的提示:
发送邮件成功！ (检查并未发送到EMAIL里面)
ADODB.Recordset 错误 '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

/admin/user_editmail.asp，行 51

下面是user_editmail.asp整个代码



<%if request("cnmai")="OK" then%>
<%
dim rs,sql,id,email,s1,mailbiaoti
email=trim(request("maildizhi"))
mailbiaoti=trim(request("mailbiaoti"))
s1=trim(request("s1"))
if email="" or mailbiaoti="" or s1="" then
response.write "

没有填写完整！"
response.end
end if
call mail()
response.write "

发送邮件成功！"
cl
closedb
%>
<%
sub mail()
dim mailbody,Jmail
mailbody=""&s1&""
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName =""&title&""
Jmail.Subject =""&mailbiaoti&""
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>
<%sub cl()%>

<%end sub%>
<%end if%>

<%
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "

参数错误！"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select email from [user] where id="&cstr(id)
rs.open sql,conn,1,1
if rs.eof then
response.write "

参数错误！"
response.end
end if
%>

邮件标题：
用户地址：	" maxlength="40">
邮件内容： （纯文字）

<%
rs.close
set rs=nothing
closedb
%>
在线急等啊!回答者解决问题必定双手送上积分,并心中感激

---

大概看了下。。

if email="" or mailbiaoti="" or s1="" then
response.write "

没辩数有填写完整！"
response.end
end if
call mail()
response.write "

发送邮件成功！"
cl
closedb'''''''''你这里似乎有个关闭conn的代码。

那么下面如果没有重新改袭打开的话

连接无法用于执行此操作。在此上下文中核灶兄它可能已被关闭或无效。 就会报错咯
%>

---

请问顷数你数据清乎戚库里有email这个表吗？你答陵这个sql="select email from [user] where id="&cstr(id)明显有问题啊。

---