C&Server.MapPath("database.mdb")

这句肯定不对吧

使用这个工具，能看到报什么错
这个工具是我以前为了调试ASP程序写的

http://www.lihuasoft.net/download/show.php?id=32

那个程序是VB写的，要用到richtextbox控件，你到网上下载一个。

你的代码写的够烂的，你看看下面的if语句，有这样写的吗？？？？
  if rs.state=1 then rs.close
   else
   rs.open sql,conn,1,1
   end if
if rs.eof and rs.bof then
   response.Write "没有用户名".<a href=index.asp>返回</a>
   response.End()
end if
if request.Form("txtpwd")<>rs.fields("userpassword")
   response.Write"密码错误!"<a href=index.asp>返回</a>
end if

主要是语法错误，你有些地方都没有引号，还有if then这样基本的语句都不行，建议你找本基础的书，把语法看一遍再说吧，这个别人没办法教你。

语法：
if .... then ....
这是一种写法，不支持else等
if .... then
....
end if
这种在then后面不能有东西。

if .... then
...
else
...
end if
这也是一种结构。

response.Write "没有用户名".<a href=index.asp>返回</a>

response.Write"密码错误!"<a href=index.asp>返回</a>
注意引号

response.Write "没有用户名.<a href=index.asp>返回</a>"

response.Write"密码错误!<a href=index.asp>返回</a>"

你先把access中的表名改一下，不要叫user，这个可能和系统冲突，然后再改SQL语名，原来不是表名叫account吗？user是系统的一个变量，不能乱叫

或是
sql="select loginuser,userpassword from user where loginuser='"& loginname &"'"
改成
sql="select loginuser,userpassword from [user]where loginuser='"& loginname &"'"

如果还不行，可以修改成以下的：

第11行改成
rs.Open sql, conn, 1, 3, adCmdText

还有一种更简便的写法
将
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open sql,conn,1,1
改成
set rs=conn.execute(sql)

基本的recordset操作参数，你找本书看看

Recordset.Open参数说明

语法:
    recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数说明:
Source                可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。 ActiveConnection     可选。变体型，计算有效 Connection 对象变量名；或字符串，包含  ConnectionString 参数。
CursorType       可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。
可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
值  常量                 说明
--- ------------------- -----------------------
0   AdOpenForwardOnly   默认值）打开仅向前类型游标。
1   AdOpenKeyset             打开键集类型游标。
2   AdOpenDynamic         打开动态类型游标。
3   AdOpenStatic               打开静态类型游标。

LockType              可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。
值  常量                                   说明
--- -------------------------------- -----------------------
1   AdLockReadOnly           （默认值）只读 — 不能改变数据。
2   AdLockPessimistic         保守式锁定,提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
3   AdLockOptimistic            开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。
4   AdLockBatchOptimistic  开放式批更新—用于批更新模式（与立即更新模式相对）。

你在添加新用户的时间，先查看一下用户表里有没有同名用户，有的话提示一下
sql="select loginuser from account"
应当改成
sql="select loginuser from account where username='"& request.Form("txtuser") &"'"