我做做了一个用户密码修改页面可是一提交就出错，请各位大哥给小弟看看是怎么回事呀代码如下!@!!
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/admin/rewpwd.asp, 第 36 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
网页：
POST 96 ??? /admin/rewpwd.asp
POST Data:
textfield=%C8%BD%CE%B0&textfield2=admin&textfield3=123456&textfield4=123456&Submit=%D0%DE+%B8%C4
原代码如下@!!!
<!--#include file="conn.asp"-->
<%
session("flag")=False
'从表单取出数据
Temp1=session("userid")
Temp2=trim(Request.Form("oldpassword"))
Temp3=trim(Request.Form("password1"))
Temp4=trim(Request.Form("password2"))
'判断两次新密码输入是否一致
if Temp3<>Temp4 then
Response.Redirect "error-rewpwd.htm"
end if
SQLstr = "SELECT * FROM 管理员 where 账号='"&Temp1& "'and 密码='"&Temp2&"'"
set conn=nothing
rs.open sql,conn,1,1
'说明用户的原来的密码输入正确，即该密码属于该账号
If Not rs.BOF Then
if session("flag")<>true then
response.Redirect "error.htm"
end if
'向数据库添加修改信息
Renewstr = "UPDATE 管理员 SET 密码='"&Temp3&"'where 帐号='"&Temp1&"'"
set conn=nothing
%>
<HTML>
<HEAD><TITLE>会员密码修改成功！</TITLE>
</HEAD>
<BODY bgColor=#cce498 topMargin=21>
<p><b><font size="+3">OK!您的密码修改成功！</font></b></p>
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="8%" height="31"> ?<img src="image/biaoji1.gif" width="14" height="14"></td>
<td width="92%" height="31"><b>您现在的密码是</b>：<%=Temp3%></td>
</tr>
<tr>
<td colspan="2" height="40"><font face="楷体_GB2312" size="+1"><b>请您记牢自己的密码，以免造成不必要的麻烦！</b></font></td>
</tr>
</table>
<CENTER>
</CENTER>
</BODY></HTML>
