"HTTP 500 - 内部服务器错误
Internet Explorer "

直接运行下面一段程序是这个提示，　怎么讲。？？！
<%
dim name,password
name = Request.Form("name") '获取用户名信息
password = Request.Form("password") '获取密码的信息
if request.form("action") <> "确定添加" then
response.write"您是非法进入"
response.end '这句表示要求服务器立即停止解释之象下面的语句
end if

set rs=server.createobject("adodb.recordset")
sql="insert into tab(name,password) values ('"&name&"','"&password&"')"
conn.Execute(sql)

response.write"内容添加成功"
%>

<% dim conn
mmdb="user.MDB"
Set tol = Server.CreateObject("ADODB.Connection") '
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
%>

这可以吗？？ 这两天我就搞这个问题了

Dim DBconn
Dim DBPath

Set DBconn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("yourMDB.mdb")
DBconn.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath

conn.Execute(sql)

改成 tol.execute(sql)