网页数据库动作查询问题

[zhang5wen]

代码如下：<script language="vbscript">
<!--
sub ok_onclick
dim conn,sql,rs
set conn=createobject("adodb.connection")
conn="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=F:\weiyuanxx\db1.mdb"

set rs=createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,3,2
if oldpassword=rs("password") then
if newpass=okpass then
sql="update user set password='" & newpass & "'" & space(1) & "where" & "password='" & oldpass & "'"
conn.execute sql
else
msgbox "密码不正确请重新输入"
newpass=""
okpass=""
end if
else
msgbox "密码不正确请重新输入"
oldpass=""
end if
set conn=nothing
set rs=nothing

end sub

-->
问题是SQL语句执行不了。不支持此属性oldpass=""
请各位哥大姐多多指教。

[qdubit]

改成如下试试：
sql="update user set password='" & newpass & "'" & " _
"where password='" & oldpass & "'"

[htao007]

sql="update user set password='" & newpass & "'" & space(1) & "where" & "password='" & oldpass & "'"

where与password中间有空格的
改称：
sql="update user set password='" & newpass & "'"
sql= sql & space(2) & "where password='" & oldpass & "'"

[aBoris]

sql="update user set password='"&newpass&"'" &" where "& "password='"&oldpassword&"'"

[gmlxf]

space(1)多余，后面又少了个空格
sql="update user set password='" & newpass & "' where password='" & oldpass & "'"

[heguowei]

这段代码能执行吗？
<script language="vbscript">是客户端角本
sql="select * from user"查出所有用户
rs.open sql,conn,3,2
if oldpassword=rs("password") then没有判断EOF
sql="update user set password='" & newpass & "'" & space(1) & "where" & "password='" & oldpass & "'"
太累了:
用sql="update user set password='" & newpass & "' where password='" & oldpass & "' and username='" & username & "'"

msgbox "密码不正确请重新输入"这句肯定错MSGBOX不能在服务器端运行