大家给瞧瞧，哪里不对？？？
<%
dim delid,name,pass
delid=trim(request("id"))
name=trim(request.form("name"))
pass=trim(request.form("pwd"))
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("mydata.mdb")
set rs=server.createobject("ADODB.recordset")
rs.Open "select * from pwd where name='"&name&"'", Conn, 1, 2
if not rs.eof then
if pass=rs("pwd") then
set rs1=server.createobject("ADODB.recordset")
rs1.Open "delete * from ly where id="&delid, Conn, 1, 2
response.redirect "delok.asp"
else
response.redirect "notuser.asp"
end if
else
response.redirect "notuser.asp"
end if
%>

这是一个表单－
<%
Dim delid
delid=trim(request("ID"))
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("mydata.mdb")
set rs=server.createobject("ADODB.recordset")
rs.open "select * from ly where id="&delid, Conn, 1, 2
%>








bordercolorlight="#3399ff" bordercolordark="#cccccc" align="center" bgcolor="#CCCCCC">

返回留言首页
标题：<%=rs("title")%>	作者：<%=rs("name")%>
帐号：	密码：

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

／判断是否为合法用户并删除对应记录（delcl.asp）
<%
dim delid,name,pass
delid=trim(request("id"))
name=trim(request.form("name"))
pass=trim(request.form("pwd"))
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("mydata.mdb")
set rs=server.createobject("ADODB.recordset")
rs.Open "select * from pwd where name='"&name&"'", Conn, 1, 2
if not rs.eof then
if pass=rs("pwd") then
set rs1=server.createobject("ADODB.recordset")
rs1.Open "delete * from ly where id="&delid, Conn, 1, 2
response.redirect "delok.asp"
else
response.redirect "notuser.asp"
end if
else
response.redirect "notuser.asp"
end if
%>
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
／IE中提示如下：
错误类型：
Microsoft JET Database Engine (0x80040E14)
/qx/liuyan/delcl.asp, 第 13 行